Posted by Materi Teknik Informatika • Informasi Teknologi Informasi • Digital Marketing on 9/20/2014
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.
