Создать таблицы значений функции для аргумента, изменяющегося в пределах [X1;X2] с заданным шагом dX. X1, X2 и dX ввести с клавиатуры. Выполнить программу несколько раз, задавая различные значения исходных данных. С помощью ручного просчета убедитесь в правильности вычислений.
Вариант 1 Вариант 2
Вариант 3 Вариант 4
Вариант 5 Вариант 6
Вариант 7 Вариант 8
Вариант 9 Вариант 10
Вариант 11 Вариант 12
Вариант 13 Вариант 14
Вариант 15 Вариант 16
Вариант 17 Вариант 18
Вариант 19 Вариант 20
Вариант 21 Вариант 22
Вариант 23 Вариант 24
Вариант 25
Отчёт по лабораторной работе № 6
«Паскаль: запись циклических выражений»
Выполнил студент группы № 104150 Кунский И.И.
Проверил преподаватель Арабей А.В.
Минск 2011
Цель работы:изучить порядок организации циклических выражений.
Постановка задачи:
Составить алгоритм и программу расчета функции у=х3 на интервале [-2,18] с шагом 0,5 тремя вариантами задания решения.
Теория:
Под разные ситуации существуют различные циклические конструкции. В языке программирования Pascal их три, в соответствие с пунктами описанными выше. Самой универсальной и поэтому чаще других используемой конструкцией цикла является второй вариант (цикл while).
Цикл for
Часто цикл for называют циклом со счетчиком. Этот цикл используется, когда число требуемых повторений в программе точно известно до выполнения тела цикла. В заголовке цикла указываются два значения. Первое значение присваивается так называемой переменной-счетчику, от этого значения начинается отсчет количества итераций. В языке программирования Паскаль отсчет идет всегда с шагом равным единице. Второе значение указывает, при каком значении счетчика цикл должен прекратить выполняться. Легко понять, что количество итераций цикла определяется разностью между вторым и первым значением плюс единица. Тело цикла не должно содержать выражений, изменяющих счетчик.
Нужно понимать, что количество итераций цикла for известно именно до его выполнения, но не до выполнения всей программы. Так в примере ниже, количество выполнений цикла определяется пользователем. Значение присваивается переменной, а затем используется в заголовке цикла. Но когда оно используется, циклу уже точно известно, сколько раз надо выполниться.
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
for i := 1 to n do
write ('(*) ');
readln
end.
Цикл while
Цикл while является циклом с предусловием. В заголовке цикла находится логическое выражение. Если оно возвращает true, то тело цикла выполняется, если false – то нет.
Если тело цикла было выполнено, то ход программы снова возвращается в заголовок цикла. Условие выполнения тела снова проверяется (находится значение логического выражения). Тело цикла выполнится столько раз, сколько раз логическое выражение вернет true. Поэтому очень важно в теле цикла предусмотреть изменение переменной, фигурирующей в заголовке цикла, таким образом, чтобы когда-нибудь обязательно наступала ситуация false. Иначе произойдет так называемое зацикливание.
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
i := 1;
while i <= n do begin
write ('(*) ');
i := i + 1
end;
readln
end.
Цикл repeat
Цикл while может не выполниться ни разу, если логическое выражение в заголовке сразу вернуло false. Однако такая ситуация не всегда может быть приемлемой. Бывает, что тело цикла должно выполниться хотя бы один раз не зависимо от того, что вернет логическое выражение. В таком случае используется цикл repeat – цикл с постусловием.
В цикле repeat логическое выражение стоит после тела цикла. Причем, в отличие от цикла while, здесь все наоборот: в случае true происходит выход из цикла, в случае false – его повторение.
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
i := 1;
repeat
write ('(*) ');
i := i + 1
until i > n;
readln
end.
В примере, даже если n будет равно 0, одна звездочка все равно будет напечатана.
Ход работы:
1. Program Laba_6_pas_1;
var
x,y:real;
i,n:integer;
BEGIN
x:=-2;
repeat
y:=x*x*x;
writeln('x=',x:2:2,' y=',y:2:2);
x:=x+0.5;
until x>=18.5;
end.
2.Program Laba_6_pas_1;
var
x,y:real;
i,n:integer;
BEGIN
while x<=18 do
begin
y:=x*x*x;
writeln(x,y);
x:=x+0.5;
end;
end.
3.Program Laba_6_pas_1;
var
x,y:real;
i,n:integer;
BEGIN
n:=round(((18+2)/0.5)+1);
x:=-2;
for i:=1 to n do begin
y:=x*x*x;
writeln('x=',x:2:2,' y=',y:2:2);
x:=x+0.5;
end;
end.
Результат:
1.
Рисунок 1 – Результат первого алгоритма
2.
Рисунок 2 – результат второго алгоритма
3.
Рисунок 3 – Результат третьего алгоритма
Вывод: изучить порядок организации циклических выражений
