Примеры задач линейного алгоритма со вводом данных с клавиатуры
Сосчитать для переменных 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 константа определена в системе..