Verificare le terne pitagoriche in pascal

Ecco un semplice programma per verificare le terne pitagoriche in pascal.

Non è difficile.

Usa il teorema senza radice quadrata così si possono usare gli interi.

L’unica parte rognosa è mettere in ordine crescente i numeri, ma forse lo rifarò usando il while…

Ecco il codice:

PROGRAM Terne_pitagoriche;
VAR a, b, c, aq, bq, cq :  INTEGER;
BEGIN
WRITELN('Inserire la terna pitagorica: ');
READLN(a, b, c);
IF(a>b) THEN
BEGIN
aq:=b;
b:=a;
a:=aq;
END;
IF(b>c) THEN
BEGIN
aq:=c;
c:=b;
b:=a;
a:=aq;
END;
IF(a>b) THEN
BEGIN
aq:=b;
b:=a;
a:=aq;
END;
aq:=a*a;
bq:=b*b;
cq:=c*c;
IF(aq+bq=cq) THEN
BEGIN
WRITELN(a, ', ', b, ', ', c, ' formano una terna pitagorica')
END
ELSE
BEGIN
WRITELN(a, ', ', b, ', ', c, ' NON formano una terna pitagorica');
END;
READLN
END.