Program nn;
uses crt;
var
a,b,hasil:array [1..5,1..5] of integer;
i,j,k:integer;
begin
clrscr;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write('Masukkan angka: ');
readln(a[i,j]);
end;
writeln;
end;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write('Masukkan angka: ');
readln(b[i,j]);
end;
writeln;
end;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write(a[i,j],' ');
end;
writeln;
end;
writeln;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write(b[i,j],' ');
end;
writeln;
end;
for i:=1 to 3 do
begin
for j:= 1 to 3 do
begin
for k:= 1 to 3 do
begin
hasil[i,j]:= hasil[i,j]+ a[i,k] * b[k,j];
end;
end;
end;
writeln;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write(hasil[i,j],' ');
end;
writeln;
end;
readln;
end.
Program Membuat Piramid
Program piramid;
Uses crt;
var
i,j,n:integer;
begin
clrscr;
readln(n);
for i:= 1 to n do
begin
for j:= 1 to n do
begin
if i<j then
write('')
else write('x ');
end;
writeln;
writeln;
end;
readln;
end.
Uses crt;
var
i,j,n:integer;
begin
clrscr;
readln(n);
for i:= 1 to n do
begin
for j:= 1 to n do
begin
if i<j then
write('')
else write('x ');
end;
writeln;
writeln;
end;
readln;
end.
Contoh Kasus : Menghitung Deret Ganda
Program ujian;
uses crt;
var
i,n,a,b,c,d,e:integer;
begin clrscr;
readln(n);
for i:= 1 to n do
begin
if i mod 2= 1 then
begin
a:=a+10;
e:=a;
c:=c+a;
write(a,' ');
end
else
begin
b:=b+10;
e:=b;
d:=d+b;
write(b,' ');
end;
end;
writeln('Suku ke-',n,'= ',e);
writeln('Jumlah suku ke-',n,'= ',c+d);
readln;
end.
uses crt;
var
i,n,a,b,c,d,e:integer;
begin clrscr;
readln(n);
for i:= 1 to n do
begin
if i mod 2= 1 then
begin
a:=a+10;
e:=a;
c:=c+a;
write(a,' ');
end
else
begin
b:=b+10;
e:=b;
d:=d+b;
write(b,' ');
end;
end;
writeln('Suku ke-',n,'= ',e);
writeln('Jumlah suku ke-',n,'= ',c+d);
readln;
end.
Contoh Kasus: Program Menghitung Jumlah Telur
Program Test;
Uses crt;
var
n,m,t:integer;
h:char;
label a,b,c,d,e,f,g,z;
begin
clrscr;
writeln('Senin : 1');
writeln('Selasa : 2');
writeln('Rabu : 3');
writeln('Kamis : 4');
writeln('Jumat : 5');
writeln('Sabtu : 6');
writeln('Minggu : 7');
write('Mulai pada hari [1-7] : ');
readln(h);
write('Berapa hari lamanya? : ');
readln(n);
case h of
'1': goto a;
'2': goto b;
'3': goto c;
'4': goto d;
'5': goto e;
'6': goto f;
'7': goto g;
else writeln('Anda salah menginputkan angka');
end;
a:
m:=m+1;
t:=t+3;
if m=n then goto z;
b:
m:=m+1;
t:=t+2;
if m=n then goto z;
c:
m:=m+1;
t:=t+1;
if m=n then goto z;
d:
m:=m+1;
t:=t+2;
if m=n then goto z;
e:
m:=m+1;
t:=t+3;
if m=n then goto z;
f:
m:=m+1;
t:=t+2;
if m=n then goto z;
g:
m:=m+1;
t:=t+0;
if m=n then goto z
else goto a;
z:
writeln('Jumlah telur: ',t);
readln;
end.
Program Mengurutkan Angka dari Kecil ke Besar
uses crt;
var
a,b,c: integer;
u:char;
label x;
begin
clrscr;
x:
write('Masukkan bilangan pertama: ');
readln(a);
write('Masukkan bilangan kedua: ');
readln(b);
write('Masukkan bilangan ketiga: ');
readln(c);
if (a<b) and (a<c) and (b<c) then writeln (a,' ',b,' ',c)
else if (a<b) and (a<c) and (c<b) then writeln(a,' ',c,' ',b)
else if (b<a) and (b<c) and (a<c) then writeln(b,' ',a,' ',c)
else if (b<a) and (b<c) and (c<a) then writeln(b,' ',c,' ',a)
else if (c<a) and (c<b) and (a<b) then writeln(c,' ',a,' ',b)
else if (c<a) and (c<b) and (b<a) then writeln(c,' ',b,' ',a)
else writeln('error');
write('Ulangi {y/n} : '); readln(u);
if u='y' then goto x;
readln;
end.
var
a,b,c: integer;
u:char;
label x;
begin
clrscr;
x:
write('Masukkan bilangan pertama: ');
readln(a);
write('Masukkan bilangan kedua: ');
readln(b);
write('Masukkan bilangan ketiga: ');
readln(c);
if (a<b) and (a<c) and (b<c) then writeln (a,' ',b,' ',c)
else if (a<b) and (a<c) and (c<b) then writeln(a,' ',c,' ',b)
else if (b<a) and (b<c) and (a<c) then writeln(b,' ',a,' ',c)
else if (b<a) and (b<c) and (c<a) then writeln(b,' ',c,' ',a)
else if (c<a) and (c<b) and (a<b) then writeln(c,' ',a,' ',b)
else if (c<a) and (c<b) and (b<a) then writeln(c,' ',b,' ',a)
else writeln('error');
write('Ulangi {y/n} : '); readln(u);
if u='y' then goto x;
readln;
end.
Program Menentukan Nilai Ujian dengan IF ELSE
program if_else;
uses crt;
var
nilai:integer;
u:char;
label a;
begin
clrscr;
a:
write('Input nilai: '); readln(a);
if a<40 then writeln ('nilai E')
else if a<50 then
begin
writeln('nilai D');
end
else if a<60 then
begin
writeln('nilai C');
end
else if a<80 then
begin
writeln('nilai B');
end
else if a>80 then
begin
writeln('nilai A');
end
else
begin
writeln('salah');
end;
Write('Ulangi ?: '); readln(u);
if u='y' then goto a;
readln;
end.
uses crt;
var
nilai:integer;
u:char;
label a;
begin
clrscr;
a:
write('Input nilai: '); readln(a);
if a<40 then writeln ('nilai E')
else if a<50 then
begin
writeln('nilai D');
end
else if a<60 then
begin
writeln('nilai C');
end
else if a<80 then
begin
writeln('nilai B');
end
else if a>80 then
begin
writeln('nilai A');
end
else
begin
writeln('salah');
end;
Write('Ulangi ?: '); readln(u);
if u='y' then goto a;
readln;
end.
Program Operasi Aritmatik
program if_else;
uses crt;
var
a,b:integer;
j:real;
u,o:char;
label aa;
begin
clrscr;
aa:
Writeln('1.Penjumlahan');
writeln('2.Pengurangan');
writeln('3.Perkalian');
writeln('4.Pembagian');
write('Pilih Operasi Aritmatik [1/2/3/4]: ');
readln(o);
write('Input nilai 1: '); readln(a);
write('Input nilai 2: '); readln(b);
case o of
'1':j:=a+b;
'2':j:=a-b;
'3':j:=a*b;
'4':j:=a/b;
end;
writeln('Hasil: ',j:0:1);
Write('Ulangi ?: '); readln(u);
if u='y' then goto aa;
readln;
end.
uses crt;
var
a,b:integer;
j:real;
u,o:char;
label aa;
begin
clrscr;
aa:
Writeln('1.Penjumlahan');
writeln('2.Pengurangan');
writeln('3.Perkalian');
writeln('4.Pembagian');
write('Pilih Operasi Aritmatik [1/2/3/4]: ');
readln(o);
write('Input nilai 1: '); readln(a);
write('Input nilai 2: '); readln(b);
case o of
'1':j:=a+b;
'2':j:=a-b;
'3':j:=a*b;
'4':j:=a/b;
end;
writeln('Hasil: ',j:0:1);
Write('Ulangi ?: '); readln(u);
if u='y' then goto aa;
readln;
end.
Program Lambang Nazi
Program lat1;
Uses crt;
var
i,j,n,x:integer;
y:real;
begin
clrscr;
readln(n);
x:=2*(n)-1;
for i:= 1 to x do
begin
for j:= 1 to x do
begin
if (i=1) and (j<n) then write('x ')
else
if (j=n) then write('x ')
else
if (i=x) and (j>n) then write('x ')
else
if (i=n) and (j<>n) then write('x ')
else
if (j=x) and (i<n) then write('x ')
else
if (j=1) and (i>n) then write('x ')
else write(' ');
end;
writeln;
end;
readln;
end.
Uses crt;
var
i,j,n,x:integer;
y:real;
begin
clrscr;
readln(n);
x:=2*(n)-1;
for i:= 1 to x do
begin
for j:= 1 to x do
begin
if (i=1) and (j<n) then write('x ')
else
if (j=n) then write('x ')
else
if (i=x) and (j>n) then write('x ')
else
if (i=n) and (j<>n) then write('x ')
else
if (j=x) and (i<n) then write('x ')
else
if (j=1) and (i>n) then write('x ')
else write(' ');
end;
writeln;
end;
readln;
end.
Program Palindrom
Program palindrom;
uses crt;
var
kt,bl:string;
i:integer;
begin
clrscr;
write('Input kata: '); readln(kt);
for i:= length(kt) downto 1 do
bl:=bl+kt[i];
writeln('Dibalik menjadi: ',bl);
if bl=kt then write('Kata ini termasuk palindrom')
else write('Kata ini bukan palindrom');
readln;
end.
uses crt;
var
kt,bl:string;
i:integer;
begin
clrscr;
write('Input kata: '); readln(kt);
for i:= length(kt) downto 1 do
bl:=bl+kt[i];
writeln('Dibalik menjadi: ',bl);
if bl=kt then write('Kata ini termasuk palindrom')
else write('Kata ini bukan palindrom');
readln;
end.
Program Deret Aritmatik Ganjil
Program Deret_Ganjil;
Uses crt;
var
i,n,p,q:integer;
u:char;
label x,y;
Begin
clrscr;
x:
Writeln('Program menentukan suku ke-n dan jumlah hingga suku ke-n dari deret: ');
writeln(' 3 5 7 9 11 .... Un');
writeln('====================================================================');
p:=1;
q:=0;
Write('Berapa n yang anda inginkan? : '); readln(n);
writeln('Deretnya: ');
for i:=1 to n do
begin
p:=p+2;
q:=p+q;
write(p,' ');
end;
writeln(' ');
writeln('Suku ke-',n,': ',p);
writeln('Jumlah hingga suku ke-',n,': ',q);
Write('Coba lagi? [y/n] : '); readln(u);
writeln('====================================================================');
if u='y' then goto x
else goto y;
y:
Readln;
End.
Uses crt;
var
i,n,p,q:integer;
u:char;
label x,y;
Begin
clrscr;
x:
Writeln('Program menentukan suku ke-n dan jumlah hingga suku ke-n dari deret: ');
writeln(' 3 5 7 9 11 .... Un');
writeln('====================================================================');
p:=1;
q:=0;
Write('Berapa n yang anda inginkan? : '); readln(n);
writeln('Deretnya: ');
for i:=1 to n do
begin
p:=p+2;
q:=p+q;
write(p,' ');
end;
writeln(' ');
writeln('Suku ke-',n,': ',p);
writeln('Jumlah hingga suku ke-',n,': ',q);
Write('Coba lagi? [y/n] : '); readln(u);
writeln('====================================================================');
if u='y' then goto x
else goto y;
y:
Readln;
End.
Program Deret Aritmatik Genap
Program Deret_Genap;
Uses crt;
var
i,n,p,q:integer;
u:char;
label x,y;
Begin
clrscr;
x:
Writeln('Program menentukan suku ke-n dan jumlah hingga suku ke-n dari deret: ');
writeln(' 2 4 6 8 10 .... Un');
writeln('====================================================================');
p:=0;
q:=0;
Write('Berapa n yang anda inginkan? : '); readln(n);
writeln('Deretnya: ');
for i:=1 to n do
begin
p:=p+2;
q:=p+q;
write(p,' ');
end;
writeln(' ');
writeln('Suku ke-',n,': ',p);
writeln('Jumlah hingga suku ke-',n,': ',q);
Write('Coba lagi? [y/n] : '); readln(u);
writeln('====================================================================');
if u='y' then goto x
else goto y;
y:
Readln;
End.
Uses crt;
var
i,n,p,q:integer;
u:char;
label x,y;
Begin
clrscr;
x:
Writeln('Program menentukan suku ke-n dan jumlah hingga suku ke-n dari deret: ');
writeln(' 2 4 6 8 10 .... Un');
writeln('====================================================================');
p:=0;
q:=0;
Write('Berapa n yang anda inginkan? : '); readln(n);
writeln('Deretnya: ');
for i:=1 to n do
begin
p:=p+2;
q:=p+q;
write(p,' ');
end;
writeln(' ');
writeln('Suku ke-',n,': ',p);
writeln('Jumlah hingga suku ke-',n,': ',q);
Write('Coba lagi? [y/n] : '); readln(u);
writeln('====================================================================');
if u='y' then goto x
else goto y;
y:
Readln;
End.
Langganan:
Postingan (Atom)