Простой пример проверки треугольника. Является ли треугольник прямоугольным.
Program treugolnik; Var a, b, c : Integer; Begin Write ('Введите сторону a: '); //ввод стороны а Read (a); //чтение первой переменной Write ('Введите сторону b: '); //ввод стороны b Read (b); //чтение второй переменной Write ('Введите сторону c: '); //ввод стороны c Read (c); //чтение третьей переменной if (sqr(c))=(sqr(a) + sqr(b)) then WriteLn ('Треугольник прямоугольный ') else WriteLn('Треугольник не является прямоугольным'); End. //вычислялось по теореме Пифагора
Тоже самое, но при помощи массива:
Program treugolnik; Var storona: Array [1..3] of Integer; //массив из 3 элементов i: Integer; const kolvo = 3; //констатнта стороны же 3 Begin for i:=1 to kolvo do //в цикле получим вводимые элементы begin Write (Введите сторону треугольника ',i,': '); Read (storona[i]); end; if (sqr(storona[3]))=(sqr(storona[2]) + sqr(storona[1])) then WriteLn (‘Треугольник прямоугольный') else WriteLn(' Треугольник не является прямоугольным'); End.
А теперь при помощи Case:
Program treugolnik; Var storona: Array [1..3] of Integer; i: Integer; const kolvo = 3; Begin for i:=1 to kolvo do begin Case i of //через Case получим вводимые элементы 1: begin Write ('Введите сторону треугольника a: '); Read (storona[i]); end; 2: begin Write ('Введите сторону треугольника b: '); Read (storona[i]); end; 3: begin Write ('Введите сторону треугольника c: '); Read (storona[i]); end; end; end; if (sqr(storona[3]))=(sqr(storona[2]) + sqr(storona[1])) then WriteLn ('Треугольник прямоугольный') else WriteLn('Треугольник не является прямоугольным'); End.
Если заранее не известны стороны (гда какая). Переделаем первый код:
Program treugolnik; Var a, b, c : Integer; z: Integer; Begin Write ('Введите сторону 1: '); Read (a); Write ('Введите сторону 2: '); Read (b); Write ('Введите сторону 3: '); Read (c); if ( (sqr(c)=(sqr(a) + sqr(b))) or (sqr(b)=(sqr(a) + sqr(c))) or (sqr(a)=(sqr(b) + sqr(c))) ) then WriteLn ('Треугольник прямоугольный ') else WriteLn ('Треугольник не является прямоугольным'); End.. дельфи код на теорему пифагора теорема пифагора в паскале теорема пифагора паскаль