Программа на языке Pascal abc NET

Факультатив по информатике.

Программа генерации Пифагоровых троек на языкеPascalabcnet.

Автор: Алексей Владимирович Левченко

Задача:

Составить программу с иными операторами.

Формулы, для поcледовательности x² + y² = z²:

y = (x² : k - k) : 2; z = y + k

Программа построена на использованииwhile, if.

----------------------------------------------------------------

programWHILE_IF_Pythagorean_Triples_1;

varx, k: integer;

y, z: real;

begin

writeln('For x² + y² = z² – Enter X: ');

readln(x);

k:=0;

whilek <= sqr(x)/k do

begin

k := k + 1;

ifk <> 0then

y := (sqr/k - k)/2; z := y + k;

ify <> 0then

iffrac(y) = 0then

ifk <= sqr(x)/k then

println('Pythagorean Triple:',x,y,z);

end;

end.

---------------------------------------------

Адрес публикации: https://www.prodlenka.org/metodicheskie-razrabotki/538258-programma-na-jazyke-pascal-abc-net