Question

Помогите,пожалуйста, написать программу по теме "Ветвление в алгоритмах" для Pascal.Задача: определить существует ли треугольник со сторонами ABC и, если существует, то какой он (равнобедренный, равносторонний, произвольный). Заранее большое спасибо!

Answer 1

(*Pascal ABC.Net*)
program triangle;
var a,b,c: integer;
begin
write('Введите стороны:'); readln(a,b,c);
if (a=b) and (a=c) then
write('Треугольник равносторонний')
else if (a=b) or (b=c) or (a=c) then write('Треугольник равнобедренный')
else write('Треугольник произвольный');
end.

Answer 2

Конечно, я могу помочь вам написать программу по теме "Ветвление в алгоритмах" для языка Pascal. Вот пример программы, которая определяет, существует ли треугольник со сторонами ABC и, если существует, то какой он (равнобедренный, равносторонний, произвольный):

program TriangleType;

var
  A, B, C: Integer;

begin
  // Ввод сторон треугольника
  writeln('Введите стороны треугольника:');
  write('Сторона A: ');
  readln(A);
  write('Сторона B: ');
  readln(B);
  write('Сторона C: ');
  readln(C);

// Проверка существования треугольника
  if (A + B > C) and (A + C > B) and (B + C > A) then
  begin
    // Проверка типа треугольника
    if (A = B) or (B = C) or (A = C) then
    begin
      // Треугольник равнобедренный
      if (A = B) and (B = C) then
        writeln('Треугольник равносторонний и равнобедренный')
      else
        writeln('Треугольник равнобедренный');
    end
    else if (A = B) and (B = C) then
      writeln('Треугольник равносторонний')
    else
      writeln('Треугольник произвольный');
  end
  else
    writeln('Треугольник не существует');
end.

Эта программа запрашивает у пользователя стороны треугольника, а затем проверяет, существует ли треугольник с такими сторонами. Если треугольник существует, программа определяет его тип (равнобедренный, равносторонний или произвольный) и выводит соответствующее сообщение.

Надеюсь, эта программа поможет вам в вашем задании по ветвлению в алгоритмах на языке Pascal. Удачи!