Программа генерации Пифагоровых троек на языке Pascal abc net
компьютерная программа по информатике и икт (8 класс)

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

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

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

Задача:

Составить аналогичную программу, но с иными операторами, функциями и проч.

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

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

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

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

program WHILE_IF_Pythagorean_Triples_1;

var x, k: integer;

    y, z: real;

begin

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

    readln(x);

      k:=0;

while k <= sqr(x)/k do

  begin

    k := k + 1;

      if k <> 0 then

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

if y <> 0 then

  if frac(y) = 0 then

    if k <= sqr(x)/k then

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

end;

    end.

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

https://www.chitalnya.ru/work/3553639/

http://studlab.com/news/generator_vsekh_pfagorovykh_troek_na_paskale_abs_net/2023-05-15-1541

https://dxdy.ru/topic153881.html