Membuat Kalkutator Dengan FreePascal

Membuat Kalkutator Dengan FreePascal
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

Postingan populer dari blog ini

Pengertian dan Fungsi Ms Word 2010

Penggunaan Formula Pada Microsoft Excel

Pengertian dan Fungsi Microsoft Excel 2010