Membuat Kalkutator Dengan FreePascal
Membuat Kalkutator Dengan FreePascal
Di Posting Oleh : Admin
Kategori : Pascal Pemrograman Blog Tutorial, Teknologi dan Kesehatan: Mangaip Blog
Di Posting Oleh : Admin
Kategori : Pascal Pemrograman Blog Tutorial, Teknologi dan Kesehatan: Mangaip Blog
Kali ini saya akan memberikan contoh program kalkulator dengan menggunkkan FreePascal. Pada pemograman kalkulator ini diperlukkan kondisi if. Berikut ini adalah listingnya;
program kalkulator;
uses crt;
var a,b,h:real;
s:char;
begin
clrscr;
writeln('Membuat Program Kalkulator Dengan Free Pascal');
write('Masukkan angka ke-1 = ');readln(a);
write('Masukkan simbol (+-*/)= ');readln(s);
write('Masukkan angka ke-2 = ');readln(b);
if s='+' then h:=a+b;
if s='-' then h:=a-b;
if s='*' then h:=a*b;
if s='/' then h:=a/b;
writeln('Hasilnya adalah ',h:3:2);
readln;
end.
Dibawah ini adalah screenshot-nya..
Jika di running hasilnya akan seperti ini;
Sekian postingan saya kali ini, dan terima kasih telah berkunjung.
Komentar
Posting Komentar