begin writeln('Введите три числа'); readln(a); readln(b); readln(c); s := (a + b + c) / 3; writeln('Среднее арифметическое трех введенных чисел равно ', s); end.
Выделяют три наиболее распространенные на практике записи алгоритмов:
словесный (запись на естественном языке);графический (запись с использованием графических символов);программный (тексты на языках программирования).
Словесный записи алгоритмов
Словесный записи алгоритма на естественном языке. Данный очень удобен, если нужно приближенно описать суть алгоритма. Однако при словесном описании не всегда удается ясно и точно выразить логику действий.
В качестве примера словесного записи алгоритма рассмотрим алгоритм нахождения площади прямоугольника
S=a*b,
где S – площадь прямоугольника; а, b – длины его сторон.
Очевидно, что a, b должны быть заданы заранее, иначе задачу решить невозможно.
Словестный записи алгоритма выглядит так:
Начало алгоритма.Задать численное значение стороны a.Задать численное значение стороны b.Вычислить площадь S прямоугольника по формуле S=a*b.Вывести результат вычислений.Конец алгоритма.
№1 а) Результат выполнения: вывод p=75. б) Условие: Вычислить произведение элементов массива A , кратных 5 в) См. вложение.
№2 //PascalABC.Net 3.2 begin var a:=arrrandom (20, -10, 50); a.Println; for var i:=0 to 19 do if (a[i] mod 5)<0 then print(a[i]); end.
№3 begin var t:=arrRandom(85, -40, 50); var sum:=0; for var i:=0 to 84 do if (t[i] mod 2)=0 then sum+=t[i]; t.Println; for var i:=0 to 84 do if (t[i] mod 2)=0 then t[i]:=sum; t.Println; write ('Сумма=', sum); end.
№4 begin var x:=readreal('Введите x ='); var y:=readreal('Введите y ='); print ('D =', min(x-21,5*y+1)-min(x*5 +2, y*4-10)); end.
![Хоть с чем-то 1. для следующего фрагмента программы: program prog; uses crt; const a: array[1..8] of](/tpl/images/0712/2103/daaf5.jpg)
a, b, c: integer;
s: real;
begin
writeln('Введите три числа');
readln(a);
readln(b);
readln(c);
s := (a + b + c) / 3;
writeln('Среднее арифметическое трех введенных чисел равно ', s);
end.