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

Statement Decission (Keputusan) Dalam Bahasa C++

Cara Mencari Jumlah, Rata-Rata, Max dan Min di Excel

Contoh Script HTML Yang Sederhana