Program Kumpulan Data Pascal

Program Kumpulan Data Pascal - Kumpulan Data menggunakan kompiler Dev-Pascal, berikut ini Source Code Program yang bisa langsung diterapkan ke dalam kompiler Dev-Pascal.

{*Program macam macam Data*}



var a,b:string;

q:char;

x,k,luas:real;

w,y,t,h,z,banyak,sisi,p,l:integer;



begin

writeln('-------------------');

writeln('       Menu        ');

writeln('-------------------');

writeln('1.Biodata');

writeln('2.Deret');

writeln('3.Luas Segitiga');

writeln('4.Keliling Bujur Sangkar');

writeln('5.Luas Bujur Sangkar');

writeln('-------------------');

writeln('Masukan Pilihan Anda : ');

readln(q);



case q of

'1':begin

write('Nama : ');readln(a);

write('NPM  : ');readln(b);

writeln(a);

writeln(b);

readln;

end;



'2':begin

write('Input Data : ');

readln(banyak);

for y := 1 to banyak do

begin

for z := 1 to y do

write(z);

writeln;

end;

readln;

end;



'3':begin

write('Input Alas : ');readln(t);

write('Input Tinggi : ');readln(h);

x := (t*h)/2;

writeln('Luas Segitiga : ',x:6:2);

readln;

end;



'4':begin

write('Input Sisi : ');readln(sisi);

k := (4*sisi);

writeln('Keliling Bujur Sangkar : ',k:6:2);

readln;

end;



'5':begin

write('Input Panjang : ');readln(p);

write('Input Lebar : ');readln(l);

luas := (p*l);

writeln('Luas Bujur Sangkar : ',luas:6:2);

readln;

end;

end;

end.

Berikut hasil output Program Kumpulan Data yang dihasilkan.

Sekian program tentang Program Kumpulan Data Pascal, semoga bermanfaat.