DELPHI CODE

Question 1

ffcurrency

Answer 1

formats the value with the currency included

Question 2

ffexponent

Answer 2

formats the value in scientific notain

Question 3

fffixed

Answer 3

formats the value with the number of decimals as specified

Question 4

string

Answer 4

address:=inputbox(‘address’,’enter the address’,’ ‘);

Question 4

example using ffcurrency

Answer 4

redoutput.lines.add(‘final amount’+#9+floattostr(rfinalamount,ffsurrency,6,2));

Question 4

ffgeneral

Answer 4

general number format. Includes decima;s oly when required

Question 4

ffnumber

Answer 4

corresponds to fffixed , but uses thousands separator

Question 5

integer

Answer 5

icount:= strtoint(iputbox(‘amount’,’enter the amount’,’ ‘);

Question 6

real

Answer 6

rsales:=strtoint(inputbox(‘sales’, ‘please enter the sales figure’ ,’ ‘));

Question 7

char

Answer 7

cclass:= inputbox(‘class’ , ‘ please enter the class ‘ , ‘ ‘)[1];

Question 8

general structure of the if statement

Answer 8

if <conditions> then
begin</conditions>

<statements> ;
end
else
begin
<statements> ;
end;
</statements></statements>

Question 8

case statement example

Answer 8

if imark>=80 then
csymbol:=’A’;
else
if imark>=70 then
csymbol:=’B’’;
else
if imark>=80 then
csymbol:=’A’;

Question 9

the while loop

Answer 9

var
isum , inumber :integer;

begin
isum:= 0;
inumber:= 1;

while inumber <10 do
begin
isum:=isum +inumber ;
inumber := inumber +2 ;
end ;

redoutput.lines.add(inttostr(isum));

Question 10

declaring an array

Answer 10

var
frmarray:tfrmarrays;
rrnumber:array[1..100] of integer;
icount: integer ;

Question 11

load numbers from a textfile into an array

Answer 11

var
tf:textfile;
stemp: string ;

begin
icount := 0;
assignfile(tf, ‘numbers.txt’);
reset (tf);

while not eof(tf) do
begin icount:= icount+1 ;
readln (tf,stemp );
arrnumbers [icount]:= strtoint(stemp ) ; end ;
closefile (tf) ;
end ;

Question 12

remove numbers that repeat in an array

Answer 12

var
ioutbound ,iinbound,ireplace : integer;

begin
for ioutbound := 1 to icount -1 do
begin
for iinbound:= ioutbound +1 to icount do
begin
if arrnumbers [ioutbound]= arrnumbers [iinbound ]
then
begin
for ireplace :=ioutbound to icount do
begin
arrnumbers[ireplace]:= arrnumbers [ireplace+1];
end;
end;
end;
end;

Question 13

show numbers from an array in a richedit

Answer 13

var
iforcount : integer;

begin
redoutput.clear ;
for iforcount:= 1 t icount do
begin
redoutput.lines.add(inttoatr(arrnumbers[iforcount]));

Question 14

find number (Item ) in an array

Answer 14

var
iforcount :iteger;
isearch:integer;
begin
isearch:= strtoint(edtfind.text);
for iforcount :=1 to icount do
begin
if isearch := arrnumbers[foricout] then
begin
showmessage (‘nummber found at :’ + inttostr(iforcount));
exit;
end;
end;
end;

Question 15

binary search in an array

Answer 15

var
iforcount :integer;
isearch , ilowbound ,iupbound , imiddle ,iposition : integer ;
bfound : boolean ;

begin
bfound := false ;
ilowbound :=1;
iupbound:=icount;
ipostion:= 0;
isearch:= strtoint(edtfind.text);

while (ilowbound<= iupbound) and ( bfound =false )
do
begin
imiddles :+ (ilowbound +iupbound ) di 2 ;
if isearch =arrnumber [imiddles ] then
begin
iposition:= imiddle;
bfound := true ;
end
else
if isearch > arrnumbers [imiddle ] then
ilowbound := imiddle+1 else
iupbound :=imiddle -1 ;
end ;

if bfound =true then
begin
showmeassage (‘number found at:’+ inttostr(ipostion ) );
end
else
begin
showmessage (‘number not found);
end
end ;

Question 16

selection sort

Answer 16

var
icountout , icountcomp, itemp :integer;

begin
for icountout :=1 to icount do
begin
for icountcomp:= icountout to icount do
begin
if arrnumbers [icountout]> arrnumbers [icountcomp]
then
begin
itemp:= arrnumbers [icountout];
arrnumbers[icountout]:=arrnumbers [icountcomp];
arrnumbers [icountcomp]:=itemp;
end;
end;
end;
end;

Question 17

bubble sort

Answer 17

var
itemp, icounter : integer;
bswap :boolean ;
begin

bswap:= true;
for icounter:= 1 to icount -1 do
begin
if arrnumbers [icounter]>arrnumbers [icounter+1] then
begin

itemp:= arrnumbers [icounter];
arrnumbers