(w zbiorze liczb rzeczywistych)') else if delta > 0 then begin x1 := ((- b) - sqrt(delta)) / (2 * a); x2 := ((- b) + sqrt(delta)) / (2 * a); writeln('X1 = ' , x1); writeln('X2 = ' , x2); end else begin x1 := (- b) / (2 * a); writeln('X1 = ' , x1); end; end; end.
Program obliczenia silni Program oblicza silnię dowolnej liczby naturalnej (w praktyce dowolność ta ograniczona jest zakresem danych typu). program silnia_liczby; var n: integer;
function silnia(n: integer): integer; begin if n = 0 then silnia := 1 else silnia := n * silnia(n-1); end;
begin writeln('Program oblicza silnię z dowolnej liczby'); write('Podaj liczbę: '); readln(n); writeln(n,'! = ',silnia(n)); end.
Program sortujący tablicę liczb W programie zaimplementowano sortowanie metodą bąbelkową. program sortowanie; const zakres = 99; var Liczby: array [1..zakres] of integer; i, j, k, n: integer;
procedure czytaj; begin writeln('Program sortuje dane metodą bąbelkową'); write('Podaj ile liczb należy przesortować: '); read(n); for i := 1 to n do begin write('Liczba nr ',i,' = ');