SPLTV & menghitung luas dan keliling lingkaran

1. SPLTV


Program Sistem_Persamaan_Linear_Tiga_Variabel;
var
J, K, L, M, N, O, P, Q, R, S, T, U, X, Y, Z : integer;
begin
writeln('ini adalah program untuk mencari nilai x,y,z melalui SPLTV');
writeln('masukan nilai J');
readln(J);
writeln('masukan nilai K');
readln(K);
writeln('masukan nilai L');
readln(L);
writeln('masukan nilai M');
readln(M);
writeln('masukan nilai N');
readln(N);
writeln('masukan nilai O');
readln(O);
writeln('masukan nilai P');
readln(P);
writeln('masukan nilai Q');
readln(Q);
writeln('masukan nilai R');
readln(R);
writeln('masukan nilai S');
readln(S);
writeln('masukan nilai T');
readln(T);
writeln('masukan nilai U');
readln(U);
X := ( ( M*P - Q*L ) - ( M*T - U*L ) ) div ( ( J*P - N*L ) - ( J*T - R*L ) ) ;
Y := ( ( M*N - Q*J ) - ( M*R - U*J ) ) div ( ( K*N - O*J ) - ( K*R - S*J ) ) ;
Z := ( ( M*N - Q*J ) - ( M*R - U*J ) ) div ( ( L*N - P*J ) - ( L*R - T*J ) ) ;
writeln('nilai x adalah ');
writeln(x);
writeln('nilai y adalah');
writeln(y);
writeln('nilai z adalah');
writeln(z);
readln
End.


2. Menghitung Luas dan Keliling Lingkaran



Program lingkaran;
var
K,L,R:real;
const
phi=3.14;
begin
writeln('ini adalah program untuk mencari keliling dan luas lingkaran');
writeln('masukan nilai R');
readln(R);
K:=2*phi*R;
L:=phi*R*R;
writeln('nilai K adalah:');
writeln(K);
writeln('nilai L adalah:');
writeln(L);
end.

persamaan kuadrat & nilai akhir

1. Persamaan Kuadrat

Program PersamaanKuadrat;
uses crt;
var a,b,c,d,x1,x2 :real;
begin
clrscr;
writeln('Menghitung akar-akar persamaan kuadrat');
writeln('Nilai a,b,c dimasukkan dengan jeda spasi');
write('Masukkan nilai a,b,c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln('tidak ada akar real')
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1 =',x1:6:2);
writeln('x2 =',x2:6:2);
end;
readln;
end.


2. Nilai Akhir


Program nilai_akhir;
uses crt;
var
nt,uts,uas,rt:real;
nim,nama,grade:string[25];
tr:longint;
begin
clrscr;
writeln(’program input’);
writeln(’===============’);
write(’masukan nim :’);readln(nim);
write(’masukan nama:’);readln(nama);
write(’masukan tugas :’);readln(nt);
write(’masukan UTS :’);readln(uts);
write(’masukan UAS :’);readln(uas);
rt:=0.25*nt+0.25*uts+0.5*uas;
tr:=round(rt);
case tr of
0..44:
begin
grade:=’E';
end;
45..55:
begin
grade:=’D';
end;
56..65:
begin
grade:=’C';
end;
66..79:
begin
grade:=’B';
end;
80..100:
begin
grade:=’A';
end;
end;

clrscr;
writeln(‘program nilai mahasiswa’);
writeln(’=======================’);
writeln;
writeln(’mahasiswa yang bernama ‘,nama);
write(’dengan nim ‘,nim);
write(’ mendapatkan nilai ‘,rt:4:0);
write(’ dan gradenya adalah ‘,grade);
readln;
end.