Array matriks

program array_matriks;
uses wincrt;
var larik:array [1..100,1..100] of integer;
i,j,m,n:integer;

begin
write('masukkan jumlah baris = ');readln(m);
write('masukkan jumlah kolom = ');readln(n);
clrscr;
writeln('nilai komponen matriks = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(larik[i,j]);
end;
writeln;
end;
clrscr;
writeln('Diperoleh matriks');
writeln;
for i:=1 to m do
begin
for j:=1 to n do
begin
write(larik[i,j]:9);
end;
writeln;
end;
end.

Lagu Anak Ayam

program lagu;
uses wincrt;
var x,n:integer;
begin
write('masukkan jumlah anak ayam= ');readln(n);
x:=n;
clrscr;
while x>1 do
begin
writeln('tek kotek kotek kotek');
writeln('anak ayam turun ',x);
writeln;
writeln('tek kotek kotek kotek');
writeln('mati satu tinggal ',x-1);
writeln;
x:=x-1;
end;
writeln('tek kotek kotek kotek');
writeln('anak ayam turun 1');
writeln;
writeln('tek kotek kotek kotek');
writeln('mati satu tinggal induknya');
end.

For Do1

uses wincrt;
var i,j,n:integer;
begin
write ('masukkan angka: ');
readln (n);
for j:=n downto 1 do
begin
writeln (' ');
for i:=j downto 1 do
write (5:3) ;
writeln;
end;
readln;
end.

Luluskah Anda ??

program nilai;
uses wincrt;
const a=0.4;
b=0.6;
var nim:real;
nama:string;
d,e,f:real;
pilih:char;
begin
REPEAT
CLRSCR;
write('masukkan nama= ');readln(nama);
write('masukkan nim= ');readln(nim);
write('nilai UTS= ');readln(d);
write('nilai UAS= ');readln(e);
f:=a*d+b*e;
writeln('nilai akhir adalah= ',f:5:2);
if f<50 then writeln('gagal') else writeln('lulus');
write('apakah ingin mengulang lagi(Y/T)?');readln(pilih);
until pilih='t';
write('selesai');
end.

Contoh array

program contoh;
uses wincrt;
var bil:array[1..50] of integer;
begin
clrscr;
bil[1]:=3;
bil[2]:=29;
bil[3]:=30;
bil[4]:=31;
bil[5]:=23;
writeln('nilai variabel bilangan ke 3= ',bil[3]);
readln;
end.

Segitiga Asyik

program segitiga_asyik_01;
uses wincrt;
var a,b,c:integer;
begin
write('masukkan angka= ');read(a);
clrscr;
for b:=1 to a do
begin
for c:=1 to b do
write(b:3);
writeln;
end;
end.

Deskriminan

program deskrimin ;
uses wincrt;
var a,b,c,d,x1,x2,z1,z2 : real;
begin
writeln ('masukkan nilai a : ');readln (a);
writeln ('masukkan nilai b : ');readln (b);
writeln ('masukkan nilai c : ');readln (c);
d:= b*b-4*a*c;
if a=0 then write ('bukan persamaan kuadrat') else
if d=0 then
begin
x1:=-b/2*a;
writeln ('akar-akarnya sama,yaitu x1=x2',x1:2:2);
end else
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a) ;
x2:=(-b-sqrt(d))/(2*a);
writeln ('x1',x1:2:2);
writeln ('x2',x2:2:2);
end else
if d<0 then
begin
writeln('akar-akarnya imajiner');
end;
end.