this program calculates the highest of the three numbers
but when i input
number 1
number 2
number 3

as 1 , 2 , 3

it prints the highest number as 41
?????????????????

program highestofthree;

function highest(v1, v2, v3 : integer): integer;

begin
if v1 > v2 then
begin
if v1 > v3 then
begin
result := v1;
end
else
begin
result := v3;
end;
end
else
if v2 > v3 then
begin
if v2 > v3 then
begin
result := v2;
end
else
begin
result := v3;
end;

end;
end;

procedure main();

var
num1, num2, num3 : integer;

begin
writeln('Enter num1 :');
read(num1);
writeln('Enter num2 :');
read(num2);
writeln('Enter num3 :');
read(num3);

writeln();

writeln('The highest out of the three numbers is :', highest(num1, num2, num3));
end;




begin
main();

end.

: this program calculates the highest of the three numbers
: but when i input
: number 1
: number 2
: number 3
:
: as 1 , 2 , 3
:
: it prints the highest number as 41
: ?????????????????
:
: program highestofthree;
:
: function highest(v1, v2, v3 : integer): integer;
:
: begin
: if v1 > v2 then
: begin
: if v1 > v3 then
: begin
: result := v1;
: end
: else
: begin
: result := v3;
: end;
: end
: else
: if v2 > v3 then
: begin
: if v2 > v3 then
: begin
: result := v2;
: end
: else
: begin
: result := v3;
: end;
:
: end;
: end;
:
: procedure main();
:
: var
: num1, num2, num3 : integer;
:
: begin
: writeln('Enter num1 :');
: read(num1);
: writeln('Enter num2 :');
: read(num2);
: writeln('Enter num3 :');
: read(num3);
:
: writeln();
:
: writeln('The highest out of the three numbers is :', highest(num1, num2, num3));
: end;
:
:
:
:
: begin
: main();
:
: end.
:
You should check your if-then statements, because the result of the function is sometimes undefined.

hi
one thing you forget about the if..then statement is that you do not use semicolons anyhow so be carefull. where the semicolon is determines where the if statements ends.
for example get a look at this program :

program test;
var number:word;
begin
read(number);
if (number=10) then
writeln('you just entered the number 10');
else end.
this program will not even compile because the if statement ends at the level of the writeln statement.
if it is not clear then you can contact me for more explanation.

: hi
: one thing you forget about the if..then statement is that you do not use semicolons anyhow so be carefull. where the semicolon is determines where the if statements ends.
: for example get a look at this program :
:
: program test;
: var number:word;
: begin
: read(number);
: if (number=10) then
: writeln('you just entered the number 10');
: else end.
: this program will not even compile because the if statement ends at the level of the writeln statement.
: if it is not clear then you can contact me for more explanation.
:
:
I don't think the problem is the semicolons, because his program compiles fine. My guess is the actual conditions of the if-then statements are somehow mixed up.

: : hi
: : one thing you forget about the if..then statement is that you do not use semicolons anyhow so be carefull. where the semicolon is determines where the if statements ends.
: : for example get a look at this program :
: :
: : program test;
: : var number:word;
: : begin
: : read(number);
: : if (number=10) then
: : writeln('you just entered the number 10');
: : else end.
: : this program will not even compile because the if statement ends at the level of the writeln statement.
: : if it is not clear then you can contact me for more explanation.
: :
: :
: I don't think the problem is the semicolons, because his program compiles fine. My guess is the actual conditions of the if-then statements are somehow mixed up.
:
yep i think the same .. i m actually learning the language i m not familiar with the syntax of the language