Информатика. Программа Паскаль В строке 13 пишет "нет перегруженной подпрограммы с такими типами данных"
Program hh;
var x:array[1..100] of real;
k:integer;
begin
write('введите первые элементы и их количество');
write('x[1]=');
read(x[1]);
write('x[2]=');
read(x[2]);
write('n=');
read(k);
for k:=3 to k do begin
x[k]:=sin*sin(x)[k-1]+(cos(x*x*x)[k-2]-1/x[k-1]);
end;
for k:=1 to n do begin
writeLn('x[',k,']=', x[k]:8:3);
end;
end.
Информатика. Программа Паскаль В строке 13 пишет "нет перегруженной подпрограммы с такими типами данных"
Program hh;
var x:array[1..100] of real;
k:integer;
begin
write('введите первые элементы и их количество');
write('x[1]=');
read(x[1]);
write('x[2]=');
read(x[2]);
write('n=');
read(k);
for k:=3 to k do begin
x[k]:=sin*sin(x)[k-1]+(cos(x*x*x)[k-2]-1/x[k-1]);
end;
for k:=1 to n do begin
writeLn('x[',k,']=', x[k]:8:3);
end;
end.
Program hh;
var x:array[1..100] of real;
k:integer;
begin
write('введите первые элементы и их количество');
write('x[1]=');
read(x[1]);
write('x[2]=');
read(x[2]);
write('n=');
read(k);
for k:=3 to k do begin
x[k]:=sin*sin(x)[k-1]+(cos(x*x*x)[k-2]-1/x[k-1]);
end;
for k:=1 to n do begin
writeLn('x[',k,']=', x[k]:8:3);
end;
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Ошибка на строке 13 возникает из-за того, что вы пытаетесь использовать функцию sin или cos к массиву x, что некорректно. Возможно, вы имели в виду применить эти функции к элементам массива x. В этом случае, правильный синтаксис будет:
x[k]:=sin(x[k-1])sin(x[k-1])+(cos(x[k-2]x[k-2]*x[k-2])-1/x[k-1]);