1. Формула Герона

Треугольник задан тремя точками с координатами

-9; 3, 6; 5, 3; 3

Определить площадь треугольника с использованием формулы

Герона с точностью 1 знак после запятой.

2. Метод дихотомии

Найти решение уравнение на промежутке [1; 3] с точность 0.01

3. Метод Крамера

Найти решение системы трёх линейных уравнений с тремя

неизвестными методом Крамера

4. Метод Гаусса

Найти решение системы двух линейных уравнений с двумя

неизвестными.

1 ∙ 3 ∙ ! 11

3 ∙ 2 ∙ ! 11

5. Нахождение центра тяжести

Найти координаты центра масс (центр тяжести) однородной

плоской фигуры с точностью 0.01. Начало координат находится в

левом нижнем углу прямоугольника, содержащем фигуру и 1 клетка

равна все 5 заданий​

В Паскале есть стандартная функция Pos, которая возвращает начальную позицию вхождения подстроки в строку или 0, если такое вхождение не обнаружено. С её данная задача решается очень просто.

var
  s:string;
  ip,iv:integer;
begin
  Write('Введите строку: '); Readln(s);
  ip:=Pos('П',s); iv:=Pos('В',s);
  if ip*iv=0 then Writeln('П или В или обе не найдены в тексте')
  else
    if ip<iv then Writeln('П встретилось раньше В')
    else Writeln('В встретилось раньше П')
end.

Тестовое решение:
Введите строку: НА ЛУГУ ПАСЕТСЯ КОРОВА
П встретилось раньше В

Для вычисления среднего учащихся, сдавших экзамен, нужно просмотреть все n=30 учащихся и найти сумму s и количество k для тех учащихся, которые набрали более а затем получить и вывести s/k с нужной точностью.

const
  n=30;
var
  x:array[1..n] of integer;
  i,k,s: integer;
begin
  Randomize;
  Writeln('Результаты сдачи');
  k:=0; s:=0;
  for i:=1 to n do
  begin
    x[i]:=Random(101);
    Write(x[i]:4);
    if x[i]>20 then begin s:=s+x[i]; Inc(k) end
  end;
  Writeln;
  Writeln('Средний сдавших равен ',s/k:6:3)
end.

Тестовое решение:
Результаты сдачи
  39  10  74  74  46  61  22  11   6  48  17  62  21  98  69  54  12   4  38  72  53  46  92  16  87  67  34  44  45  86
Средний сдавших равен 57.913