Question

Napisz program, który spośród czterech podanych przez użytkownika liczb wybierze największą z nich i wypisze ją na ekranie. Spróbuj przewidzieć wszystkie trudne kombinacje liczb a,b,c i d. Czy może być problem w którymś z przypadków?

Program ma zostać napisany w PASCALU, początek już mam, zależy mi na części od if.

Mój początek

program cw3;
var
liczba1,liczba2,liczba3,liczba4:integer;
begin
writeln('Sposrod 4 podanych liczb zostanie wybrana najwieksza z nich');
writeln('Podaj liczbe 1');
readln(liczba1);
writeln('Podaj liczbe 2');
readln(liczba2);
writeln('Podaj liczbe 3');
readln(liczba3);
writeln('Podaj liczbe 4');
readln(liczba4);

Answer 1

Twoje rozwiązanie wymagałoby pisania masy drabinek if'ów, co byłoby kolokwialnie mówiąc "niefajne".

Tutaj moje rozwiązanie:

Var I, Num, Max: Integer;
Begin
  Max := 0;
  For I := 1 To 4 Do
  Begin
   Readln(Num);
   if (Num > Max) Then 
    Max := Num;
  End;

  Writeln(Max);
End.