Протабулировать функцию - Turbo Pascal (29037)

Формулировка задачи:

; при условии ; x=0,25(0,05)0,65

Решение задачи: «Протабулировать функцию»

Листинг программы

var x,a,y:real;
begin
x:=0.25;
while x<=0.65 do
 begin
  if x<0.5 then a:=1
  else a:=2;
  y:=exp(-a*x*sin(a));
  writeln('x=',x:4:2,' y=',y:5:3);
  x:=x+0.05;
 end;
end.

Объяснение кода листинга программы

Объявляются переменные x, a, y типа real.
Значение переменной x устанавливается равным 0.25.
Задается условие для цикла while: x <= 0.65.
В цикле while выполняется блок begin-end.
Внутри блока begin проверяется условие x < 0.5. Если оно истинно, то переменной a присваивается значение 1, иначе a присваивается значение 2.
Переменной y присваивается значение exp(-axsin(a)). Функция exp используется для вычисления экспоненты, а sin используется для вычисления синуса.
Выводится значение переменных x и y с помощью функции writeln. Формат вывода: 'x=', x:4:2,' y=', y:5:3. Здесь 4:2 означает, что число x будет выведено в формате с 4 знаками после запятой и 2 знаками до запятой.
Значение переменной x увеличивается на 0.05.
Цикл while повторяется, пока значение x не станет больше или равно 0.65.