PASCAL program Penjumlahan 2 bilangan, Hasil kuadrat dan persegi panjang

MODUL 1

PASCAL JENIS-JENIS  DATA DAN VARIABEL

SOAL:

1.  Buatlah  program Pascal  untuk  menentukan hasil penjumlahan  dan  pengurangan dari bilangan bulat !


2.  Buatlah  program Pascal  yang menerima sebuah masukan dan menampilkan hasil kuadrat 
     dari bilangan masukan !

3.  Buatlah program Pascal yang menerima 2 buah masukan bilangan bulat untuk menghitung
     keliling persegi panjang !

JAWABAN:

 NO. 1
PROGRAM PENJUMLAHAN;
uses crt;
var
a,b,jumlah,kurang: integer;
begin
clrscr;
       writeln ('==================================================');
       writeln ('______C  O  D  I  N  G   B  Y______');
       writeln ('Nama: Moh. Murne Rifai');
       writeln ('Nim : 16102681');
       writeln ('==================================================');
       writeln;
       write ('masukkan nilai bil.pertama: '); readln (a);
       write ('masukkan nilai bil. kedua: '); readln (b);
       jumlah:=a+b;
       kurang:=a-b;
       writeln ('hasil penjumlahannya adalah: ',jumlah);
       writeln ('hasil pengurangannya adalaha:',kurang);
       readln;
end. 

Hasil Run program:

 NO.2
 PROGRAM BIL_KUADRAT;
uses crt;
var
bil, kuadrat: integer;
begin
clrscr;
       writeln ('==================================================');
       writeln ('______C  O  D  I  N  G   B  Y______');
       writeln ('Nama: Moh. Murne Rifai');
       writeln ('Nim : 16102681');
       writeln ('==================================================');
       writeln;
       write ('masukkan sebuah bilangan: '); readln (bil);
       kuadrat:=SQR(bil);
       writeln ('hasil kuadratnya adalah: ',kuadrat);
       readln;
end.
Hasil Run program:

 

NO.3
 PROGRAM Kel_P_PANJANG;
uses crt;
var
P,L,Luas: integer;
begin
clrscr;
       writeln ('==================================================');
       writeln ('______C  O  D  I  N  G   B  Y______');
       writeln ('Nama: Moh. Murne Rifai');
       writeln ('Nim : 16102681');
       writeln ('==================================================');
       writeln;
       write ('masukkan panjang: '); readln (p);
       write ('masukkan lebar  : '); readln (l);
       Luas:=P*L;
       writeln ('luas persegi panjang adalah: ',Luas);
       readln;
end.
Hasil Run program:

 

sama sama belajar dan bsharing agar ilmu bertambah...
Thank you guys "semangat belajar coding" berbagi itu indah . . .

Tweet