Acord

Clasificado en Informática

Escrito el en español con un tamaño de 3,65 KB

 

CELSIUS A FARENHEIT

program celsius_table

implicit none

real farenheit, celsius

print*,'    farenheit            celsius'

do celsius= 30, 220, 10

farenheit=(9.0/5.0) * celsius+32

print  '(f13,0,f12.3)',farenheit, celsius

end do

end

Se desea leer las calificaciones de una clase de informática y contar el número total de aprobados (5 o mayor que 5).

print*,'se desea leer las calificaciones de una clase de informatica'

print*,'y contar el numero total de aprobados mayor de 5'

icont=0

30 print*,'i=1 procesa la informacion diferente de uno se sale del programa'

read*, i

if (i.ne.1) goto 20

print*,'dame la calificacion'

read*,calf

if (calf>5)then

icont=icont+1

end if

goto 30

20 print*,'el numero de aprobados son'

print*,icont

stop

end