Примеры решения задач на аЛгОритмическом языке паскаль
Задача 1
Составить программу двумя способами для вычисления функции согласно заданным условиям:
z =
1. Способ ( применение цикла с предусловием)
Описание алгоритма
1. Начало.
2. Определение const.
3. Ввод значений Xn,Xk,h.
4. Присвоение переменной X значения Xn, переменной Z значения Pi.
5. Начало цикла While (пока Х<=Xk).
6. Проверка условия Х<pi/7. Если выполняется, то переход к блоку 7, иначе к блоку 8.
8. Проверка условия X=pi/7. Если условие выполняется, то переход к блоку 9, иначе к блоку 10.
7,9,10. Вычисление значения функции для текущего значения аргумента.
11. Вывод на печать значений Х и У.
12. Увеличение числа Х на значение h, переход к блоку 5.
13.Конец.
Текст программы
Program exp3;
Uses crt;
Const pi= 3.14;
Var Xn, Xk, X, Y,H,Z:real;
begin
clrscr;
writeln(‘Введите через пробел Xn,Xk,h’);
readln(xn,xk,h);
x:=xn;
z:=pi;
while x<=xk do begin
if x<pi/7 then y:=sin(z)-cos(X)
else begin
if x=pi/7 then y:=sqrt(cos(x)+z)
else y:=sin(x)+cos(z)
end;
writeln(‘X=’,x:6:2,’ Y=’,y:8:2);
x:=x+h;
end;
ReadKey;
end.
Результат:
Введите через пробел Xn,Xk,h
4.5
5
0.2
X = 4.50 Y = -1.00
Х = 4.70 Y = -2.08
Х = 4.90 Y = 1.46
2. Способ (применение цикла с постусловием)
Описание алгоритма
1. Начало.
2. Определение const.
3. Ввод значений Xn,Xk,h.
4. Присвоение переменной X значения Xn, переменной Z значения Pi.
5. Проверка условия Х<pi/7. Если выполняется, то переход к блоку 6, иначе к блоку 7.
7. Проверка условия X=pi/7. Если условие выполняется, то переход к блоку 8, иначе к блоку 9.
6,8,9. Вычисление значения функции для текущего значения аргумента.
10. Вывод на печать значений Х и У.
11. Увеличение числа Х на значение h.
12. Проверка условия X>Xk. Если условие выполняется, то переход к блоку 13, иначе к блоку 5.
13.Конец.
Текст программы
Program exp2;
Uses crt;
Const pi= 3.14;
Var Xn,Xk,X,Y,H,Z:real;
begin
clrscr;
writeln(‘Введите через пробел Xn,Xk,h’);
readln(xn,xk,h);
x:=xn; z:=pi;
repeat
if x<pi/7 then y:=sin(z)-cos(X)
else begin
if x=pi/7 then y:=sqrt(cos(x)+z)
else y:=sin(x)+cos(z)
end;
writeln(‘X=’,x:6:2,’ Y=’,y:8:2);
x:=x+h;
until x>xk;
ReadKey;
end.
Результат:
Введите через пробел Xn,Xk,h
4.5
5
0.2
X = 4.50 Y = -1.00
Х = 4.70 Y = -2.08
Х = 4.90 Y = 1.46
(
3. Способ
применение цикла со счетчиком)
Назначение переменных
Xn - начальное значение интервала для переменной Х.
Xk - конечное значение интервала.
H - шаг изменения переменной Х.
Y - искомое значение функции при текущем значении аргумента.
K - количество итераций (шагов) выполнения циклического процесса для вычисления таблицы значений функции.
Z - переменная, значение которой определяется в программе.
Х - переменная цикла, содержит текущее значение для вычисления функции.
Описание алгоритма