PROGRAM z2;

CONST

k=2; (* поименованная константа *)

VAR

x,y:REAL; (* аргумент и функция *)

BEGIN

WRITE (‘Введите значение аргумента — ’);

READ (x);

IF (x>=0) AND (х<=1) THEN

BEGIN

y:=SIN(k*x);

WRITELN (‘x=’,x, ‘y=’,y);

END

ELSE

WRITELN (‘Значение аргумента вышло за интервал 0-1’);

END.

3. Схема алгоритма задачи 2

Задача 3

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) )

 

 

Печать заголовка

Печать окончания

Печать строки

X – имя аргумента Y – имя функции K – коэффициент I – счетчик циклов

Объявление переменных

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))