Прочитайте задачу.

2. Выпишите известные и неизвестные переменные из задачи в виде:

Дано: a, b

Найти: x – корень уравнения.

3 Составьте математическую модель: x = b * a.

4. Составьте блок-схему

5. Запишите алгоритм на языке программирования

При составлении программы необходимы:

1) Объявление переменных a и b - вещественные типа двойной точности ;

2) Запись числа, введенного пользователем, в переменные a и b;

3) Объявление переменной x с одновременным присвоением ей значения;

4) Вывод строки, вещественного числа и перевод строки.

Для проверки правильности работы программы рекомендуется провести трассировку программы.

a b X=b*a примечание

8 5

7 4

9 3

Program razgovor;

uses crt;

var c1,c2,c3:integer;

    t1,t2,t3:integer;

begin

  Write('Введите цену разговора с первым пунктом, с1= ');

  Readln(c1);

  Write('Введите цену разговора со вторым пунктом, с2= ');

  Readln(c2);

  Write('Введите цену разговора с третьим пунктом, с3= ');

  Readln(c3);

  Write('Введите длительность разговора с первым пунктом, t1= ');

  Readln(t1);

  Write('Введите длительность разговора со вторым пунктом, t2= ');

  Readln(t2);

  Write('Введите длительность разговора с третьим пунктом, t3= ');

  Readln(t3);

  clrscr;

  Writeln('Общая стоимость разговора = ',c1*t1+c2*t2+c3*t3)

end.

var

  a:array[1..100, 1..100] of real;

  n, m, i, j:integer;

  Sr:real;

begin

  write('Введите количество строк матрицы '); readln(m);

  write('Введите количество столбцов матрицы '); readln(n);

  writeln('Исходный массив:');

  Sr := 0;

  for i := 1 to m do

  begin

    for j := 1 to n do

    begin

      a[i, j] := random(101) - 50;

      write(a[i, j]: 5:0);

      Sr := Sr + a[i, j];

    end;

    writeln;

  end;

  Sr := Sr / (n * m);

  writeln('Среднее арифметическое равно ', Sr);

  writeln('Элементы больше среднего арифметического:');

  for i := 1 to m do

    for j := 1 to n do

      if a[i, j] > Sr then

        writeln('a[', i, ', ', j, '] = ', a[i, j]);

end.