Перечень заданий на контрольную работу №2

Задание 1.Создать программу, использующую цикл while…do или repeat…untilдля табуляции функции и аргумента (таблица 17). На каждом шаге параметр должен изменяться с указанным шагом D. При этом на каждом шаге на экран должно выводиться значение параметра, аргумента и функции. Вместо греческих букв в качестве переменных используйте их названия, например fi, alpha, lambda, teta и т.д.

Таблица 17 – Формулировка задания 1

вариант	функция	аргумент	параметр	шаг	константа
0.
1.
2.
3.
4.
5.
6.
7.

Продолжение таблицы 17

8.
9.

Задание 2.Создать программу с условным оператором if … then … else … , вычисляющую значение функции в зависимости от заданных условий и значений переменных (таблица 18). Независимая переменная(x или z) изменяется от –2 до 10 с шагом 0.5. При этом на каждом шаге на экран должно выводиться значение независимой переменной (x или z) и значение функции y. Использовать цикл while…doили for…to…do.

Таблица 18 – Формулировка задания 2

Вариант	Задание
	y =
	y =
	y=
	y =
	y =

Продолжение таблицы 18

	y =
	y =
	y =
	y =
	y =

Примеры программ

Пример 1. Подсчет количества нечетных среди n введенных чисел

programexample1;

varn, c, i, x: integer;

Begin

write('Введите n: ');

read(n);

c := 0;

fori:=1 ton do

Begin

write ('Введите целое число: ');

read(x);

ifx mod2 <>0 thenc:=c+1;

end;

writeln('Количество нечетных равно ', c);

end.

Пример 2.Расчет n первых значений последовательности Фибоначчи, в которой каждое последующее число последовательности образуется суммированием двух предыдущих.

programfibo;

varn, a, b, i, c: word;

Begin

write('Введите целое число n (n > 1): ');

read(n);

a:= 1;

b:= 1;

write(1, ' ', 1, ' ');

fori := 3 ton do

Begin

c:= a + b;

write(c, ' ');