ejercicio8.txt
2
program ejercicio8 implicit none integer:: edad character(len=5)::regalo print*, "!!!!!!!!!!!!!!!!!!!!! !!!!" print*, "WELCOME TO JOAKIN'S PARTY" PRINT*, "!!!!!!!!!!!!!!!!!!!!!!!!!" print*, "¿cual es tu edad?" read(*,*) edad if (edad>23) then print*, "¿trajiste regalo para joakin?" read(*,*) regalo if (regalo=="si") then print*, "Puedes entrar a la fiesta" else print*, "que lastima, no puedes entrar :( " end if else if (edad==23) then print*, "Que suerte!! Entras gratis" else print*, "Mala suerte, no vas a entrar!" end if end if end program
-
Upload
gerardo-velacos -
Category
Documents
-
view
220 -
download
0
Transcript of ejercicio8.txt
7/21/2019 ejercicio8.txt
http://slidepdf.com/reader/full/ejercicio8txt 1/1
program ejercicio8implicit noneinteger:: edadcharacter(len=5)::regaloprint*, "!!!!!!!!!!!!!!!!!!!!!!!!!"print*, "WELCOME TO JOAKIN'S PARTY"PRINT*, "!!!!!!!!!!!!!!!!!!!!!!!!!"print*, "¿cual es tu edad?"read(*,*) edadif (edad>23) then
print*, "¿trajiste regalo para joakin?"read(*,*) regaloif (regalo=="si") then
print*, "Puedes entrar a la fiesta"else
print*, "que lastima, no puedes entrar :( "end if
elseif (edad==23) then
print*, "Que suerte!! Entras gratis"else
print*, "Mala suerte, no vas a entrar!"end if
end if
end program