PASCAL PROGRAM PENJUMLAHAN, HASIL KUADRAT DAN PERSEGI PANJANG

Posted by : Unknown Sabtu, 31 Desember 2016

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: