помогите пожалуйста программу поправить, надо что-то дописать или переделать, чтобы программа обходила значение 0
var y:array[1..5] of real;
x:integer;
begin;
x:=-3;
for x:=-3 to 3 do
begin
y[x]:=(cos(x)/sin(x))-x;
writeln('y[',x,']= ',y[x]:5:3);
end;
readln;
end.
Эскизы прикрепленных изображений
Поскольку у тебя X - целое, то можешь просто сравнить его с 0:
if x <> 0 then
begin
y[x] := (cos(x)/sin(x))-x;
{ Вывод полученного y[x] на экран }
end
else writeln('y[0] = n/a');
var y:array[-3..3] of real;, тогда ошибок не будет.
а куда это можно поставить в код?)
Добавлено через 4 мин.
аа все поняла))