Question

Практическая работа №22 Тема: Разработка линейных алгоритмовЗадание:1. Задача 1 Найти площадь треугольника со сторонами a,b и с (линейный алгоритм). Составить блок-схему. Набрать программу в PascalABC и протестировать.

Answer 1

Ответ:

Program zadacha;

var a, b, c, S, p:real;

Begin

Read (a,b,c);

p:=(a+b+c)/2;

S:=sqrt (p*(p-a)*(p-b)*(p-c));

Writeln('S=',S);

end.

Answer 2

Конечно, я могу помочь вам с этим заданием. Вот блок-схема для решения задачи "Найти площадь треугольника со сторонами a, b и с":

cssCopy code
┌───────────────┐
│ Ввод a, b, c  │
└───────┬───────┘
        │
        ▼
┌───────────────┐
│ Проверка     │
│ корректности │
└───────┬───────┘
        │
        ▼
┌───────────────┐
│ Вычисление   │
│ полупериметра│
└───────┬───────┘
        │
        ▼
┌───────────────┐
│ Вычисление   │
│ площади      │
└───────┬───────┘
        │
        ▼
┌───────────────┐
│ Вывод площади │
└───────────────┘

Теперь вот пример программы на языке PascalABC для нахождения площади треугольника:

pascalCopy code
program FindTriangleArea;
var
  a, b, c, s, area: real;
begin
  writeln('Введите длины сторон треугольника:');
  write('a: ');
  readln(a);
  write('b: ');
  readln(b);
  write('c: ');
  readln(c);

  { Проверка корректности сторон }
  if (a > 0) and (b > 0) and (c > 0) then
  begin
    { Вычисление полупериметра }
    s := (a + b + c) / 2;
    
    { Вычисление площади }
    area := sqrt(s * (s - a) * (s - b) * (s - c));
    
    writeln('Площадь треугольника: ', area);
  end
  else
    writeln('Введены некорректные значения сторон треугольника.');
  
  readln;
end.

Вы можете скопировать эту программу и вставить ее в среду разработки PascalABC. Затем вы можете протестировать программу, вводя различные значения сторон треугольника и проверяя получаемые результаты.

Обратите внимание, что программа предполагает, что пользователь будет вводить числа, а не строки или символы. Также обратите внимание, что программа выполняет проверку корректности введенных значений, чтобы стороны треугольника были положительными числами.