Programação de Computadores I - Exercicio imc

Senhores Alunos

Solução em C

#include <stdio.h>
#include <stdlib.h>

int main()
{
   char nome[10];
   float imc, h, peso;
   printf("informe o seu nome\n");
   gets(nome);
   printf("informe o seu peso\n");
   scanf("%f",&peso);
   printf("informe sua altura\n");
   scanf("%f",&h);
   imc = peso / (h*h);
   printf("%s seu imc eh %.2f",nome,imc);
   return 0 ;
}

Solução em Fortran 

program main
  implicit none
  character(len=10) :: nome
  real :: imc, peso, h;
  print *, 'Entre com o seu nome'
  read *, nome
  print *, 'Entre com o seu peso'
  read *, peso
  print *, 'Entre com a sua altura'
  read *, h
  imc = peso/h**2
  print "(A10,' seu imc eh ',F5.2)",trim(nome),imc
end

Boa semana!