Contoh Program Pascal

//Contoh membuat PROGRAM Perbandingan 2 buah bilangan dengan menggunakan Program Bahasa Paskal

program perbandingan;
uses wincrt;
var

x,y: integer;


begin
writeln;
write(' Masukan bil pertama= ');
readln(x);
write(' Masukan bil kedua  = ');
readln(y);
writeln;

if x>y then       
begin
writeln(' Nilai',x,' Lebih besar dari pada ',y);
end

else
begin
write  (' Nilai',y,' Lebih besar dari pada ',x);
end;     
end.

=======================

//Contoh membuat PROGRAM Menghitung Operasi matematika X^2 + Y^2 + Z dengan menggunakan Program Bahasa Paskal

uses wincrt;

var
x,y,z:integer;
lagi:char;

nama:string;

begin

lagi:= 'y';

while (lagi= 'y') or (lagi= 'Y') do

begin
clrscr;
  write(' Siapa nama anda =...?');
  readln(nama);
  writeln( 'Halo ',nama,',Coba kamu');
  writeln('masukan nilai x,y dan z ');
  writeln('pada operasi matemetika 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/n),',nama,'?');
  readln(lagi);

  end;
end.

Share This

• 
• 
• 
• 
• 
• 
• 

Subscribe Here