Hai, terima kasih sudah mengunjungi blog ini. langsung saja tanpa basa basi berikut ini adalah codingan program kalkulator sederhana menggunakan bahasa pascal.
program kalkulator;
uses crt;
var
angka1, angka2, hasil : integer;
operasi : char;
begin
clrscr;
writeln('Selamat datang di Kalkulator Pascal');
writeln('-----------------------------------');
writeln;
write('Masukan operator (+, -, *, /): ');
readln(operasi);
write('Masukan angka pertama : ');
readln(angka1);
write('Masukan angka kedua : ');
readln(angka2);
writeln;
case operasi of
'+' : hasil := angka1 + angka2;
'-' : hasil := angka1 - angka2;
'*' : hasil := angka1 * angka2;
'/' : hasil := angka1 div angka2;
else
writeln('Operator tidak valid');
end;
writeln('Hasil operasi = ',hasil);
writeln;
writeln('Terima kasih jangan lupa SUBSCRIBE');
readln;
end.
Tidak ada komentar
Posting Komentar