tugas program komputer

program Menghitung_Luas_dan_Keliling_Lingkaran;
uses crt;
const pi=3.14;
var r,L,K:real;
begin
clrscr;
writeln('TUGAS PROGRAM KOMPUTER');
writeln('Nama : EKA DEWI RAHAYU');
writeln('NIM : 070766');
writeln('Kelas : IV A');readln;writeln;
writeln(' MENGHITUNG LUAS DAN KELILING LINGKARAN ');
writeln('============================================');readln;writeln;
write('Masukkan Nilai r = ');read(r);
writeln;
L:=pi*r*r;
K:=2*pi*r;
writeln('maka');
writeln('Luas Lingkaran adalah = ',L:2:0);readln;
writeln('Keliling Lingkaran adalah=',K:2:0);readln;writeln;
writeln('================= SELESAI ================');readln;
end.




program Menghitung_SPLTV;
uses crt;
var A,B,C,D,E,F,G,H,P,Q,R,S:integer;
x,y,z,N,K,L,M:real;

begin
clrscr;
writeln;
writeln(' MENGHITUNG SPLTV (Sistem Persamaan Linear Tiga Variabel) ');
writeln('*****************************************************************');
readln;writeln;
write('Masukkan koefisien x pada persamaan 1: ');read(A);
write('Masukkan koefisien y pada persamaan 1: ');read(B);
write('Masukkan koefisien z pada persamaan 1: ');read(C);
write('Masukkan konstanta hasil pada persamaan 1: ');read(D);
writeln;
write('Masukkan koefisien x pada persamaan 2: ');read(E);
write('Masukkan koefisien y pada persamaan 2: ');read(F);
write('Masukkan koefisien z pada persamaan 2: ');read(G);
write('Masukkan konstanta hasil pada persamaan 2: ');read(H);
writeln;
write('Masukkan koefisien x pada persamaan 3: ');read(P);
write('Masukkan koefisien y pada persamaan 3: ');read(Q);
write('Masukkan koefisien z pada persamaan 3: ');read(R);
write('Masukkan konstanta hasil pada persamaan 3: ');read(S);
writeln;
writeln;
writeln('Sehingga persamaannya dapat ditulis sebagai berikut...');readln;
writeln;
writeln(' persamaan(1): ',A,'x + ' ,B,'y + ' ,C,'z =',D);
writeln(' persamaan(2): ',E,'x + ' ,F,'y + ' ,G,'z =',H);
writeln(' persamaan(3): ',P,'x + ' ,Q,'y + ' ,R,'z =',S);
writeln;

N:=(A*F*R)+(B*G*P)+(C*E*Q)-(P*F*C)-(Q*G*A)-(R*E*B);
K:=(D*F*R)+(B*G*P)+(C*H*Q)-(D*F*C)-(Q*G*D)-(R*H*B);
L:=(A*H*R)+(D*G*P)+(C*E*S)-(P*H*C)-(S*G*A)-(R*E*D);
M:=(A*F*S)+(B*H*P)+(D*E*Q)-(P*F*D)-(Q*H*A)-(S*E*B);

write('Maka');readln;
write('Determinannya adalah = ',N:2:2);readln;
write('Determinan x adalah = ',K:2:2);readln;
write('Determinan y adalah = ',L:2:2);readln;
write('Determinan z adalah = ',M:2:2);readln;
writeln;writeln;


if N=0 then writeln('Jadi, SPLTV TIDAK PUNYA PENYELESAIAN')
else

begin
x:=K/N;
y:=L/N;
z:=M/N;

if N>0 then
begin
writeln('Jadi...');
writeln('NILAI x = ',x:2:2);
writeln('NILAI y = ',y:2:2);
writeln('NILAI z = ',z:2:2);
end else

if N<0 x =" ',x:2:2);" y =" ',y:2:2);" z =" ',z:2:2);" onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnbLWaYrx5Y05S_Osw8Mgjs4wOqpSWmY0Hnj9flbaQnAf6KCq1s0TwclbqRRStmpjsA72YHIw3_uk6mHscCZN3I3qF4X2dR_JU0_xV9gCCLySXjrxS7u9MxVJHmWIT5PZ2U8NSb0GBis-p/s1600-h/spltv.jpg.bmp">











program Menghitung_Nilai_Akhir_Mahasiswa;
uses crt;
var nama: string;
mata_kuliah: string;
tugas,UTS,UAS,nilai: integer;
Nilai_Akhir: real;

begin
clrscr;
writeln;
writeln(' PROGRAM MENGHITUNG NILAI AKHIR MAHASISWA ');
writeln('-----------------------------------------------------------------');
writeln;
writeln('Silahkan masukkan identitas anda dibawah ini terlebih dahulu!');
write('Nama : ');readln(nama);
write('NIM : ');readln;
write('Kelas : ');readln;
write('Mata Kuliah : ');readln(mata_kuliah);
writeln;writeln;
write(' Masukkan Nilai Tugas : '); readln(tugas);
write(' Masukkan Nilai UTS : '); readln(UTS);
write(' Masukkan Nilai UAS : '); readln(UAS);
Nilai:=25*tugas+25*uts+50*uas;
writeln;
write(' Jumlah Nilainya adalah : ',nilai);
writeln;
nilai_akhir:=nilai/100;
write(' NILAI AKHIR ANDA = ',nilai_akhir:0:2);
writeln;writeln;

case nilai of

0..2500 : writeln(' SORRY ',NAMA,'. NILAI ANDA = E. ANDA HARUS MENGULANG MATA KULIAH ',mata_kuliah,' INI');
2600..3900 : writeln('*** SORRY ',NAMA,'. NILAI ANDA = D ... BELAJAR YANG RAJIN DAN TETAP SEMANGAT *** ');
4000..6500 : writeln('***** ',NAMA,'. NILAI ANDA = C.. BERUSAHA LEBIH BAIK LAGI YA.. ******');
6600..7900 : writeln('*************** CONGRATULATION ',NAMA,'. NILAI ANDA = B ***************');
8000..10000: writeln('CONGRATULATION ',nama,'. NILAI ANDA = A. ANDA JAGO SEKALI DI ',mata_kuliah,' INI');
else
writeln('TIDAK ADA NILAI YANG DIMAKSUD');
writeln;
end;
readln;
end.



rogram Menghitung_akar_persamaan_kuadrat;
uses crt;
var A,B,C: integer;
x1,x2,D:real;
begin
clrscr;
writeln;
writeln(' MENGHITUNG AKAR PERSAMAAN KUADRAT ');
writeln('*************************************');
writeln;
write('koefisien A: ');read(A);
write('koefisien B: ');read(B);
write('koefisien C: ');read(C);WRITELN;
writeln(A,'x*x + ',B,'x + ',C,' = 0');
writeln;
if A=0 then
begin
writeln;
writeln('BUKAN PERSAMAAN KUADRAT');readln;
writeln;
end
else
begin
D:=(B*B)-(4*A*C);
writeln('Diskriminannya = ',d:2:2);readln;
writeln;writeln;
if D>0 then
begin
writeln('PERSAMAAN KUADRAT MEMPUNYAI 2 AKAR YANG BERBEDA');
writeln;
x1:=(-B+sqrt(D))/(2*A);
x2:=(-B-sqrt(D))/(2*A);
writeln('akar-akarya adalah : ',x1:2:2,' dan ',x2:2:2);
end
else
if D=0 then
begin
writeln('PERSAMAAN KUADRAT MEMPUNYAI AKAR YANG SAMA');
writeln;
x1:=-b/(2*A);
x2:=-b/(2*A);
writeln('akar-akarya : ',x1:2:2);
end
else
writeln('TIDAK MEMILIKI AKAR REAL');
end;
readln;
end.