text maarque kanan

INGATKAN DIRIMU UNTUK MENGATUR SEGALA SESUATU SUDAH DI ATUR ALLOH

salju

Sabtu, 03 Desember 2011

operasi matematika

program operasi_matematika;
uses wincrt;
var
x,y,z    :  longint;
lagi     :  char;
namak    :  string[20];

begin
lagi  :=  'y';
 while (lagi  =  'y') or (lagi  =  'Y') do
 begin
 clrscr;
   write('Siapa Nama Anda..?');  ReadLn(namak);
   writeLn;
   write('Hallo ',namak,', Coba kamu');
   WriteLn(' masukan nilai x,y dan z ');
   writeLn('pada operasi matematika ini.');
   writeLn;
   writeLn('Operasi matematika X^2 + y^2 + z =..... ');
   write('masukan nilai x..= '); ReadLn(x);
   write('masukan nilai y..= '); ReadLn(y);
   write('masukan nilai z..= '); ReadLn(z);
   writeLn;
   writeLn('nilai operasi x^2 + y^2 + z adalah : ',x*x+y*y+z);
   writeLn;
   write('Mau hitung lagi apa tidak (y/t), ',namak,' ? ');
  readLn(lagi);
 end;
end.

Tidak ada komentar:

Posting Komentar