KUMPULAN SOAL LATIHAN STRUKTUR DATA

1. Struktur pertama dalam pascal adalah

a. Char;

b. String

c. End.

d. Writeln

e. Uses crt;

Jawab   : E

Alasan   : Uses crt merupakan pengenal untuk suatu sistem operasi yang digunakan dalam pascal.

Contoh Program Menghitung Luas Segiempat

program menghitung_luas_segi_empat;
uses wincrt;
var S,L:real;
begin
     writeln;
     writeln('========================================');
     writeln('   Program Menghitung Luas Segi Empat   ');
     writeln('========================================');
     writeln('              Lia Septiani           ');
     writeln('========================================');
     writeln;
     write('Masukan Nilai Sisi  : ');readln(S);
     L:=S*S;
     writeln('Luas Segi Empat   : ',L:0:2);
end.

Contoh Program Menghitung Luas Segitiga

Program Luas segitiga

program menghitung_segi_tiga;
uses wincrt;
var A,T,L:real;
begin
     writeln ;
     writeln ('=====================================');
     writeln ('  Program Menghitung Luas Segitiga   ');
     writeln ('=====================================');
     writeln ('            Lia Septiani             ');
     writeln ('=====================================');
     writeln;
     write ('Masukan nilai Alas       : ');readln(A);
     write ('Masukan nilai Tinggi     : ');readln(T);
     L:=(A*T)/2;
     writeln ('Luas Segi Tiga           : ',L:0:2);
end.