Program komputer Lingkaran

Program Menghitung Luas dan Keliling Lingkaran;

uses crt;
Var
K,L,r:real;
Const
phi=3.14;
Begin
writeln (‘ini adalah program untuk menghitung luas dan keliling lingkaran’);
writeln (‘masukkan nilai r’);
readln (r);

L:=phi*r*r;
K:=2*phi*r;

writeln (‘nilai L adalah’);
writeln (L);
writeln (‘nilai K adalah’);
writeln (K);
End.

Program komputer Sistem Persamaan Linier Tiga Variabel

Program sistem_persamaan_linier_tiga_variabel;

uses crt;
Var
A,B,C,D,E,F,G,H,I,J,K,L,X,Y,Z:integer;
Begin
writeln (‘ini adalah program sistem persamaan linier tiga variabel untuk menentukan nilai X,Y,Z’);
writeln (‘masukkan nilai A’);
readln (A);
writeln (‘masukkan nilai B’);
readln (B);
writeln (‘masukkan nilai C’);
readln (C);
writeln (‘masukkan nilai D’);
readln (D);
writeln (‘masukkan nilai E’);
readln (E);
writeln (‘masukkan nilai F’);
readln (F);
writeln (‘masukkan nilai G’);
readln (G);
writeln (‘masukkan nilai H’);
readln (H);
writeln (‘masukkan nilai I’);
readln (I);
writeln (‘masukkan nilai J’);
readln (J);
writeln (‘masukkan nilai K’);
readln (K);
writeln (‘masukkan nilai L’);
readln (L);

Z:=((D*I-A*L)*(B*E-A*F)-(B*I-A*J)*(D*E-A*H))DIV(-(B*I-A*J)*(C*E-A*G)+(B*E-A*F)*(C*I-A*K));
Y:=((D*E-A*H)-(C*E-A*G)*Z)DIV(B*E-A*F);
X:=((D-B*Y-C*Z))DIV(A);

writeln (‘nilai Z adalah’);
writeln (Z);
writeln (‘nilai Y adalah’);
writeln (Y);
writeln (‘nilai X adalah’);
writeln (X);
End.

Program Komputer Persamaan Kuadrat

program Persamaan_Kuadrat;
Uses Crt;
var
a, b, c, d, x1, x2 : real;
begin
clrscr;
writeln(‘Program Menghitung Akar Persamaan Kuadrat’);
writeln(‘======================’);
write(‘masukan nilai a = ‘); readln(a);
write(‘masukan nilai b = ‘); readln(b);
write(‘masukan nilai c = ‘); readln(c);

if a=0 then
begin
writeln (‘Ini bukan persamaan Kuadrat’);
end
else
if d<0 then
begin
writeln(‘akar-akarnya imaginer’);
end
else
begin
d:= sqr(b) – 4*a*c;
x1 := ( -b + sqrt(d)) / (2*a);
x2 := ( -b – sqrt(d)) / (2*a);
writeln(‘akar-akarnya adalah :’, x1:5:2,’ atau’, x2:5:2);
end;
readkey;

end.