Nama : khoerul amri
nim : 3105 111 317
kelas : TI / D
UNIVERSITAS TEKNOLOGI YOGYAKARTA
Source Code :
uses wincrt;
type reclaptop = record
merk :string [10];
warna:string [10];
harga:real;end;
var
n,i:integer;
laptop:array [1..60] of reclaptop;begin
write(‘banyak data yang akan dimasukan : ‘);readln(n);
for i:=1 to n do
with laptop[i] do
begin
writeln(‘data ke ‘,i);
write(‘merk : ‘);readln(merk);
write(‘warna : ‘);readln(warna);
write(‘harga : ‘);readln(harga);
writeln;end;
writeln(‘================================’);
writeln(‘Nama Warna Harga ‘);
writeln(‘================================’);for i:=1 to n do
with laptop[i] do
begin
writeln(merk,’ ‘,warna,’ Rp ‘,harga:2:2);
end;end.
Tampilan Setelah di eksekusi :
Source code :
uses wincrt;
type rectanggal = record
hari:1..31;
bulan:string[20];
tahun:string[4];
end;type recanak = record
nama : string [30];
kelamin: char;
alamat: string [50];
tgllahir: rectanggal;
end;
var
i,n:integer;
data: array [1..50] of recanak;procedure input;
begin
for i := 1 to n do
with data[i] do
with tgllahir do
begin
writeln(‘data anak kost ke ‘,i);
write(‘nama :’);readln(nama);
write(‘kelamin (L/P) :’);readln(kelamin);
write(‘alamat asal :’);readln(alamat);
writeln(‘tanggal lahir ‘);
write(‘hari :’);readln(hari);
write(‘bulan :’);readln(bulan);
write(‘tahun :’);readln(tahun);
writeln;end;
end;
procedure cetak;
begin
for i:=1 to n do
with data[i] do
with tgllahir do
begin
writeln(i,’ ‘,nama,’ ‘,kelamin,’ ‘,hari,’ ‘,bulan,’ ‘,tahun);
writeln(‘ alamat asal : ‘,alamat);
writeln;
end;end;
begin
write(‘masukan banyak data yang akan diinputkan : ‘);readln(n);
input;
writeln(‘review data yang inputkan’);
cetak;
end.
Tampilan Setelah di eksekusi :
