Помощь - Поиск - Пользователи - Календарь
Полная версия: одномерный массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Rikki_Irena
помогите пожалуйста программу поправить, надо что-то дописать или переделать, чтобы программа обходила значение 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.
IUnknown
Поскольку у тебя X - целое, то можешь просто сравнить его с 0:

if x <> 0 then
begin
y[x] := (cos(x)/sin(x))-x;
{ Вывод полученного y[x] на экран }
end
else writeln('y[0] = n/a');

Только учти 2 вещи:
1) функции sin и cos считают что аргументы заданы в радианах, а не в градусах
2) у тебя массив неправильно описан, чтобы работать с такими иксами, с которыми тебе надо работать. Опиши его вот так:
var y:array[-3..3] of real;
, тогда ошибок не будет.
Rikki_Irena
а куда это можно поставить в код?)

Добавлено через 4 мин.
аа все поняла))
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.