TUGAS
PRATIKUM
PEMOGRAMAN
KOMPUTER
MENGGUNAKAN
TURBO PASCAL
Dosen: Muhammad Nur Khoirun, S.T.
ACHMAD SUTRISNO
NIM : 1210621008
PROGRAM STUDI
PRAKTEK PEMOGRAMAN KOMPUTER
FAKULTA TEKNIK ELEKTRO
UNIVERSITAS MUHAMMADIYAH JEMBER
2013
program membuat_identitas;
uses wincrt;
begin
writeln('
UNIVERSITAS MUHAMMADIYAH JEMBER ');
writeln('
FAKULTAS TEKNIK ELEKTRO ');
writeln('_________________________________________________________________________');
writeln;
writeln;
writeln(' Nama : Achmad Sutrisno');
writeln(' NIM : 1210621008');
writeln(' Mata Kuliah : Praktek Pemograman Komputer');
readln;
end.
program Menghitung_Volume_Balok;
uses wincrt;
var
lebar,tinggi,panjang,volume:integer;
begin
write('Masukkan panjang = ');readln(panjang);
write('Masukkan lebar =
');readln(lebar);
write('Masukkan tinggi =
');readln(tinggi);
volume:=panjang*lebar*tinggi;
write('Jadi,volume balok Volum = p x l x t adalah ');
write(volume);
end.
program Luas_Bujur_Sangkar;
uses wincrt;
var S:integer;
L:integer;
begin
write('
Masukkan sisi bujur sangkar = ');
readln(S);
L:=S*S;
write('
Luas Bujur sangkar = ',L);
end.
program Persamaan_Kuadarat;
uses wincrt;
var
a,b,c,x1,x2:real;
begin
writeln(' PROGRAM
MENCARI NILAI X');
writeln(' PADA
PERSAMAAN KUADRAT ');
writeln('
_________________________');
writeln;
write('masukkan nilai a =');read(a);
write('masukkan nilai b =');read(b);
write('masukkan nilai c =');read(c);
x1:=(-b+(sqrt(b*b)-(4*a*c)))/(2*a);
x2:=(b+(sqrt(b*b)-(4*a*c)))/(2*a);
writeln;
writeln('Dari data diatas dapat ditentukan');
writeln('nilai x1 & x2 sebagai berikut :');
writeln;
readln;
writeln('nilai x1 =',x1:4:2);
writeln('nilai x2 =',x2:4:2);
writeln;
writeln('S E L
E S A I');
readln;
end.
