Помогите. Не могу понять в чем ошибся. по условию z=x^2+xy; f= cosx^2 sin(2x-1)+4.29

Question

program war20;

uses crt;

var x,y,z,f:real;

i,k:integer;

begin

writeln('номер варианта i=');

readln(i);

x:=0; y:=1; k:=1;

while k<=i+5 do

begin

f:=cos(x)*(x)*sin(2*x-1)+4.29;

x:=x+f; y:=y+f;

end;

z:=x*x+x*y;

writeln('z=, z:5:2);

readkey;

end.

Olga Ch · Accepted Answer

Условия задачи не вижу. Есть формулы, а что с ними сделать - не сказано. А ошибка одна writeln('z=', z:5:2); - не закрытая кавычка
Ну и цикл у тебя бесконечный: k нигде не изменяется
Надо ВСЕГДА давать ПОЛНОЕ условие задачи. Может так?
while k<=i+5 do
begin 
f:=cos(x)*(x)*sin(2*x-1)+4.29;
x:=x+f; 
y:=y+f;
k:=k+1;
end;

Александр Плаксин · Answer

цикл здесь вобще не уместен! ! 
Подписывайся! ! vk.com /stud_programming поможем=)