Profesja team

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.