Potrzebuję program, który wybiera największą liczbę z 3. Napisany w PASCAL-u. Nie wiem co zrobiłem źle, narazie mam tylko coś takiego:
program Zad;
Uses CRT;
var A,B,C : Integer;
begin
clrscr;
Write('Podaj wartość 1 liczby i naciśnij Enter');
readln(A);
Write('Podaj wartość 2 liczby i naciśnij Enter');
readln(B);
Write('Podaj wartość 3 liczby i naciśnij Enter');
readln(C);
if A>B then
begin if A>C then
Writeln('Największą liczbą jest: ', A);
Else if B>A then
begin if B>C then
Writeln('Największą liczbą jest: ', B);
Else if C>B then
begin if C>A then
Writeln('Największą liczbą jest: ', C);
end.
end.
end.
end.
end.
end.
end.
end.
end.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
end masz w złym momencie
Spójrz jeśli 1 warunek będzie niespełniony program przeskakuje na sam koniec.
po za tym można łączyć warunki w pascalu (and)
if (A>B) and (A>C) then Writeln('Największą liczbą jest: ', A);
co prawda nie upraszcza to ale kod jest czytelniejszy
program nazwa;
uses crt;
var
a,b,c:integer;
begin
clrscr;
writeln('Podaj liczbe 1: ');
readln(a);
writeln('Podaj liczbe 2: ');
readln(b);
writeln('Podaj liczbe 3: ');
readln(c);
if ((a>b) and (a>c)) then
writeln('Najwieksza liczba to: ',a);
if ((b>a) and (b>c)) then
writeln('Najwieksza liczba to: ',b);
if ((c>a) and (c>b)) then
writeln('Najwieksza liczba to: ',c);
readln;
end.