Program Genap-Ganjil

Program ganjil_genap;
Uses Crt;
Var x: integer;
Begin

Write(‘Masukkan angka:’);
Readln(x);
If x mod 2 = 0 then
Write(‘Bilangan Genap’)
Else
Write(‘Bilangan Ganjil’);
End.

Baca selengkapnya....

Tebak-tebakan di Pascal

program tebak;
uses crt;
var
acak,jawaban:integer;
tombol:char;
begin
repeat
clrscr;
writeln('Permainan menebak Angka');
writeln('Saya akan membangkitkan bilangan acak');
writeln('Antara 1 sampai dengan 4');
repeat
acak:=random(5);
until acak<>0;
writeln('Sekarang cobalah untuk menebak');
write('Angka berapa? ');
readln(jawaban);
if acak=jawaban then writeln('Selamat ! Jawaban Anda benar')
else
writeln('Belum benar tuh jawabannya = ',acak);
writeln;
writeln('tekan t untuk mengakhiri');
writeln('Atau tombol lain untuk mengulangi');
Tombol:=readkey;
until(tombol='T') or (tombol='t')
end.

Baca selengkapnya....

Cari Data di Pascal

Program CariData;
{Contoh Pencarian data pada Array}
Uses crt;
Type
String15=string[15];
Const
Jum_Elemen=10;
NamaKota:Array[1..Jum_Elemen] Of String15
=('PALEMBANG','MEDAN','PADANG','JAMBI','JAKARTA',
'SURABAYA','SEMARANG','YOGYAKARTA','BANDUNG',
'SOLO','KALIMANTAN','SULAWESI');

Baca selengkapnya....

Merekam Data di Pascal

Program fteks2;
{Contoh merekam sejumlah karakter ke file teks}
Uses crt;
Var
Fhuruf:text;
Begin
clrscr;
Writeln('Merekam ke file teks');
Assign(fhuruf,'HURUF2.TXT');
Rewrite(fhuruf); {Menciptakan File}

Writeln(fhuruf,'A');
Writeln(fhuruf,'B');
Writeln(fhuruf,'C');
Close(fhuruf);
write('Selesai. Tekan enter.');
Readln;
End.

Baca selengkapnya....

Cari Bulan dalam Pascal

Program Bulan;
Var
KodeBulan:Integer;
Begin
write('Kode Bulan [1 s/d 12]=');
readln(kodebulan);
case kodebulan of
1,3,5,7,8,10,12: writeln('Jumlah Hari = 31');
4,6,9,11: writeln('Jumlah Hari =30');
2: writeln('Jumlah hari =28 atau 29');
else
writeln('Salah Memasukkan Kode Bulan');
end;readln;
end.

Baca selengkapnya....