Pascalbalban, vki megtudná írni a pitagorasz tételes programot?

Nem, sajnos senki nem tudná.

Viszont ha bemásolod ameddig jutottál segíthetünk.

Nem tudom, hogy pontosan mire gondolsz.

Talán erre:

- olvass be három számot, és a program állapítsa meg, hogy azok lehetnek e egy derékszögű háromszög oldalhosszai.

- olvass be két számot (a, b), és a program számolja ki:

a² + b²-et?

Én írtam neked egyet, de szerintem a tanárod a büdös életben nem hiszi el, hogy te csináltad :)

program pitagorasz;

var befogo1, befogo2, atfogo : real;

hiba : integer;

s : string;

begin

hiba := 1;

while hiba <> 0 do

begin

Write('Kerem az elso befogot: ');

ReadLn(s);

Val(s, befogo1, hiba);

end;

hiba := 1;

while hiba <> 0 do

begin

Write('Kerem a masodik befogot: ');

ReadLn(s);

Val(s, befogo2, hiba);

end;

WriteLn('Az atfogo: ', sqrt(sqr(befogo1) + sqr(befogo2)):2:2);

ReadLn;

end.