Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
1 / 1 / 0
Регистрация: 31.03.2012
Сообщений: 26

Ошибка ввода функции

02.04.2012, 18:45. Показов 1497. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program lagrang;
var
x,y:array[1..25]of real;
i,j,n :integer;
L,p,f:real;
Begin
writeln('ââåäèòå n');
readln(n);
writeln('ââåäèòå çíà÷åíèÿ x');
 for i:=1 to n do
 read(x[i]);
writeln('ââåäèòå çíà÷åíèÿ y');
 for i:=1 to n do
 read(y[i]);
writeln('ââåäèòå f');
 read(f);
L:=0;
for i:=1 to n do
 begin
 p:=1;
 for j:=1 to n do
 begin
 if i<>j then p:=p*(f-x[j])/(x[i]-x[j]);
 end;
 p:=p*y[i];
 L:=L+p;
 end;
writeln('L=',L);
End.
ввожу функцию не считывает y=ln(-3/(4*x-9)^3)
ребят подскажите в чем проблема
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.04.2012, 18:45
Ответы с готовыми решениями:

Ошибка ввода\вывода 104, файле не открыт для ввода (строка 0)
Всё работает, но пишет: &quot;ошибка ввода\вывода 104, файле не открыт для ввода (строка 0). Program pyat; uses crt; var...

Ошибка ввода/вывода 104 - файл не открыт для ввода
var a:array of integer; n,j,i,k: integer; f:text; begin assign(f,'C:\Users\Алла\Desktop\Универ\матрица.txt'); reset(f); ...

вторая попытка ввода функции
помогите с задачей:вычислить значение функции y=4X^3-2X^2+5 для значений X,изменяющихся от -3 до1 с шагом 0.1

3
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
02.04.2012, 18:54
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Александррррр1 Посмотреть сообщение
ввожу функцию не считывает
Естественно, ее не нужно вводить, а нужно вычислять.
Pascal
1
2
3
4
5
6
program lagrang;
function F(x:real):real;
begin
F:=ln(-3/exp(ln(4*x-9))/3);
end;
var.....
в программе вызывать ее

Добавлено через 52 секунды
Только нужно учитывать область определения, функции не везде определена.
0
1 / 1 / 0
Регистрация: 31.03.2012
Сообщений: 26
02.04.2012, 19:03  [ТС]
Pascal
1
2
 begin
 if i<>j then p:=p*(f-x[j])/(x[i]-x[j]);
в этой строке теперь выдает ошибку непонятную
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
02.04.2012, 19:08
f это имя функции и она должна вызываться с параметром, например f(x[i])
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
02.04.2012, 19:08
Помогаю со студенческими работами здесь

Ошибка ввода массива
1.Постановка задачи (не нужна) Дана действительная квадратная матрица порядка 10. В строках с отрицательным элементом на главной...

Ошибка ввода/вывода 102
{ Структуры данных на основе статического массива: - стек - очередь - список } const MaxIndex = 999; type

Ошибка ввода - программа завершена
Пишет: »*Ошибка ввода. Программа завершена (Program3.pas, строка 6) program primer; var y,x:real; begin writeln('Введите...

Ошибка ввода/вывода не могу найти
uses crt; type pup = record s_name, {oaieeey} name: string; {eiy} number, {? a?oiiu} est:...

Ошибка, файл не открыт для ввода
Procedure InpData(Var Group:Groups; Var N:TGroup); Var I:Integer; FF,GG,PP,NN,RR:Text; Begin ClrScr; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru