PROKOM PROKOM

program segitiga_asyik_1;
uses wincrt;
var x,y,z:integer;
begin
write('Masukkan bilangan yang dimaksud= ');read(x);
writeln;
for y:=x downto 1 do
begin
for z:=y downto 1 do
write(' 5 ');
writeln;
end;
readln;
end.
program for_to_do_;
uses wincrt;
var x:integer;
begin
for x:=1 to 10 do
if x mod 2=1 then
writeln(x,'. Pemograman Komputer');
end.

program prosedur;
uses wincrt;
procedure penjumlahan;
var
a,b,c:integer;
begin
write('nilai pertama ');readln(a);
write('nilai kedua ');readln(b);
c:=a+b;
writeln('hasil penjumlahannya ',c);
end;

procedure pengurangan;
var
a,b,c:integer;
begin
write('nilai pertama ');readln(a);
write('nilai kedua ');readln(b);
c:=a-b;
writeln('hasil pengurangannya ',c);
end;

procedure perkalian;
var
a,b,c:integer;
begin
write('nilai pertama ');readln(a);
write('nilai kedua ');readln(b);
c:=a*b;
writeln('hasil perkaliannya ',c);
end;


var
x:integer;
begin
write('pilih yang mana? ');
write('1=penjumlahan');
write('2=pengurangan');
write('3=perkalian');
readln(x);
if x=1 then
begin
penjumlahan;
end else;
if x=2 then
begin
pengurangan;
end else;
if x=3 then
begin
perkalian;
end;


end.


program menghitung_umur;
uses wincrt;
var d1,d2,b1,t1,a,b,c,d,e,f,g:integer;
begin
write('masukkan taggal,bulan,tahun lahir= ');read(d1,b1,t1);
writeln;
write('masukkan jangka waktu dalam hari= ');read(d2);
writeln;
a:=d1+d2;
b:=a div 30;
c:=a mod 30;
d:=b1+b;
e:=d div 12;
f:=d mod 12;
g:=t1+e;
write('tanggal sekarang= ',c,' ',f,' ',g,' ');
end.

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.




program perkalian_matriks;
uses wincrt;
type larik=array [1..10,1..10] of integer;
var i,j,k,m,n,l:integer;
a,b,c:larik;
begin
write('baris matriks pertama= ');readln(m);
write('kolom matriks pertama/baris matriks kedua = ');readln(n);
write('kolom matriks kedua = ');readln(l);
writeln;
write('nilai komponen matriks pertama = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(a[i,j]);
end;
writeln;
end;
write('nilai komponen matriks kedua = ');
for i:=1 to n do
begin
for j:=1 to l do
begin
write('nilai[',i,',',j,']?');readln(b[i,j]);
end;
writeln;
end;
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=0;
for k:=1 to l do
c[i,j]:=c[i,j]+a[i,k]*b[k,j];
end;
end;
writeln('hasil perkalian matriks');
for i:=1 to m do
begin
for j:=1 to l do

write(c[i,j]:9);
writeln;
end;
end.