modul 2

Menentukan Bilangan

program  penentuan_bilangan;
uses crt;
var a,b,c : integer;
ulang : char;
begin
     clrscr;
    repeat
     write(' masukan nilai a:'); readln(a);
     write(' masukan nilai b:'); readln(b);
     write(' masukan nilai c:'); readln(c);
     writeln('**************************');
     writeln('Nilai a =', a);
     writeln('Nilai b =', b) ;
     Writeln('nilai c =', c);
     if (a>b) and (a>c) then
     writeln (' nilai a paling besar');
     if (b>a) and (b>c) then
     writeln (' nilai b paling besar');
     if (c>a) and (c>b) then
     writeln (' nilai c paling besar')
     else
     Writeln (' ada dua nilai yang sama besar');
     readln;
     writeln;
     write (' coba lagi [y/t]:'); readln(ulang);
     until ulang='t';
end.

Nama hari

program hari;
uses crt;
var
angka : integer;

begin
clrscr;
writeln ('program penentu hari');
writeln ('********************');
writeln;
write ('masukan angka=');
readln (angka);
   case angka of
        1 : writeln ('Hari yang anda Pilih : Senin');
        2 : writeln ('Hari yang anda Pilih : selasa');
        3 : writeln ('Hari yang anda Pilih : Rabu');
        4 : writeln ('Hari yang anda Pilih : Kamis');
        5 : Writeln ('Hari yang anda Pilih : Jumat');
        6 : Writeln ('Hari yang anda Pilih : Sabtu');
        7 : Writeln ('Hari yang anda Pilih : MInggu');
   else
       Begin
       Writeln (' Angka yang dimasukan tidak terdaftar, Masukan angka 1-7');
       end;
   end;
readln;
end.