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