Praktikum Algoritma & Pemrograman 1

1. Program Inputkan Nama dan Operasi Matematika

var nim, nama :string;
a,b,jumlah,kurang,kali:integer;
bagi,rata : real;
begin
write(‘Masukkan NIM : ‘);
readln(nim);
write(‘Masukkan Nama : ‘);
readln(nama);
writeln(‘=======================’);
write(‘Masukkan Bilangan pertama : ‘);
readln(a);
write(‘Masukkan Bilangan kedua : ‘);
readln(b);
jumlah:=a+b;
kurang:=a-b;
kali:=a*b;
bagi:=a/b;
rata:=(a+b)/2;
writeln;
writeln(‘NIM Saya adalah : ‘, nim);
writeln(‘Nama Saya adalah : ‘, nama);
writeln(‘Hasil Penjumlahan : ‘,jumlah);
writeln(‘Hasil Pengurangan : ‘,kurang);
writeln(‘Hasil Perkalian : ‘,kali);
writeln(‘Hasil Pembagian : ‘,bagi:4:2);
writeln(‘Rata Ratanya : ‘,rata:4:2);
readln;
end.

2. Program Konversi Suhu

var c,f,r,k:real;

begin
writeln (‘Ini adalah Program Konversi Suhu’);

write(‘Masukkan Suhu Dalam Celcius ‘);
readln(c);
f:=(c*(9/5))+32;
r:=(c*(4/5));
k:=(c+273.15);

writeln(‘Suhu dalam fahrenhait adalah : ‘,f:6:2);
writeln(‘Suhu dalam reamur adalah : ‘,r:6:2);
writeln(‘Suhu dalam kelvin adalah : ‘,k:6:2);

readln;

end.

3. Program Menentukan Bilangan Positif dan Negatif

var n:integer;
begin
write(‘Masukkan Angka : ‘);
readln(n);
if (n > 0) then
begin
write(‘Bilangan Positif’);
end
else
begin
write(‘Bilangan Negatif’);
end;
readln;
end.