program dwie liczby równe bądź większa;
uses Crt;
var a, b : integer;
begin
ClrScr;
Writeln('podaj liczby');
Readln(a, b);
if a = b then Writeln('liczby rowne')
else if a > b then Writeln('najwieksza liczba=',a)
else Writeln('najwieksza liczba=',b);
Readln;
end.
program wyświetlanie znaczkow;
uses Crt;
begin
ClrScr;
Writeln(`podaj wymiary prostokąta');
Readln(n,m);
For i:=1 to n begin
For i:=1 to m do Write(`x');
Writeln;
end;
readln;
end.
program Liczba_bezwzgledna;
uses Crt;
var x, w : real;
begin
ClrScr;
readln(x);
if w >= 0 then w := x else w := -x;
Writeln('Wartoosc bezwzgledna liczby x =',w);
readln;
end.
program najmniejsza z trzech;
uses Crt;
var a, b, c, min : integer;
begin
ClrScr;
Writeln('podaj trzy liczby');
Readln(a, b, c);
if a<b then if a<c then min := a
else min := c
else if b<c then min := b
else min := c;
Writeln('minimum =',min);
Readln;
end.
program rozwiazywanie_rownania kwadratowego;
uses Crt;
var a, b, c, delta, delta1, x1, x2 : real;
begin
ClrScr;
Writeln('podaj a,b,c');
Readln(a,b,c);
delta := b * b - 4 * a * c;
if delta < 0 then Writeln('nie ma rozwiazan')
else begin
delta1 := SQRT(delta);
x1 := (-b + delta1) / (2* a);
x2 := (-b - delta1) / (2* a);
if delta = 0 then Writeln('x=',x1)
else if delta > 0 then
begin
Writeln('x1=',x1);
Writeln('x2=',x2);
end;
end;
readln;
end.
program srednia;
var a, b, c, S, Sr: real;
begin
Readln(a, b, c);
S := a + b + c;
Sr := S/3;
Writeln('—rednia wynosi:',Sr);
Readln;
end.
program Sumowanie;
var i, n: integer;
Suma, a: real;
begin
Suma := 0;
Writeln(n);
for i := 1 to n do
begin
Witreln(a);
Suma := Suma + a;
end;
Writeln(,Suma);
end.
program Obliczanie_iloczynu;
uses Crt;
var i, n, iloczyn: word;
begin
ClrScr;
iloczyn := 1;
Writeln('podaj liczbe danych');
Readln(n);
for i := 1 to n do iloczyn:=iloczyn*i;
Writeln('iloczyn = ',iloczyn);
Readln;
end.
program czy da trojkat;
uses Crt;
var a, b, c : byte;
i : integer;
begin
ClrScr;
for i := 1 to 2 do
begin
Writeln('podaj miary bokow');
Readln(a,b,c);
If (a+b>c) and (a+c>b) and (b+c>a) then Writeln('da sie zbudowac')
else Writeln('nie da sie zbudowac');
end;
Readln;
end.
program trojkat_prostokatny ;
uses Crt;
var a, b, c : byte ;
i : integer ;
begin
ClrScr;
for i := 1 to 2 do
begin
Writeln('Podaj boki Trojkata');
Readln(a,b,c);
if (a*a+b*b=c*c) or (b*b+c*c=a*a) or (a*a+c*c=b*b) then Writeln('Tak')
else Writeln('Nie');
end;
Readln;
end.
Konsolidacja (linkowanie od ang. link - łączyć) to proces polegający na połączeniu skompilowanych modułów (plików zawierających kod obiektowy lub plików bibliotek statycznych) i utworzeniu pliku wykonywalnego lub rzadziej innego pliku obiektowego. Dodatkowo podczas konsolidacji do pliku wynikowego mogą być dołączone odpowiednie nagłówki i informacje charakterystyczne dla konkretnego formatu pliku wykonywalnego.