Dla ludzi o "mocach" nadprzyrodzonych
Dział na wstawianie rzeczy związanych z programowaniem, np. programy, pomoc dotycząca programów, itp.
Ja wrzucam pierwszy:
Program wyznaczający, która z 2 liczb rzeczywistych jest większa:
PROGRAM wieksza_mniejsza;
VAR
x,y,max:real;
BEGIN
writeln('Program wyznacza, która z podanych dwóch liczb jest większa');
write('Podaj pierwszą liczbę: ');
readln(x);
write('Podaj drugą liczbę: ');
readln(y);
IF x<y THEN
max:=y
ELSE
max:=x;
write('Liczba ',max:0:2,' jest większa.');
writeln;
readln;
END.
Edycja:
Program sprawdzający, która z trzech podanych liczb wyznaczy największą.
Program wieksza3;
var
x,y,z,max:real;
begin
writeln('Program wyznacza, która z podanych trzech liczb jest większa');
write('Podaj pierwszą liczbę: ');
readln(x);
write('Podaj drugą liczbę: ');
readln(y);
write('Podaj trzecią liczbę: ');
readln(z);
IF (x>y) and (x>z) THEN
max:=x
ELSE
IF (z>x) and (z>y) THEN
max:=z
ELSE
max:=y;
writeln('Liczba ',max:0:2,' jest większa od pozostałych.');
write('Wciśnij Enter, aby kontynuować...');
writeln;
readln;
end.
Offline