Program: sprawdzający czy wprowadzone boki trójkąta utworzą trójkąt prostokątny.
Użytkownik podaje trzy boki trójkąta, następnie program sprawdza czy trójkąt o danych długościach boków może być trójkątem prostokątnym.
Kompilator: Turbo Pascal
Galeria:
Kod programu:
program prostokatnytrokjat;
uses crt;
var a,b,c,i : Integer;
var t,n : String;
begin
clrscr;
t:='Trokjat jest prostokatny';
n:='Trojkat nie jest prostokatny';
i:=1;
for i:=1 to 2 do
begin
write('Podaj liczbe a: ');
read (a);
write('Poadj liczbe b: ');
read (b);
write('Podaj liczbe c: ');
read (c);
if sqr(a)+sqr(b)=sqr(c) then write(i,'. Trojkat o bokach ',a,', ',b,', ',c,' - ',t)
else write(i,'. Trojkat o bokach ',a,', ',b,', ',c,' - ',n);;
writeln;
end;
readkey;
end.Słowniczek pojęć:
Twierdzenie geometrii euklidesowej dotyczące trójkątów prostokątnych, równoważne w istocie jest piątemu pewnikowi Euklidesa o prostych równoległych. W zachodnioeuropejskim kręgu kulturowym …