- •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, p: real; I, n: integer;
begin
write ('введите а — основание степени, а = ');
readln (a);
write ('введите целое n — показатель степени, n = ');
readln (n);
p:= 1;
for i: = 1 to n do
p: = p * a;
write ('p = ', p);
readln
end.
Перед текстом программы представлен протокол ее выполнения при возведении числа 2 в пятую степень. Таблица заполнена вручную, процесс ее заполнения называется отладкой программы. Отладка — это проверка всех этапов работы программы. Для сложных задач сначала составляется контрольный пример (тест) и программа выполняется человеком, который выполняет каждый оператор так, как его выполняет компьютер. Затем программу выполняет компьютер и сверяются все промежуточные, полученные при счете данные и конечные результаты. Только после полного совпадения программа выполняется с реальными данными. Для понимания работы программы, выполнения отдельных операторов полезно заполнять подобные протоколы для всех учебных задач.
2. Вычисление р = п! (п факториал).
По определению п!= 1 * 2 * 3 * ... * n. Используя предыдущую программу, вычислим р как произведение чисел от 1 до п, т. е. р каждый раз умножается не на одно и то же число, а на значение переменной цикла.
program E9;
Var p, I, n: integer;
begin
write ('введите целое п = ');
readln (n);
p:= 1;
for i: = 1 to n do
p: = p * i;
write (n,'! = ',P);
readln
end.
104
3. Составление таблицы значений функции у = sin x. Пусть требуется составить таблицу значений функции на отрезке [0;3.14] с шагом 0,1. Чтобы не определять количество повторений вычислений, можно воспользоваться циклом пока. Используя вывод вещественных чисел с фиксированной точкой, определим, что количество цифр после запятой в значении функции будет равно 5. Тогда все число, учитывая область значений синуса, займет семь позиций (числа положительные, значит, добавится позиция для десятичной точки и целой части числа).
Программа имеет вид:
program Е10;
Var X, у: real;
begin
x: = 0;
writeln (x : 10,'sinx' : 10);
while x< = 3.14 do
begin
y: = sin(x);
writeln (x: 10,' ',y : 7 : 5);
x: = x + 0.1
end;
readln
end.
При каждом выполнении цикла будет сначала проверяться условие (х ≤ 3.14), затем вычисляться значение функции, печататься аргумент х (для него отведено десять позиций, из них одна — для цифры дробной части) и, через три пробела, — значение функции. Наконец, для следующего шага цикла вычисляется новое значение аргумента (x увеличится на 0,1). Цикл пока позволяет изменять переменную цикла как угодно, увеличивая ее или уменьшая на любое число.
4. Суммирование чисел. При суммировании, как и при умножении нескольких чисел, необходимо накапливать результат в некоторой ячейке памяти, каждый раз считывая из этой ячейки предыдущее значение суммы и увеличивая его на очередное слагаемое. Пусть известно, что будет складываться п чисел. В этом случае надо п раз выполнить действие s: = s + a; здесь а — очередное число, вводимое с клавиатуры. Для первого выполнения этого оператора присваивания надо из ячейки
105
с именем s взять такое число, которое не повлияло бы на результат сложения. Следовательно, прежде чем начать выполнять цикл, надо поместить в эту ячейку (или, что то же самое, присвоить переменной s) число нуль. Программа имеет вид:
program E11;