如何比较 Pascal 中的 3 个数字？

Question

我是新手 我需要如何在 Pascal 中比较 3 个数字。

这是我目前尝试过的

BEGIN
max:=A;
IF B>A THEN max:= B;
IF C>B THEN max:= C;
END;

但是当我选择例如A = 5 , B=2 , C=4时，输出是4，但应该是5。问题出在哪里？

最后我要writeln('大数是',max);

Answer 1

你可以这样做（你应该与max比较）

BEGIN
max:=A;
IF B>max THEN max:= B;
IF C>max THEN max:= C;
END;

Answer 2

您必须与max 进行比较，而不是A 或B。 轻松更改代码：

BEGIN
  max := A;
  IF B > max
  THEN
     max := B;
  IF C > max
  THEN
     max := C; 
END;

Answer 3

或者，在最近的 Pascal 中，例如 Delphi 或 Free Pascal，使用 MATH 单元中的 max 函数。

result:=max(a,max(b,c));

Answer 4

使用帕斯卡的Max函数

PROGRAM MaxProgram;
USES math;
VAR
    num1,num2,num3,maxNum : INTEGER;
BEGIN
    (* Receive the Values *)
    WRITELN('Enter First Number');
    READLN(num1);
    WRITELN('Enter Second Number');
    READLN(num2);
    WRITELN('Enter Third Number');
    READLN(num3);
    (* Using the Max Function *)
    maxNum := max(num1,max(num2,num3));
    (* Display Result *)
    writeln('The Highest number is ', MAXNUM);
END.