Let's Make Calculator Program In Pascal!

-


Hi.. Friends, at this occasion, Let's try to make Calculator software Program in Pascal. You will just need TPW (Turbo pascal for Window as Compiler), or you can also can use Borland Delphi 5, 6 or 8.

Here is the source code :

Program Kalkulator;
uses wincrt;
var
op1 : real;
op2 : real;
opr : string;
hasil : real;
begin
write('Entry Bilangan 1 = '); readln(op1);
write('Entry Operator = '); readln(opr);
write('Entry Bilangan 2 = '); readln(op2);
If opr='+' then
hasil:= op1 + op2
else
if opr='-' then
hasil:=op1 - op2
else
if opr='*' then
hasil:=op1 * op2
else
if opr='/' then
hasil:=op1 / op2;
writeln;
writeln('Hasil adalah = ',hasil:0:2);
End.

IT' easy eanough, right. just try at home :)!

Created By Ader

Popular posts from this blog

Introduction to Use Case Diagram - Case study: Facebook

-
Image
At this session, will be explained about Use case Diagram. as we know, there are so many diagrams in UML for Analyse and design such as Use Case, Class diagram, Interaction, communication diagrams, etc. Use case can be created to explain business process from the system and to know the relationship between Actor and Use case itself. here is the sample of Facebook which is created in Astah community (Free UML tools) : From the pictures, can be explained that :  the User can update status, send message, edit his profile after he/she log on (in this part use "include"). the Extend in this session have a function as conditional, according to text book of AdegBoyage..continue
Read more

Sequential Search

-
Salam, berikut ini diberikan contoh program menggunakan Sequential Search menggunakan bahasa pemrograman Pascal. Silhakan saudara coba coding menggunakan tools Free pascal. program pencarian_SequenctialSearch; uses crt; const   Nmaks = 100; type   larikInt = array[1..Nmaks] of integer; var   L : larikint;   i : integer;  {indeks Larik}   n : integer;  {banyaknya elemen Larik used}   x : integer; {nilai dicaari}   idx : integer;   procedure bacaLarik(var L:larikInt; n : integer);   var     i : integer;   begin     for i := 1 to n do     begin       write('Masukan nilai L[',i,']:'); readln(L[i]);     end;   end;   procedure cetakLarik(L:larikInt; n : integer);   var     i : integer;   begin     for i := 1 to n do      begin        writeln(L[i]);      end; ...
Read more

Motivasi dan Semangat Menuntut Ilmu Agama Islam Sesuai Al-Qur’an dan Sunnah

-
 Menuntut ilmu dalam Islam adalah salah satu amal yang sangat mulia dan penting. Ilmu adalah fondasi kehidupan, terutama ilmu agama yang mengajarkan kita bagaimana beribadah dengan benar, menjalani kehidupan yang sesuai dengan tuntunan Allah dan Rasul-Nya, serta mencapai kebahagiaan di dunia dan akhirat. Dalam artikel ini, kita akan membahas motivasi dan semangat untuk menuntut ilmu agama Islam berdasarkan Al-Qur'an dan Sunnah serta hadits-hadits shahih dari Rasulullah shallallahu ‘alaihi wasallam dan para sahabat. * Pentingnya Ilmu dalam Islam Ilmu memiliki kedudukan yang sangat tinggi dalam Islam. Bahkan, wahyu pertama yang diturunkan kepada Rasulullah shallallahu ‘alaihi wasallam dimulai dengan perintah untuk membaca: *"Bacalah dengan (menyebut) nama Tuhanmu yang menciptakan. Dia telah menciptakan manusia dari segumpal darah. Bacalah, dan Tuhanmulah Yang Maha Pemurah, yang mengajar (manusia) dengan pena. Dia mengajarkan manusia apa yang tidak diketahuinya.”*   (QS. Al-...
Read more