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.