Question

how to make a pascal program for finding the largest of three numbers

Answer 1

function maximum(x, y: integer): integer;
  begin
    if y > x then
      begin
        x := y;
      end;
    maximum := x;
  end;

function maximum(x, y, z: integer): integer;
  begin
    x := maximum(x, y);
    x := maximum(x, z);
    maximum := x;
  end;

Answer 2

#include <stdio.h>

int main()
{
   int a,b,c,g=-32768;
   printf("enter 3 numbers  :  ");
   scanf("%d%d%d",&a,&b,&c);
   if(a>g)
     g=a;
   if(b>g)
     g=b;
   if(c>g)
     g=c;
     
   printf("greates of 3  :  %d",g);
   return 0;
}

Comments

well, that is not pascal ...

Answer 3

program largest;
uses crt;
var
max : real;
a,b,c:real;

begin
ClrScr;
max:=0;
writeln('Enter first number');
readln(a);
writeln('Enter second number');
readln(b);
writeln('Enter third number');
readln(c);
   if (a>max) Then
     max:=a;
   if(b>max) Then
     max:=b;
   if(c>max)Then
     max:=c;
   writeln('greates of 3 numbers is :  ',max:2:2);
writeln('Enter any number to continue');
readln();
end.

Comments

I'm pretty sure your solution doesn't work for negative numbers.

I'd just set `max := a` every time, and get rid of the condition for comparing `a` to `max`.

Answer 4

Whatever program you are using, all you need is three input variables. then a fourth variable that becomes the same as one of the variables only if larger then them. Compare the variable with all three in this way, and it will end up becoming the largest of the three. Then, print it.

Answer 5

The concept is to use either a series of inputs and store the largest based on the conditional from a loop, or to use a recursive method to resolve the challenge.

program Hello; var  input : Integer;       maxX : Integer; begin  maxX := -1;  REPEAT   write ('Enter a value (or -1 to exit) : ');   Readln(input);   if (input > maxX) then maxX := input;  UNTIL (input = -1)    WriteLn(maxX); end.

The above will solve for all positive values, the maxX is storing the largest value until the exit flag is entered. Adjust the exit flag (-1) to an alternative flag value if needed. 

There are additional approaches, this is however the simplest.

Answer 6

https://onlinegdb.com/BeAzxy8NF

var max,x,y,z:integer;
begin
    x:= 112;
    y:= 22;
    z:= 36;
    
    max := x;
    
    if max < y then max :=y;
    if max < z then max :=z;
    
    writeln (max);

end.