Задача на for Опции

[kvadrat]

помогите плиз, как решить эту задачу?

[mind abuse]

помогите плиз, как решить эту задачу?

Код

program t1;
uses crt;
var
x,y,delta_x,end_of_interval: real;
i,number_of_iterations: integer;

begin
clrscr;

writeln('i ','        xi','                yi');

delta_x:=0.1;
end_of_interval:=1;
number_of_iterations:=round(end_of_interval/delta_x);

for i:=0 to number_of_iterations do

begin
y:= Exp((-1)*i*delta_x)*(cos(i*delta_x)+1);
writeln(i,' ',i*delta_x,' ',y);
end;
readln;
end.

Только уберите лишние нули и таблицу обустройте по своему вкусу