Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Задача на for
Автор: kvadrat 15.05.2008 0:43
помогите плиз, как решить эту задачу?
Автор: Lapp 15.05.2008 5:25
Цитата(kvadrat @ 14.05.2008 20:43) 
помогите плиз, как решить эту задачу?
Сам пробовал делать? Начинал?
Покажи, что получилось. С чем конкретно сложности?
Автор: mind abuse 15.05.2008 22:07
Попробуем) Скажите сразу - численные методы?)
Автор: mind abuse 16.05.2008 0:10
Цитата(kvadrat @ 14.05.2008 21:43)
помогите плиз, как решить эту задачу?
Код
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.
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 16.05.2008 1:35
На самом деле предмет называется Основы Алгоритмизации и Програмирования. Задачка шикарно работает спасибо большое, я её когда решал у меня нескольких переменых небыло. Завтра с компа за которым сижу в технаре скину и выложу сюда свой вариант решения.
Как и обещал:
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.