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

[kvadrat]

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

[Lapp]

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

Сам пробовал делать? Начинал?
Покажи, что получилось. С чем конкретно сложности?

[mind abuse]

Попробуем) Скажите сразу - численные методы?)

[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.

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

[kvadrat]

На самом деле предмет называется Основы Алгоритмизации и Програмирования. Задачка шикарно работает спасибо большое, я её когда решал у меня нескольких переменых небыло. Завтра с компа за которым сижу в технаре скину и выложу сюда свой вариант решения.

Как и обещал:

program qwesdfsdf;
uses crt;
var i:integer;x,y:real;
begin
clrscr;
x:=0;
for i:=0 to 10 do
begin
y:=exp(-x)*(cos(x)+1);
writeln(x:5:2,y:5:2);
x:=x+0.1;
end;
writeln(' x    y');
end.

Сообщение отредактировано: kvadrat - 17.05.2008 13:41