Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menu makan hari ini.

Program Menu_Makan_Hari_Ini;
Uses Wincrt;
Var
a:integer;
Begin
Gotoxy (28,3); Writeln ('Menu Makan Hari Ini');
Gotoxy (25,4); Writeln ('=========================');
Gotoxy (25,6); Writeln ('1. Nasi Uduk');
Gotoxy (25,7); Writeln ('2. Nasi Jamblang');
Gotoxy (25,8); Writeln ('3. Nasi Goreng');
Gotoxy (25,9); Writeln ('4. Nasi Gudeg');
Gotoxy (25,10); Writeln ('5. Nasi Padang');
Gotoxy (25,11); Writeln ('6. Nasi Rames');
Gotoxy (25,13); Write ('Masukkan Pilihan Anda: ');readln (a);
Clrscr;
Gotoxy (20,7);
Case a of
1: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Uduk.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
2: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Jamblang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
3: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Goreng.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
4: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Gudeg.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
5: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Padang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
6: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Rames.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
else Writeln ('Pilihan Anda Salah');
End;
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menu makan hari ini.

Program Menu_Makan_Hari_Ini;
Uses Wincrt;
Var
a:integer;
Begin
Gotoxy (28,3); Writeln ('Menu Makan Hari Ini');
Gotoxy (25,4); Writeln ('=========================');
Gotoxy (25,6); Writeln ('1. Nasi Uduk');
Gotoxy (25,7); Writeln ('2. Nasi Jamblang');
Gotoxy (25,8); Writeln ('3. Nasi Goreng');
Gotoxy (25,9); Writeln ('4. Nasi Gudeg');
Gotoxy (25,10); Writeln ('5. Nasi Padang');
Gotoxy (25,11); Writeln ('6. Nasi Rames');
Gotoxy (25,13); Write ('Masukkan Pilihan Anda: ');readln (a);
Clrscr;
Gotoxy (20,7); If a=1 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Uduk.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=2 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Jamblang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=3 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Goreng.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=4 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Gudeg.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=5 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Padang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=6 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Rames.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else Writeln ('Pilihan Anda Salah');
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menu makan hari ini.

Program Menu_Makan_Hari_Ini;
Uses Wincrt;
Var
a:integer;
c,y,n:string;
Begin
c:='y';
While c='y' do
Begin
Gotoxy (28,3); Writeln ('Menu Makan Hari Ini');
Gotoxy (25,4); Writeln ('=========================');
Gotoxy (25,6); Writeln ('1. Nasi Uduk');
Gotoxy (25,7); Writeln ('2. Nasi Jamblang');
Gotoxy (25,8); Writeln ('3. Nasi Goreng');
Gotoxy (25,9); Writeln ('4. Nasi Gudeg');
Gotoxy (25,10); Writeln ('5. Nasi Padang');
Gotoxy (25,11); Writeln ('6. Nasi Rames');
Gotoxy (25,13); Write ('Masukkan Pilihan Anda: ');readln (a);
Clrscr;
Gotoxy (20,7); If a=1 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Uduk.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=2 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Jamblang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=3 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Goreng.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=4 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Gudeg.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=5 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Padang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else If a=6 then
Begin
Writeln ('Menu yang Anda pilih adalah Nasi Rames.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End
else Writeln ('Pilihan Anda Salah');
Gotoxy (20,9); Write ('Apakah anda ingin mengulang(y/n)?');read (c);
Clrscr;
End;
End.

Posted in: menu makan,pascal