Примеры на Pascal (часть 4)

Простой пример проверки треугольника. Является ли треугольник прямоугольным.

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.
. теорема пифагора в паскале дельфи код на теорему пифагора теорема пифагора паскаль
. дельфи код на теорему пифагора теорема пифагора в паскале теорема пифагора паскаль
Комментирование и размещение ссылок запрещено.

Top