Program Pembagian Suku Banyak

uses wincrt;
var
x,y,z    :  longint;
lagi     :  char;
nama     :  string[20];
UmurKu : Byte;
Keterangan : String;
begin
lagi  :=  ‘y’;
while (lagi  =  ‘y’) or (lagi  =  ‘Y’) do
begin
clrscr;
writeln(‘ Hallo Saya Iskandar ‘);
UmurKu:=19;
Keterangan:=’saya sedang belajar Pascal di UNTIRTA SERANG’;
Writeln(‘Saya berumur ‘,UmurKu,’ tahun’);
Writeln(Keterangan);
Write(‘Siapa Nama Anda ? ‘); Readln(Nama);
Write(‘Berapa umur anda ? ‘); Readln(UmurKu);
Writeln(‘Saya berumur ‘,UmurKu,’ tahun’);
Clrscr;
writeln(‘ Hallo ‘,nama,’,Selamat Datang Di Operasi Pembagian Suku Banyak ‘);
write(‘ Coba kamu’);
WriteLn(‘ masukan nilai ax+b ATAU nilai Pembagi ‘);
WriteLn(‘ masukan nilai y/a ATAU nilai Bagi ‘);
WriteLn(‘ masukan nilai z ATAU nilai Sisa Pembagi ‘);
writeLn(‘ pada operasi Pembagian Suku Banyak ini.’);
writeLn;
writeLn(‘ Operasi Pembagian Suku Banyak atau M = ax+b * y/a + z =….. ‘);
write(‘ masukan nilai ax+b atau nilai pembagi..= ‘); ReadLn(ax+b);
write(‘ masukan nilai y/a atau hasil bagi..= ‘); ReadLn(y/a);
write(‘ masukan nilai z atau sisa pembagi..= ‘); ReadLn(z);
writeLn;
writeLn(‘nilai operasi ax+b * y/a + z adalah : ‘,ax+b*y/a+z);
writeLn;
write(‘Mau hitung lagi apa tidak (y/t), ‘,nama,’ ? ‘);
readLn(lagi);
end;
end.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: