opracowa³ Jarek (Burda)
Program Rownanie_kwadratowe;
uses crt;
Var
a, b, c:Real;
x1, x2:Real;
delta:real;
BEGIN
Writeln('Podaj parametry a, b, c w rowaniu kwadratowym ax2+bx+c:');
Readln(a,b,c);
delta:=b*b-4*a*c;
If Delta<0 Then
Writeln('Rownanie nie posiada pierwiastkow!')
Else
Begin
x1:=(-b-sqrt(delta))/2*a;
Writeln('X1 = ', x1);
x2:=(-b+sqrt(delta))/2*a;
Writeln('X2 = ', x2);
End;
Readln;
END.
Sortowanie bħbelkowe
program sortowanie_babelkowe;
var
i,ile,j,bufor: longint;
A:array[1..50] of longint;
begin
writeln('podaj ilosc elem tab');
readln(ile);
for i:=1 to ile do
begin
writeln('wprowadz cyfre' ,i);
readln(A[i]);
end;
for i:=1 to ile-1 do
for j:=ile downto i+1 do
if A[j-1] > A[j] then
{ustawianie liczb w porzadku rosnacym}
begin
bufor :=A[j-1];
A[j-1] := A[j];
A[j] := bufor;
end;
for i:=1 to ile do
begin
write (' | ',A[i]);
end;
writeln;
readln;
end.
|