- •3.1. Язык программирования Паскаль
- •3.2. Структура программы в Паскале. Ввод и вывод данных.
- •Var ij:integer; X: real;
- •Var a,b: real;
- •3.3. Работа в системе Турбо Паскаль
- •3.4. Условный оператор
- •Var a, b: integer;
- •3.5. Организация циклов
- •Var a, b: integer;
- •Var a, b: integer;
- •Var a, b: integer;
- •Var a, p: real; I, n: integer;
- •Var p, I, n: integer;
- •Var X, у: real;
- •Var a, s: real; I, n: integer;
- •Var a: array [1 .. N ] of real;
- •1. Вычисление суммы элементов массива.
- •Var a: array [1 .. N ] of real; s : real; I: integer;
- •2. Нахождение наибольшего элемента массива.
- •Var a: array [1 .. N ] of integer; max, I: integer;
- •3. Упорядочение массива по возрастанию.
- •Var a : array [ 1.. N ] of real; I, j: integer; c: real;
- •4. Поиск элемента в массиве.
- •Var a : array [1 .. N ] of real; X : real; I : integer;
- •3.7. Алгоритмы обработки таблиц
- •1. Вычисление суммы элементов главной диагонали квадратной таблицы.
- •Var b: array [ 1..N, 1..N ] of real; I, j: integer;
- •Var b: array [ 1.. N, 1 .. N ] of real; I, j: integer; s: real;
- •2. Нахождение наибольших элементов каждой строки таблицы.
- •Var b: array [1 .. N, 1 .. N ] of integer; I, j: integer; a: array [1 .. N ] of integer;
- •3. Нахождение сумм элементов столбцов таблицы.
- •Var b: array [1 .. N, 1 .. N ] of integer; s, I, j: integer; a: array [1 .. N ] of integer;
- •4. Перестановка строк таблицы.
- •Var b: array [ 1 .. N, 1 .. M ] of real; c: real; I, j, k, l: integer;
Var a,b: real;
begin
write ('введите два числа через пробел, затем нажмите<Enter>');
readln (a, b);
write (' а + b = ', а + b, 'a*b = ', a*b, 'a - b = ', a- b);
readln
end.
Служебные слова Паскаля, выделенные жирным шрифтом, при наборе текста программы на клавиатуре никак не выделяются, их различает транслятор (синоним — компилятор). Поэтому служебные слова нельзя использовать в качестве имен. Первый оператор программного блока выводит на экран подсказку для пользователя — что он должен сделать. Для ввода данных рекомендуется создавать подобные подсказки.
При решении задач имена присваиваются не только исходным данным, но и результатам, а также получаемым промежуточным значениям. Поскольку в рассматриваемом примере надо получить три результата, введем для них переменные х, у, г. В программе этим переменным будут присвоены значения суммы, произведения и разности двух вводимых чисел.
program E2;
var a,b,x,y,z: real;
begin
write ('введите два числа через пробел, затем нажмите
<Enter>');
readln (a, b);
х: = а + Ь;
у:= а*Ь;
z: = а - Ь;
write ('a + b = ', х, ' а * b = ', у,' а - b =',z);
readln
end.
Вопросы и задания
Для чего необходимо описывать данные в программе?
Как описать переменные одного типа, например вещественного?
Какой оператор используется для ввода данных? Как он работает?
Куда попадают введенные с клавиатуры числа при работе оператора ввода?
Как перевести курсор на новую строку после ввода данных?
90
Как вывести результаты работы программы на экран дисплея?
Как сделать, чтобы данные выводились с новой строки?
Как увидеть результаты вывода на экране дисплея, если уже сработал write?
Можно ли получить результат вычислений без использования оператора присваивания?
Напишите программу вычисления среднего арифметического двух чисел.
Напишите программу вычисления расстояния между двумя точками плоскости.
Напишите программу вычисления площади треугольника по формуле Герона.
Напишите программу вычисления площади боковой поверхности куба.
Напишите программу вычисления площади и гипотенузы прямоугольного треугольника, если известны его катеты.
Напишите программу вычисления суммы модулей трех вещественных чисел.
Напишите программу вычисления площади круга, если известна длина окружности.
Напишите программу вычисления площади равностороннего треугольника.
Напишите программу возведения числа в четвертую степень за две операции.
Напишите программу возведения числа в седьмую степень за четыре операции.
Напишите программу определения времени встречи двух автомобилей, если известно расстояние между двумя пунктами, откуда они вышли навстречу друг другу одновременно, а также их скорости.
Напишите программу вычисления суммы арифметической прогрессии, если известен ее начальный член и разность, а также количество ее членов.
Указание: при работе на компьютере укажите разные форматы вывода чисел с фиксированной точкой, выполните программу для разных данных несколько раз.