| COOL STUFF |
| TECHNOLOGY |
| LINKS |
 |
Welcome to our website
program math;
{ This program will contain various mathematical functions, much like
{ a scientific calculator. With the difference being that it asks you
{ questions.
}
uses
crt;
var
Flag : boolean;
Item,Bye : char;
{$i Power.inc }
{$i Hyperlib.inc }
{$i CrossPr.inc }
{$i DotPr.inc }
procedure menu;
begin { Menu }
clrscr;
gotoxy(32,2);
textcolor(0);
textbackground(1);
write(' Mathematics ');
textcolor(1);
textbackground(0);
normvideo;
gotoxy(4,5);
write(' A: Add ');
gotoxy(4,7);
write(' B: Subtract ');
gotoxy(4,9);
write(' C: Multiply ');
gotoxy(4,11);
write(' D: Divide ');
gotoxy(4,13);
write(' E: Exponents ');
gotoxy(4,15);
write(' F: Hyperbolic Functions ');
gotoxy(4,17);
write(' G: Cross Product ');
gotoxy(4,19);
write(' H: Dot Product ');
gotoxy(32,24);
write(' X: Exit ');
end; { Menu }
procedure SelectItem(var Item : char);
begin { SelectItem }
read(item);
case upcase(item) of
'A' : begin
clrscr;
Add;
readln
end;
'B' : begin
clrscr;
subtract;
readln
end;
'C' : begin
clrscr;
Mult;
readln
end;
'D' : begin
clrscr;
divide;
readln
end;
'E' : begin
clrscr;
UseOfPower;
readln;
end;
'F' : begin
clrscr;
Hyperlib;
readln
end;
'G' : begin
clrscr;
CrossPr;
readln
end;
'H' : begin
clrscr;
DotPr;
readln
end;
end; { Case }
end; { SelectItem }
Begin { Main }
clrscr;
flag := false;
while not Flag do begin
clrscr;
Menu;
SelectItem(Item);
if upcase(Item) = 'X' then
Flag := true
end;
end.
About Us
Content provided by VirtualeCorporation
