1. Условие: Составить схему алгоритма и написать ВР-программу вычисления и вывода на экран дисплея таблицы значений заданной функции (см. табл. П. 1) при изменении значения аргумента в интервале от 0 до 1 с шагом 0.1.
Пример: функция – sin2x.
Вид таблицы:
x | y | } заголовок |
0.0 | 0.541 | таблица |
0.1 | 0.123 | |
· · · | ||
1.0 | 0.789 | } окончание |
2. Тексты программ:
PROGRAM z31;
(* 1-й способ с оператором цикла FOR *)
CONST
k=2; (* поименованная константа *)
str=‘*************************************’;
(* строка символов *)
VAR
x,y:REAL; (* аргумент и функция *)
i:INTEGER; (* переменная цикла *)
BEGIN
WRITELN (str);
WRITELN (‘* x * у *’);
WRITELN (str);
х:=0.0;
FOR i:=1 TO 11 DO
BEGIN
y:=SIN(k*x);
WRITELN (‘*’, x:17:8,‘*’, y:18:8,‘*’);
x:=x+0.1;
END;
WRITELN (str);
END.
3а) Схема алгоритма задачи 3 ( 1-й способ (цикл FOR) )
|
|
|
|
|
PROGRAM z32;
(* 2-й способ с оператором цикла WHILE *)
CONST
k=2; (* поименованная константа *)
str=‘*************************************’;
|
|
(* строка символов *)
VAR
x,y:REAL; (* аргумент и функция *)
BEGIN
WRITELN (str);
WRITELN (‘* x * у *’);
WRITELN (str);
х:=0.0;
WHILE х<1.1 DO
BEGIN
y:=SIN(k*x);
WRITELN (‘*’, x:17:8, ‘*’, y:18:8, ‘*’);
x:=x+0.1;
END;
WRITELN (str);
END.
3б) Схема алгоритма задачи 3 (2-й способ (цикл WHILE))
|
|
|
|
|
PROGRAM z33;
(* 3-й способ с оператором цикла REPEAT *)
CONST
k=2; (* поименованная константа*)
str=‘*************************************’;
(* строка символов *)
VAR
x,y:REAL; (* аргумент и функция *)
BEGIN
WRITELN (str);
WRITELN (‘* x * у *’);
WRITELN (str);
х:=0.0;
REPEAT
y:=SIN(k*x);
WRITELN (‘*’, x:17:8, ‘*’, y:18:8, ‘*’);
x:=x+0.1;
UNTIL x>l.l;
WRITELN (str);
END.
3в) Схема алгоритма задачи 3 (3-й способ (цикл REPEAT))
|
|
|
|
|