BELAJAR PASCAL 3
(untuk siswa SMP Islam Taufiqurrahman Depok)
Pada pembelajaran pascal ketiga ini, penulis hanya memberikan latihan soal dari materi sebelumnya. Materi yang telah ditulis berupa perintah program, uses crs, var, begin, clrscr, write, writeln, readln, end, dan type data real. Semua perintah itu akan dikemas dalam struktur pascal.
Latihan yang diberikan merupakan latihan yang sederhana dan mudah dipahami, latihan tersebut berhubungan dengan bangun datar, dan persamaan, pernjumlahan, serta perkalian angka, bahkan kombinasi antara penjumlahan perkalian dan pembagian. Tujuan dari diberikan latihan ini agar pembaca dapat melatih menuliskan program, menuliskan sambil menghafalkan struktur bahasa pemrograman pascal.
1. Buatlah program menggunakan bahasa pemrograman pascal untuk mencari luas segi tiga.
jawabnya :
program luasegitiga;
uses crt;
var alas, tinggi, luas : real;
begin
clrscr;
write ('berapa alas segitiga ?'); readln(alas);
write ('berapa Tinggi segitiga ?'); readln(tinggi);
luas := (alas * tinggi)/2;
writeln ('luas segitiga adalah ' ,luas:0:0);
readln;
end.
2. Buatlah program untuk mencari nilai dari rumus A=B+C+D
Jawabnya :
program hitung;
uses crt;
var B, C, D, A : real;
begin
clrscr;
write ('input nilai B ?'); readln(B);
write ('input nilai C ?'); readln(C);
write ('input nilai D ?'); readln(D);
A := B+C+D;
writeln ('Hasil penjumlahan adalah ' ,A:0:0);
readln;
end.
3. Buatlah program untuk mencari nilai rata-rata ulangan dari 4x ulangan. Adapun rumusnya
adalah Rata-rata =(ul1+ul2+ul3+ul4)/4
Jawabnya :
program ratarata;
uses crt;
var ul1, ul2, ul3, ul4, rt2 : real;
begin
clrscr;
write ('input ulangan ke 1 ?'); readln(ul1);
write ('input ulangan ke 2 ?'); readln(ul2);
write ('input ulangan ke 3 ?'); readln(ul3);
write ('input ulangan ke 4 ?'); readln(ul4);
rt2 := (ul1+ul2+ul3+ul4)/4;
writeln ('Rata-rata ulangan adalah ' ,rt2:0:0);
readln;
end.
Komentar
Posting Komentar