2. Текст программы:

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

Вывод

результата

X – аргумент

S – сумма

K – коэффициент

Объявление

переменных

Ввод значения

Задача 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))

X – имя аргумента

Y – имя функции

K – коэффициент

Объявление

переменных

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

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

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

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

X – имя аргумента

Y – имя функции

K – коэффициент

Объявление

переменных

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

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

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

Задача 4

1. Условие: Составить схему алгоритма и написать ВР-программу вычисления суммы бесконечного ряда для заданного значения переменной и формулы общего члена ряда (см. табл. П. 1). Предусмот­реть завершение суммирования и печать результата при достижении очередным членом ряда абсолютной величины, меньшей, чем 0.0001.

Пример: значение переменной – 0.1;

Формула общего члена ряда