adis septa aulia,-23-03-2019
PASCAL
Cara
memulai membuat program pascal ialah sebagai berikut pada aplikasi pascall :
Ø
Program penjumlahan :
PROGRAM Penjumlahan;
uses wincrt;
VAR
A,B,Hasil : Integer;
BEGIN
WRITELN('MASUKAN BILANGAN
PERTAMA :');READLN(A);
WRITELN('MASUKAN BILANGAN
KEDUA :');READLN(B);
Hasil := A + B;
WRITELN('HASILNYA ADALAH
:',HASIL);
END.
Ø
Lalu Save as
Maka hasilnya ialah :
Ø
Contoh program pengurangan :
PROGRAM Pengurangan;
uses wincrt;
VAR
A,B,Hasil : Integer;
BEGIN
WRITELN ('MASUKAN BILANGAN PERTAMA :');READLN(A);
WRITELN ('MASUKAN BILANGAN KEDUA :');READLN(B);
Hasil := A - B;
WRITELN ('HASILNYA ADALAH :',HASIL);
END.
Ø
Lalu save as
Ø
Maka hasilnya akan seperti ini :
Ø
Contoh program ramalan
Program
ramalanmainan;
Useswincrt;
var
nama,hasil,string;
tglskr,tgllhr,bulanlhr:integer;
ramalan:real;
begin
writeln('RAMALAN
ZODIAK HARIAN (CUMAN PERMAINAN/BOONGAN)');
writeln('______________________________');
writeln;
write('MASUKAN
NAMA ANDA:');readln(nama);
writeln
write('TANGGAL
SEKARANG :');readln(tglskr);
write('TANGGAL
LAHIR :');readln(tgllhr);
write('BULAN
LAHIR :');readln(blnlhr);
ramalan:=(tglskr+tgllhr+bulanlhr)/3;
if
(ramalan<=5) then
hasil:='RAJINLAH
MANDI SUPAYA TIDAK JOMBLO'
else if
(ramalan<=10) then
hasil:='RAJINLAH
BELAJAR AGAR DISAYANG'
else if
(ramalan<=15) then
hasil:='MAKANLAH
MAKANAN BERGIZI BIAR PINTER'
else if
(ramalan<=20) then
hasil:='HARUS
BANYAK-BANYAK TRAKTIR TEMAN KELAS AGAR BANYAK REZEKI'
else if
(rmalan<=24.667)then
hasil:='RAJINLAH
BERKACA AGAR ANDA BISA EVALUASI DIRI'
else
hasil:='TERJADI
KESALAHAN PADA IMPUTAN';
writetn;
writeln('RAMALAN :'hasil);
end.
Ø
Maka hasilnya akan seperti ini :
