Примеры задач линейного алгоритма со вводом данных с клавиатуры

Сосчитать для переменных X, Y и Z сумму, произведение, сумму квадратов и среднее арифметическое

program Ariphmetika2;

var
  X, Y, Z, Summa, Pro, SummaKv, SA: Real;

begin
  ClS;
  Write('Введите X, Y и Z  ');  ReadLn(X, Y, Z);
  Summa := X + Y + Z;
  WriteLn('Сумма чисел X, Y и Z =', Summa);
  Pro := X * Y * Z;
  WriteLn('Произведение чисел X, Y и Z =', Pro);
  SummaKv := X * X + Y * Y + Z * Z;
  WriteLn('Сумма квадратов чисел X, Y и Z =', SummaKv);
  SA := (X + Y + Z) / 3;
  WriteLn('Среднее арифметическое чисел X, Y и Z =', SA);
  WriteLn('Good BYE!!!!!!!');
end.

Вот ещё 1 пример { Задача на линейный алгоритм Написать программу вычисления объема цилиндра. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). Требуется сделать такой вид экрана в процессе выполнения. Вычисление объема цилиндра Введите исходные данные: Радиус основания (см) —> 10 Высота цилиндра (см) —> 5 Объем цилиндра 1570.80 куб. см. Для завершения работы программы нажмите . Выше текст, включая этот, комментарий. Он заключён между 2 мя фигурными скобками }

program VolumeCil;

var
  R, H: Real;                                   {Это исходные переменные}
  Vol: Real;                                  {это мы ввели для вычисления объёма }

begin{Начало блока операторов }
  ClS;                                           {Очистка области ввода }
  WriteLn('Вычисление объема цилиндра');
  WriteLn('Введите исходные данные:');
  WriteLn;                                       {Пропуск строки, или печать строки пробелов}
  Write('Радиус основания (см) —> ');ReadLn(R);  {Вводим значение радиуса}
  Write('Высота цилиндра (см) —>  ');ReadLn(H);  {Вводим значение Высоты H}
  Vol := Pi * R * R * H;                            {Оператор вычисления объёма. Паскаль знает, что Pi=3.14159}
  WriteLn('Объем цилиндра ', Vol:7:2, ' куб. см.'); {Вывод результата }
end.

Задачи линейного алгоритма с вводом данных

№	Содержание
1	Написать программу сложения трех чисел А, В и С. и их обратных величин. Эти данные вводить с помощью Read.
2	Написать программу умножения трех чисел А, В и С. и вычисления их суммы. Эти данные вводить с помощью Read.
3	Написать программу вычисления среднего арифметического трех чисел А, В и С. Эти данные вводить с помощью Read.
4	Определить объем и площадь боковой поверхности параллелeпипеда для данных вводимых с клавиатуры A, В и Н.
5	Для задаваемого количества дней (Read DAYS)вывести на печать количества часов и минут.
6	Haписать программу, которая переводит значение скорости V (вводимого оператором Read) в размерности км/час в размерность м/сек.
7	Haписать программу, которая переводит значение скорости V (вводимого оператором Read) в размерности м/сек в размерность км/час.
8	Написать программу для вычисления площади круга радиуса R (вводимого оператором Read). Площадь круга вычисляется по формуле S=pi*R*R Где PI = 3.14159 константа определена в системе
9	Написать программу для вычисления длины круга радиуса R (вводимого оператором Read). Длина круга вычисляется по формуле L=2*pi*R. Где PI = 3.14159 константа определена в системе.
10	Написать программу для вычисления площади треугольника по основанию А и высоте Н (вводимых оператором Read). Площадь треугольника равна половине произведения основания на высоту.
11	Написать программу для вычисления площади трапеции по основанию А и В и высоте Н (вводимых оператором Read). Площадь трапеции равна полусумме оснований умноженной на высоту.
12	Найти объем шара по его диаметру (вводимого оператором Read) ,если известно , что его обьем равен 4/3*PI*R^3. Где PI = 3.14159 константа определена в системе.
13	Найти полную поверхность шара по его диаметру (вводимого оператором Read) ,если известно , что его поверхность равна 4*PI*R^2. Где PI = 3.14159 константа определена в системе..