В 2_2 еще ошибка: i не меняется. - Я тут не совсем разберусь если честно.

Program zad_2_1;
USES PRINTER;
Var x,y: real;
i: integer;
Begin
x:=0;
for i:=5 to 10 do
begin
y:=x*x*x + 2sqr(sin(sqr(x+3)));
writeln ('x=', x:6:2, 'y=', y:6:2);
writeln (LST, 'x=', x:6:2, 'y=',y:6:2);
x:=i*0,5:
end;
End.
В паскале вроде работает, но не уверенна в правильности. Я уже совсем запуталась(

В 2_1 есть ошибки. Вот верный код:


for i:=0 to 10 do - мы ведь пробегаем 10 значений, от 0*0.5 до 10*0.5

x:=i*0,5; - должно быть в начале цикла и с точкой с запятой после выражения.

y:=x*x*x + 2*sqr(sin(sqr(x+3))); - добавлен символ умножения.

в 2_2 достаточно добавить в конец цикла, прямо перед end строчку
Inc(i);

Спасибо Вам огромное!!! До меня теперь дошло немного. А про случай в задаче 2_2 надо будет поискать материал, очень Вам благодарна!))

Пожалуйста))
Но вообще вот так делать - это что-то не то...
На мой взгляд ошибка закралась в само задание, потому что так делать не совсем правильно.
Перебирать элементы массива надо for'ом, а изменять величину до наступления значения - в цикле while.
Но... какое есть, такое и сделали)