Решите ламерские задачки)), По паскалю =) Поделиться Опции

[K-E-N-N-Y]

Сам бы сделал,но все время ошибки вылетают,а заострять внимание на Паскале не хочу
1)Вычислить произведение для k+1/k+2,где k от 1 до 40 (оператор for).
2)Протабулировать функцию с помощью оператора for
y= 1,3x+1,29 если 1,3x<0
cos 1,3x если 1,3x=0.1
exp(1.3x)*cos1.3x если 1.3x>0
для x принадлежащему от [0.1;1.3]

с меня +3 к репе

Сообщение отредактировал K-E-N-N-Y - 9.4.2009, 15:39

[Fenja]

K-E-N-N-Y,
что т я видимо туплю

1)Вычислить произведение для k+1/k+2,где k от 1 до 40 (оператор for).

А само произведение то?

Протабулировать функцию

Эт вывести зависимоть y от x ведь?

1,3x<0

Это условие выполниться только при x< 0,

1.3x>0

А это при х=0,076923, а по условию х [0.1;1.3]. В чем прикол?
Причем у цикла for шаг равер 1, то есть цикл пройдет только один раз, если он от [0.1;1.3]

[K-E-N-N-Y]

Fenja,
Не произведение,а вычислить значение функции,где k 1 до 40
Так вот надо чтобы for брал не 1,а 0.1 сделать

Добавлено позже (9.4.2009, 16:40):
Протабулировать,значит найти все значения функции,т.е. если 1.3x>0 то выполняется exp(1.3x)*cos1.3x ,если другие условия,то другое.
а значения в 1.3x,где х- все значения от 0.1 до 1.3 с шагом 0.1...надеюсь понятно обьяснил

[T3D]

Ой, чёт плохо я паскаль помню, напишу примерно, может где будет синтаксис не тот, и если правильно понял задание.
1)
Program pr1;
var f:real;
k:integer;
begin
for k:=1 to 40 do
begin
f:=k+1/k+2;
writeln ('при k=',k,': ',f:5:2);
end;
readkey; //или readln;
end.

Добавлено позже (10.4.2009, 0:15):
2)
Program pr2;
var y,x:real;
k:integer;
begin
for k:=1 to 13 do
begin
x:=k/10;
if 1.3*x<0 then y=1.3*x+1.29;
if 1.3*x=0.1 then y=cos(1,3*x);
if 1.3*x=0.1 then y=exp(1.3*x)*cos1.3*x;
writeln ('при x=',x:3:1,': y=',y:5:2);
end;
readkey; //или readln;
end;

как-то так)))

Сообщение отредактировал T3D - 9.4.2009, 17:15