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.