1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
program chat_01
implicit none
integer :: choice
character(len = 10) :: name
print *, "Please enter your name:"
read(*, *) name
print *, "---------WELCOME TO CHAT_01---------"
do while (.true.)
print *, "Please pick an option:"
print *, "1) Say Hi"
print *, "2) Say Hello"
print *, "3) Say Good Morning"
print *, "4) Say Happy Birthday"
print *, "5) Exit the chat"
print *, ""
print *, "Enter your choice:"
read(*, *) choice
if (choice == 1) then
print *, "Hi "//name
else if (choice == 2) then
print *, "Hello "//name
else if (choice == 3) then
print *, "Good Morning "//name
else if (choice == 4) then
print *, "Happy Birthday "//name//"!"
else if (choice == 5) then
exit
else
print *, "Wrong choice. Try again..."
end if
print *, ""
end do
end program
|
