I'm getting an error in statement in both of these. The error in statement occurs at the else in both of these.
var name: string;
numb: integer;
wt: integer;
AppFile: text;
procedure GETDATA (var localAppFile: text;
var localname: string;
var localnumb: integer;
var localwt: integer);
begin
readln (localAppFile, localname);
readln (localAppFile, localnumb);
readln (localAppFile, localwt);
end; {GETDATA}
procedure POSITION;
begin
if (numb < 10) and (wt < 180) then
writeln ('Accepted ');
else
begin
writeln ('Rejected ');
writeln ('Your weight is more than the given weight ');
writeln ('The number of cigarettes you smoke is over the limit ');
end;
end; {POSITION}
begin {main}
assign (AppFile, 'A:\AppFile2.dat');
reset (AppFile);
while not seekeof (AppFile) do
begin
GETDATA (AppFile, name, numb, wt);
POSITION;
end;
close (Appfile)
end.
****************************************
var state: string;
capital : string;
Statefile: text;
tries: integer;
guess: string;
procedure GETDATA (var localStatefile: text;
var localstate: string;
var localcapital: string);
begin
readln (localStatefile, localstate);
readln (localStatefile, localcapital);
end; {GETDATA}
procedure GUESS_CAPITAL (var tries: integer;
guess: string);
begin{GUESS_CAPITAL}
tries := 0;
repeat
tries := tries + 1;
write ('Give capital of ', state, ' ' );
readln (guess)
until (guess = capital) or (tries <= 4);
if guess = capital then
writeln ('Nice work. You got it on try ', tries);
else
begin{until}
writeln ('You did not get it in 4 tries or less');
writeln ('The correct answer is ' , capital)
end;{until}
end;{GUESS_CAPITAL}
begin {main}
assign (Statefile, 'A:\state2.dat');
reset (Statefile);
while not seekeof (Statefile) do
begin
GETDATA (Statefile, state, capital);
GUESS_CAPITAL (tries, guess);
end;
close (Statefile)
end.
if (numb < 10) and (wt < 180) then
writeln ('Accepted '); <-this semicolon does not belong in here if you're gona make an ELSE statement...
else
if guess = capital then
writeln ('Nice work. You got it on try ', tries); <-Same here...
else
If <condition> Then
<sentence>;
If <condition> Then
Begin
<sentence>;
<sentence>;
<sentence> {<- This last sentence before the End can be like this, without semicolon}
End;
If <condition> Then
<sentence>
Else
<sentence>;
If <condition> Then
Begin
<sentence>;
<sentence>
End
Else
<sentence>;
If <condition> Then
<sentence>
Else
Begin
<sentence>;
<sentence>
End;
If <condition> Then
Begin
<sentence>;
<sentence>
End
Else
Begin
<sentence>;
<sentence>
End;
See the path here??? Learn to use the IF-THEN-ELSE and the nested IFs Like:
If <condition1> Then
If <condition2> Then
If <condition3> Then
<sentence>
Will be like:
If <condition1> And <condition2> And <condition3> Then
<sentence>
And know how to use it like:
If <condition> Then
<sentence>
Else If <condition> Then
<sentence>
Else If <condition> Then
<sentence>
Else
<sentence>