Задача. Протабулювати функцію на проміжку з кроком .

Program Tabul;
var x, a, b, h, y: real;
begin
write (`Введіть значення a, b, h:`);
readln (a, b, h);
writeln (` x y=sin x `);
x:=a;
while x<=b+h/2 do
begin
y:=x*sin(x);
writeln (x:6:1, y:9:2);
x:=x+h;
end;
end.
Умова x<=b не завжди забезпечує попадання в останню точку x=b через особливості машинної арифметики. Тому тут використано умову x<=b+h/2. виконавши алгоритм, отримаємо таблицю значень заданої функції:

2. Цикли з наперед невідомою кількість повторень. Цикли з наперед невідомою кількість повторень не можна записати за допомогою команди для. Їх треба записувати за допомогою циклу «доки». Ось чому цикл «доки» є більш універсальним, ніж цикл «для».
Задача. Визначте суму парних чисел від 1 до 100.
Задача. Протабулюйте функцію на проміжку з кроком і обчисліть суму додатних значень функції.

IV. Підсумок уроку. Вчитель відповідає на питання учнів.
V. Домашнє завдання.
Вивчити конспект. Скласти програму виконання такої задачі:
Задача. Протабулюйте функцію на проміжку з кроком і обчисліть кількість від’ємних значень функції.
Задача. Визначте добуток непарних чисел від 1 до 76.