Minggu, 09 Desember 2012

contoh program larik


nama:array[1..10]of string;
i:integer;
begin
writeln('Nama Mahasiswa yang hadir di ruang M-115');
writeln('===========================================');
nama[1]:='wasinton';
nama[2]:='dame';
nama[3]:='bolon';
nama[4]:='pardamean';
nama[5]:='nafit';
nama[6]:='timoty';
nama[7]:='ramos';
nama[8]:='rudolf';
nama[9]:='budi';
nama[10]:='mitra';

for i:=1 to 10 do

writeln('Nama ke - ',i,',:',nama[i]);
end.




program contoh_bentukkan;
uses wincrt;
type
lps= record
     p,l,luas:integer;

end;

var
lpp:lps;

begin
write('panjang:'); readln (lpp.p);

write('lebar:');readln (lpp.l);

lpp.luas:=lpp.p*lpp.l;
writeln('luas:',lpp.luas);
end.




program latihan1;
uses wincrt;
type
lps= record
     n,a,tl:string;
     tlg,npm:integer;

end;

var
idp:lps;

begin
write('Nama:');readln(idp.n);
write('Npm:');readln(idp.npm);
write('Alamat:');readln(idp.a);
write('Temapat Lahir:');readln(idp.tl);
write('Tanggal lahir:');readln(idp.tlg);
end.




program contoh_constan;

uses wincrt;
const
a=5;

nama: array [1..a] of string = ('somplak','soak','sengklek','stres','sutres');

var
i: integer;


begin
writeln ('Mahasiswa Teladan');
writeln('==================');

for i:= 1 to a do
writeln ('',i,' :',nama[i]);
end.

Tidak ada komentar:

Posting Komentar