Webmaster - Darmowe skrypty PHP,MYSQL - Programowanie - Turbo Pascal

uses crt; var a,b,c,min2,min1, max:integer; promien:real; begin Writeln ('Program oblicza promien okregu wpisanego w trojkat prostokatny !!!'); Write ('Podaj wartosc boku a : '); readln (a); Write ('Podaj wartosc boku b : '); readln (b); Write ('Podaj wartosc boku c : '); readln (c); if (a>=b) and (a>=c) then begin max:=a; min1:=b; min2:=c; end ; if (b>=c) and (b>=a) then begin max:=b; min1:=a; min2:=c; end ; if (c>=b) and (c>=a) then begin max:=c; min1:=b; min2:=a; end ; if max<>sqrt(sqr(min1)+sqr(min2))then  begin {twierdzenie pitagorasa} writeln ('Trojkat nie jest prostokatny !!!'); halt ; {koniec} end ; Writeln ('Promien o...

program ilosc_wyrazow; uses crt; var zdanie:string; i,licznik:byte; begin Writeln ('Wpisz teraz jakies zdanie i nacisnij ENTER:'); writeln ; readln (zdanie); for i:=1 to length (zdanie) do if zdanie[i]=' ' then licznik:=licznik+1; writeln ; writeln ('Wyrazow w twoim zdaniu jest : ',licznik+1); end .

program sortowanie_liczb; uses crt; const size=10; var tab: array[1..size] of integer; tmp: integer; i, j: integer; begin clrscr ; for i:=1 to size do begin write (i, ' element: '); readln (tab[i]); end ; for i:=size downto 2 do for j:=size downto size+2-i do begin if tab[j-1]>tab[j] then begin tmp:=tab[j]; tab[j]:=tab[j-1]; tab[j-1]:=tmp; end ; end ; writeln ; for i:=1 to size do begin writeln (tab[i],' '); end ; readkey ; end .

program sortowanie_liczb; uses crt; const size=10; var tab: array[1..size] of integer; tmp: integer; i, j: integer; begin clrscr ; for i:=1 to size do begin write (i, ' element: '); readln (tab[i]); end ; for i:=size downto 2 do for j:=size downto size+2-i do begin if tab[j-1]<tab[j] then begin tmp:=tab[j]; tab[j]:=tab[j-1]; tab[j-1]:=tmp; end ; end ; writeln ; for i:=1 to size do begin writeln (tab[i],' '); end ; readkey ; end .