| Raptor |
program euro_to_pounds;
uses crt;
const
spc='';
var
pounds : real;
euros : real;
count : integer;
choose : integer;
rate : real;
Q : char;
procedure display_menu;
{displays menu}
begin
writeln(spc:23,'Conversion Menu');
writeln;
writeln(spc:20,'1..Euros - Pounds');
writeln(spc:20,'2..Pounds - Euros');
writeln(spc:20,'3..Quit');
end; {display menu}
procedure choice; {choose a choice}
begin
writeln; writeln;
writeln(spc:20,'Please choose a step 1,2,3');
readln (choose)
end;
procedure prompt;{prompt user for rate}
begin
writeln('Please enter the current conversion rate');
readln (rate);
end;
procedure convert_E; {conversion of euros-pounds}
begin
for count:= 1 to 10 do
begin
euros:= (rate/count);
writeln('Euro - Pounds:',euros:3:2);
end;
end;
procedure convert_P; {conversion of pounds-euros}
begin
for count:= 1 to 10 do
begin
pounds:= (rate*count);
writeln('Pounds - Euros:',pounds:3:2);
end;
end;
procedure c_choose;
{choosing a procedure from choice}
begin
case choose of
1 : convert_E;
2 : convert_P;
3 :
else
writeln('Invalid choice')
end;{case statement}
end;{c_choose}
begin {main program}
repeat
clrscr;
display_menu;
choice;
c_choose;
prompt;
until choose = 3;
end. |
|
|
