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.
Selasa, 04 April 2017
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar