Praktikum 2 Pengenalan variabel, Operasi Aritmetika, dan Input-Output

1. Program Operasi
program operasi1;
uses wincrt;
var bagi, hasilbagi, sisa: integer;
begin
bagi:=15/4;
hasilbagi:=15 div 4;
sisa:= 15 mod 4;
writeln('Hasil pembagian 15 oleh 4 adalah ',bagi);
writeln('Hasilbagi bulat 15 oleh 4 adalah ',hasilbagi);
writeln('Sisa pembagian 15 oleh 4 adalah ', sisa);
end.



2. Program Operasi 2
program operasi2;
uses wincrt;
var bil1, bil2:integer;
begin
write('Masukkan sebuah bilangan: ');
read(bil1);
write('Masukkan bilangan kedua: ');
readln(bil2);
writeln(bil1,' + ',bil2,' = ',bil1+bil2);
writeln(bil1,' - ',bil2,' = ',bil1-bil2);
writeln(bil1,' x ',bil2,' = ',bil1*bil2);
writeln(bil1,' : ',bil2,' = ',bil1/bil2:6:2);
writeln(bil1,' DIV ',bil2,' = ',bil1 div bil2);
writeln(bil1,' MOD ',bil2,' = ',bil1 mod bil2);

end.


3. Program SPLDV
Program SPL2v;
uses wincrt;
var a,b,c,d,e,f,det,x,y: real;
begin
writeln('Menyelesaikan SPL ax + by = c');
writeln(' dx + ey = f') ;
writeln;
write('Masukkan nilai a, b, c, d, e, f ');
writeln('(pisahkan dgn SPASI/ENTER):');
readln(a,b,c,d,e,f);
det:= (a*e-b*d) ;
if det <> 0 then
begin
x:= (c*e-b*f)/det; y:= (a*f-c*d)/det;
write('Penyelesaikan SPL di atas adalah (');
writeln(x:5:2,',',y:5:2,')');
end
else if (a/d <> c/f) then writeln('SPL di atas tidak konsisten!')
else
begin
writeln('SPL di atas mempunyai tak berhingga penyelesaian');
write('Bentuk umum penyelesaiannya adalah ');
writeln('x = ',-b/a:5:2,'y +',c/a:5:2);
end;
writeln('Tekan ENTER jika sudah paham ...');readln;
clrscr;
writeln('Terima kasih ... sampai ke Program berikutnya.') ;
writeln('Tekan ENTER untuk keluar program ...');readln;
donewincrt;

end.

4. Luas Segitiga Siku-siku
Program segi3lk;
uses wincrt;
var r,a,b,c,l,k: real;
n:integer;
begin
writeln('Menghitung luas segitiga siku-siku');
writeln('Masukkan panjang sisi-sisi tegak:');
write('a = ');readln(a); write('b = ');readln(b);
c:=sqrt(a*a+b*b); {sisi miring}
l:=a*b/2;  {luas segitiga}
writeln('OK! Luas segitiga tersebut adalah', l:5:3);
writeln('sedangkan panjang sisi miringnya = ',c:5:3);
writeln;
writeln('Tekan ENTER untuk melanjutkan...');readln;
clrscr; {bersihkan layar ...}
writeln('Menghitung keliling dan luas lingkaran jika
diketahui jari-jarinya');
write('Panjang jari-jari lingkaran, R = '); readln(r);
k:=2*pi*r; {keliling lingkaran}
l:=pi*r*r; {luas lingkaran}
writeln('Keliling lingkaran: K = ', k:5:3);
writeln('Luas lingkaran: L = ', l:5:3);
writeln;
writeln('Tekan ENTER jika sudah paham ...');readln;
clrscr;
writeln('Selesai. Mau keluar? Tekan tombol ENTER!') ;
readln; donewincrt;

end.