Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program on calc using pascal

Critics Rating:

Users Rating:

program complex;

uses crt;

var

a,b,c,d,e,f,cho:integer;

procedure sum;

begin

clrscr;

writeln("ENTER THE REAL PART OF FIRST CN");

e:=a+b;

f:=c+d;

writeln("SUM IS ",e,"+i",f);

end;

procedure sub;

begin

clrscr;

e:=a+b;

f:=c+d;

writeln("SUB IS ",e,"-i",f);

end;

procedure pro;

begin

clrscr;

e:=a*c;

f:=b*d;

writeln("PRO IS ",e,"-i",f);

end;

begin (*MAIN*)

clrscr;

repeat

writeln("1. ADDITION ");

writeln("2. SUBSTRACTION ");

writeln("3. MULTIPLICATION ");

writeln("4. EXIT ");

write("ENTER YOUR CHOICE ");

read(cho);

case cho of

1.sum;

2.sub;

3.pro;

4.exit;

end;

until cho>=4;

end.



Courtesy, Source, References & Regards: Kishore AVGK

While using this site, you agree to have read and accepted our terms of use and privacy policy.
Copyright@2009-2011 by KuGuNi.com. All Rights Reserved.