Программа на Паскале. Начальные сведения. Подсчёт значения многочлена

@СергейУрФУ · Регистрация: 19.11.2016

Студворк — интернет-сервис помощи студентам

Добрый день всем участникам CyberForym.ru!
Прошу вас пролить свет на ошибку, которая мешает работать моей программе в которой следует найти значение многочлена z=a+b*x^2+c*x^3+d*x^4 после введения всех коэффициентов и значения переменной "x".
К сожалению, у меня до сих пор остался не закрытым старый долг по информатике. Какие-то задачи на PascalABC.NET, которые я уже решал сам и свашей помощью исчезли вместе с закрытием онлайн компилятора wde.pascalabc.net. Начав решать эти задачи заново (этого требует усложнившаяся ситуация с долгами в университете), я опять долго думаю над решением первой задачи. Это задание, по-моему ощущению, на столько простое, что мне даже стыдно просить у вас помощи в его решении. Мне удалось сравнить мой сегодняшний код с кодом, который вы мне, друзья, написали в похожей теме которую я создавал в предыдущем году для нахождения ошибки в этом же задании Программа на Паскале. Начальные сведения. Как оказалось в прошлом году, я давал программе задание подсчитать данные до того, как программа просила меня их ввести. Как я понимаю, в целом, у меня в этот раз решение похожее, за исключением этой указанной вами ошибки. Однако программа снова не выполняется на двух онлайн компиляторах https://www.jdoodle.com, http://rextester.com. Возможности скачать PascalABC.NET на свой компьютер у меня в данный момент нет (в компьютерных залах университета и библиотеки возможности запустить стороннюю программу на компьютере без логина и пароля администратора нет). Но, на сколько я помню, мне кто-то говорил, что нет сильной разницы в том, где компилировать написанную мной программу, на своём компьютере или на онлайн компиляторе.
Прошу вас подсказать в чём ошибка! Онлайн компиляторы, как я понимаю, пишут, что программа компилируется больше десяти (10) секунд и отказываются её выполнять.

Free Pascal Compiler version 3.0.2 [2017/02/16] for x86_64
Copyright (c) 1993-2017 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling jdoodle.pas
jdoodle.pas(1,9) Fatal: Syntax error, "identifier" expected but "const real" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode

Думаю, что ошибка опять очень простая, просто, из-за отсутствия опыта, она мне никак не попадается на глаза.

Pascal
1
2
3
4
5
6
7
8
program 1.1.1;
Var a,b,c,d,x,z:real;
Begin
WriteLn('Добрый день! Пожалуйста, введите по порядку значения фоэффициентов многочлена и значение "x".');
ReadLn(a,b,c,d,x);
z:=a+b*x*x+c*x*x*x+d*x*x*x*x;
WriteLn('Значение многочлена равняется ',z,'.');
end.

И в конце, прошу вас дать мне советы как искать ошибки и справляться с проблемой "мутной головы", когда глаза отказываются искать ошибку сами. Вы можете пройти по ссылке на мою старую тему по этой задаче (ссылка находится в тексте этой темы) и увидеть, какая ошибка была у меня там была ошибка во второй задаче. Хотя в лицее я решал и на массивы задачи и, может быть даже, на более трудные темы. Может быть какой-нибудь из ваших советов мне поможет и я начну решать такие задачи быстрее.

@Puporev · 15.02.2018, 16:40

Сообщение от СергейУрФУ

найти значение многочлена z=a+b*x^2+c*x^3+d*x^4 после введения всех коэффициентов и значения переменной "x".

Смотрите в Поиске темы по ключу Схема Горнера.

@СергейУрФУ · 15.02.2018, 17:45 **[ТС]**

Добрый день,

пользователи CyberForum.Ru! К сожалению у меня нет возможности запустить на указанных компиляторах даже ту старую программу, которую мне кто-то из вас мне присылал в прошлую тему. А она, на сколько я помню, запускалась на онлайн компиляторе wde.pascalabc.net. Думаю, проблема всё же в онлайн компиляторах. Мне бы хотелось найти хороший онлайн компилятор программ на PascalABC.NET... Прошу знающих людей подсказать мне таковой компилятор.

С уважением, Сергей Овчинников.

@volvo · 15.02.2018, 18:02

После изменения первой строки на легальную:

Pascal
1
program v1_1_1;

, rextester прекрасно компилирует код.

Строка program 1.1.1; не должна компилироваться, потому что 1.1.1 не является правильным идентификатором, которого ждет на этом месте компилятор.

Добавлено через 3 минуты

Сообщение от СергейУрФУ

хороший онлайн компилятор программ на PascalABC.NET...

Такого не существует, с момента, когда разработчики языка прикрыли эту лавочку. А кроме разработчиков этот диалект не нужен никому. От слова "совсем".

В чем проблема установить себе нужный компилятор и использовать его? PABC.NET способен работать (без использования графических и оконных модулей, только консольные приложения) даже под Linux-ом.

@СергейУрФУ · 16.02.2018, 10:07 **[ТС]**

Смотрите в Поиске темы по ключу Схема Горнера.

Добрый день,

Puporev! Благодарю вас за написание ответа в такие сроки!

К сожалению у меня нет понимания полезности схемы Горнера в решении моей проблемы. Пожалуйста, прошу вас уточнить её употребление в рамках моего вопроса!

@Puporev · 16.02.2018, 10:25

Сообщение от СергейУрФУ

найти значение многочлена z=a+b*x^2+c*x^3+d*x^4 после введения всех коэффициентов и значения переменной "x".

ax^4+bx^3+cx^2+dx+e //правильно записанный полином
z:=(((a*x - b)*x + c)*x - d)*x + e )//его значение по схеме Горнера
если какого-то члена нет, его коэффициент=0

Добавлено через 11 минут
Обычно коэффициенты пишут в виде массива.

Pascal
1
2
3
4
5
6
7
8
9
10
const n=5;//степень полинома
      x=1.2; //значение х
      a:array[0..n] of real=(1.3,-0.8, 1.8, 4.1, -7.4, 6.7);//массив коэффициентов
                                                            // а0 до a^n
var p:real;
    i:integer;
begin
p:=0;
for i:=0 to n do
p:=p*x+a[i];

@СергейУрФУ · 16.02.2018, 10:27 **[ТС]**

Добрый день,

Volvo! Благодарю за ответное сообщение в этой теме! К сожалению, у меня программа с вашими изменениями отказывает компилироваться на rextester.com. Как вы думаете, в чём может быть причина такой ситуации?

В качестве доказательства отправляю вам два изображения с экранами двух разных компиляторов (jdoodle.com/execute-pascal-online, http://rextester.com/).

Также мне хочется исправить свою ошибку, которая, по-моему мнению могла сбить вас с толку на счёт моего понимания ситуации с компилятором на сайте wde.PascalABC.NET. Вместо

хороший онлайн компилятор программ на PascalABC.NET...

, на сколько я помню, я хотел написать

хороший русскоязычный онлайн компилятор программ, похожий на wde.PascalABC.NET...

. Пожалуйста, коли вы зайдёте в эту тему снова и прочитаете данное сообщение, прошу вас подсказать русскоязычные онлайн компиляторы, похожие на wde.PascalABC.NET.

В чем проблема установить себе нужный компилятор и использовать его? PABC.NET способен работать (без использования графических и оконных модулей, только консольные приложения) даже под Linux-ом.

К моему сожалению, у меня нет своего домашнего компьютера или ноутбука на данный момент. Оттого мне приходится заниматься программированием на компьютерах читальных залов и библиотек.

@СергейУрФУ · 16.02.2018, 10:48 **[ТС]**

В чем проблема установить себе нужный компилятор и использовать его? PABC.NET способен работать (без использования графических и оконных модулей, только консольные приложения) даже под Linux-ом.

На сколько мне запомнилось, во время моих попыток запустить скачанный "exe" файл на одном из таких компьютерах, они просили меня ввести логин и пароль администратора. А таких данных у меня нет. Даже при их наличии, у меня могут быть разные компьютеры каждый новый день. Думаю, сотрудники читальных залов и библиотек были бы раздражены от моих частых просьб ввести логин и пароль перед установки данного програмного обеспечения.

Благодарю вас, Volvo и Puporev за помощь в решении моих проблем! Мне приятно ощущать такую поддержку в моменты моей беспомощности. Хочу пожелать вам крепкого духа, сильного тела и интересных задач!

Добавлено через 11 минут
Добрый день,

Puporev! Хочу поблагодарить вас за разъяснение вашего ответа! Думаю, на данный момент, мне стало понятно то, что вы имели ввиду.

К моему сожалению, я еще не повторил тему использования массивов в PascalABC.NET. Мне бы хотелось увидеть успешно скомпилированную программу в моём варианте. Как я понимаю, вы ведь не считаете его неправильным? К тому же, ваш коллега под именем Volvo написал об успешной компиляции моей программы с исправленной первой строкой.

Pascal
1
2
3
4
5
1
 
    
 
program v1_1_1;

Так как, думаю, мне предстоит компилировать еще много задач, мне бы хотелось найти причину, почему именно у меня два разных компилятора отказывается компилировать данную программу.

@Puporev · 16.02.2018, 11:21

Код по схеме Горнера будет такой

Pascal
1
2
3
4
5
6
7
8
9
10
var a,b,c,d,x,z:real;
begin
writeln('Введите коэффициенты многочлена a,b,c,d');
readln(a,b,c,d);
write('Введите значение х=');
readln(x);
//d*x^4+c*x^3+b*x^2+0*x+a  //правильно записанный полином
z:=(((d*x+c)*x+b)*x+0)*x+a;
write('z=',z:0:4);
end.

@СергейУрФУ · 16.02.2018, 12:03 **[ТС]**

Добрый день,

Puporev! Благодарю вас за написанную программу и правильно записанный полином (думаю, тут бы я думал долго)!

К моему сожалению, на сколько я понимаю, программы не компилируют даже эту программу. Прилагаю скопированные с экрана компьютера изображения после окончания компилирования написанной вами программы на двух онлайн компиляторах.

Мне становится понятней необходимость заводить с администраторами компьютерных залов, читальных залов, библиотек разговоры об установке стороннего программного обеспечения на их компьютеры.

С уважением, студент УрФУ группы МЕН-260303, Овчинников Сергей Владимирович.

@Puporev · 16.02.2018, 12:18

Строку 8 нужно переписать, это я показал что в многочлене нет элемента х^1.

Pascal
1
z:=(((d*x+c)*x+b)*x)*x+a;

@СергейУрФУ · 16.02.2018, 15:20 **[ТС]**

Добрый день,

пользователь CyberForum.Ru Puporev! Прошу у вас прощение за рассеянность! В моём предыдущем сообщении в данной теме я забыл добавить скопированные с экрана компьютера два (2) изображения сообщений об ошибках после попыток запуска исправленной с вашей помощью программы на двух (2) разных компиляторах (https://www.jdoodle.com/execute-pascal-online, http://rextester.com/).

Пользователь CyberForum.Ru Puporev, мне хочется поблагодарить за такую профессиональную поддержку в написании заданной мне в Уральском Федеральном Университете задачи. К моему сожалению, даже используя все ваши исправления, вышеупомянутые компиляторы выводят два (2) разных сообщения об ошибках после десяти (10) секунд ожидания после попытки запуска программы.

Привожу вам сообщение об ошибке, появившегося после попытки запуска исправленной вами, пользователь CyberForum.Ru Puporev, и вашим коллегой, пользователем CyberForum.Ru volvo, программы на первом (https://www.jdoodle.com/execute-pascal-online) компиляторе.

Free Pascal Compiler version 3.0.2 [2017/02/16] for x86_64
Copyright (c) 1993-2017 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling jdoodle.pas
Linking jdoodle
10 lines compiled, 0.1 sec

/usr/sbin/ld: warning: link.res contains output sections; did you forget -T?

JDoodle - Timeout - Some common reasons for Timeout
Your Program may have a endless loop
Please check the program and try again or contact JDoodle support at jdoodle@nutpan.com for more info.

Привожу вам машинный перевод сообщения об ошибке, появившегося после попытки запуска исправленной вами, пользователь CyberForum.Ru Puporev, и вашим коллегой, пользователем CyberForum.Ru volvo, программы на первом (https://www.jdoodle.com/execute-pascal-online) компиляторе.

Бесплатный компилятор Pascal версии 3.0.2 [2017/02/16] для x86_64
Авторское право (c) 1993-2017 гг. Флориан Клаемпф и другие
Целевая ОС: Linux для x86-64
Компиляция jdoodle.pas
Связывание jdoodle
10 строк, 0,1 с

/ usr / sbin / ld: warning: link.res содержит разделы вывода; ты забыл?

JDoodle - Тайм-аут - Некоторые общие причины тайм-аута
Ваша программа может иметь бесконечный цикл
Пожалуйста, проверьте программу и повторите попытку или обратитесь в службу поддержки JDoodle по адресу jdoodle@nutpan.com для получения дополнительной информации.

Привожу вам сообщение об ошибке, появившегося после попытки запуска исправленной вами, пользователь CyberForum.Ru Puporev, и вашим коллегой, пользователем CyberForum.Ru volvo, программы на втором (http://rextester.com/) компиляторе.

Error(s):
(4:9) Too many characters in character literal
(6:7) Too many characters in character literal
(10:7) Too many characters in character literal
(1:1) A namespace cannot directly contain members such as fields or methods

Привожу вам машинный перевод сообщения об ошибке, появившегося после попытки запуска исправленной вами, пользователь CyberForum.Ru Puporev, и вашим коллегой, пользователем CyberForum.Ru volvo, программы на втором (http://rextester.com/) компиляторе.

Ошибка (ы):
(4: 9) Слишком много символов в буквальном символе
(6: 7) Слишком много символов в буквальном буквале
(10: 7) Слишком много символов в символе буквально
(1: 1) Пространство имен не может содержать непосредственно элементы, такие как поля или методы

Пользователи CyberForum.Ru Puporev, volvo, прошу вас помочь мне определить причину ошибок такого типа или помочь мне найти подходящий мне компилятор, похожий на закрывшийся компилятор http://www.wde.pascalabc.net.

С уважением, студент УрФУ группы МЕН-260303, Овчинников Сергей Владимирович!

@СергейУрФУ · 16.02.2018, 15:23 **[ТС]**

Добрый день,

пользователь CyberForum.Ru Puporev и пользователь CyberForum.Ru volvo! Прошу у вас прощение за рассеянность! В моём предыдущем сообщении в данной теме я снова забыл добавить скопированные с экрана компьютера два (2) изображения сообщений об ошибках после попыток запуска исправленной с вашей помощью программы на двух (2) разных компиляторах (https://www.jdoodle.com/execute-pascal-online, http://rextester.com/).

Пользователь CyberForum.Ru Puporev и пользователь CyberForum.Ru volvo, мне ещё раз хочется попросить у вас прощения за допущенную ошибку и отправить скопированные с экрана компьютера два (2) изображения сообщений об ошибках после попыток запуска исправленной с вашей помощью программы на двух (2) разных компиляторах (https://www.jdoodle.com/execute-pascal-online, http://rextester.com/).

С уважением, студент УрФУ группы МЕН-260303, Овчинников Сергей Владимирович.

@СергейУрФУ · 16.02.2018, 15:35 **[ТС]**

Добрый день,

пользователь CyberForum.Ru volvo!

Мне хочется попросить у вас прощения за отсутствие понимания того, как следует вставлять ссылки на профиль пользователя, написавшего в теме, для дальнейшего его оповещений о моём ответе!

В данный момент мне думается, что у меня получилось найти данную функцию среди многих других функций вашего форума.

Отправляю вам копию моего сообщения, в котором я пытался ответить на ваше сообщение

После изменения первой строки на легальную:
PascalВыделить код
1
program v1_1_1;
, rextester прекрасно компилирует код.

Строка program 1.1.1; не должна компилироваться, потому что 1.1.1 не является правильным идентификатором, которого ждет на этом месте компилятор.

Добавлено через 3 минуты
Цитата Сообщение от СергейУрФУ Посмотреть сообщение
хороший онлайн компилятор программ на PascalABC.NET...
Такого не существует, с момента, когда разработчики языка прикрыли эту лавочку. А кроме разработчиков этот диалект не нужен никому. От слова "совсем".

В чем проблема установить себе нужный компилятор и использовать его? PABC.NET способен работать (без использования графических и оконных модулей, только консольные приложения) даже под Linux-ом.

без специальной ссылки на ваш профиль. Оттого мне думается, что вы навряд ли получили уведомление о моём ответе.

Пользователь CyberForum.Ru volvo, отправляю вам мой ответ на ваше сообщение еще раз в виде цитаты

В чем проблема установить себе нужный компилятор и использовать его? PABC.NET способен работать (без использования графических и оконных модулей, только консольные приложения) даже под Linux-ом.
На сколько мне запомнилось, во время моих попыток запустить скачанный "exe" файл на одном из таких компьютерах, они просили меня ввести логин и пароль администратора. А таких данных у меня нет. Даже при их наличии, у меня могут быть разные компьютеры каждый новый день. Думаю, сотрудники читальных залов и библиотек были бы раздражены от моих частых просьб ввести логин и пароль перед установки данного програмного обеспечения.

Благодарю вас, Volvo и Puporev за помощь в решении моих проблем! Мне приятно ощущать такую поддержку в моменты моей беспомощности. Хочу пожелать вам крепкого духа, сильного тела и интересных задач!

Добавлено через 11 минут
Добрый день,

Puporev! Хочу поблагодарить вас за разъяснение вашего ответа! Думаю, на данный момент, мне стало понятно то, что вы имели ввиду.

К моему сожалению, я еще не повторил тему использования массивов в PascalABC.NET. Мне бы хотелось увидеть успешно скомпилированную программу в моём варианте. Как я понимаю, вы ведь не считаете его неправильным? К тому же, ваш коллега под именем Volvo написал об успешной компиляции моей программы с исправленной первой строкой.
PascalВыделить код
1
2
3
4
5
1

program v1_1_1;
Так как, думаю, мне предстоит компилировать еще много задач, мне бы хотелось найти причину, почему именно у меня два разных компилятора отказывается компилировать данную программу.

.

С уважением, студент УрФУ группы МЕН-260303, Овчинников Сергей Владимирович.

@bormant · 16.02.2018, 15:36

Сообщение от СергейУрФУ

Привожу вам сообщение

Не надо приводить. Надо прочитать самому. Внимательно.
Если непонятно, то повторить необходимое количество раз до наступления понимания прочитанного.

Сообщение от СергейУрФУ

причину, почему именно у меня два разных компилятора отказывается компилировать данную программу

На первом скриншоте с JDoodle никаких ошибок компиляции нет. Программа откомпилировна, ожидает ввода данных. Данных ей в течение разумного времени вы не предоставили, сайт убил программу по истечении какого-то запланированного времени -- таймаута.

На rextester.com выбран язык C#, а текст на Pascal, было бы странно, если б компилятор C# "съел" программу на паскале.

@СергейУрФУ · 16.02.2018, 17:25 **[ТС]**

Добрый день,

пользователь https://www.cyberforum.ru bormant! Постараюсь кратко описать то, что меня беспокоит.

Программа, относительно который я стараюсь задавать вопросы:

Pascal
1
2
3
4
5
6
7
8
9
10
program v1_1_1;
var a,b,c,d,x,z:real;
begin
writeln('Введите коэффициенты многочлена a,b,c,d');
readln(a,b,c,d);
write('Введите значение х=');
readln(x);
z:=(((d*x+c)*x+b)*x)*x+a;
write('z=',z:0:4);
end.

.

1.

Не надо приводить. Надо прочитать самому. Внимательно.
Если непонятно, то повторить необходимое количество раз до наступления понимания прочитанного.

На первом скриншоте с JDoodle никаких ошибок компиляции нет. Программа откомпилировна, ожидает ввода данных. Данных ей в течение разумного времени вы не предоставили, сайт убил программу по истечении какого-то запланированного времени -- таймаута.

У меня не выводилось сообщение о необходимости ввода каких либо коэффициентов (хотя это прописано в вышеупомянутой программе). Первый компилятор предположил, что у меня возможно бесконечный цикл. Привожу в доказательство скопированный текст:

JDoodle - Тайм-аут - Некоторые общие причины тайм-аута
Ваша программа может иметь бесконечный цикл
Пожалуйста, проверьте программу и повторите попытку или обратитесь в службу поддержки JDoodle по адресу jdoodle@nutpan.com для получения дополнительной информации.

и первую фотографию внизу данного сообщения.

То есть, первый компилятор, как мне видится, не выполнил следующую часть когда:

Pascal
1
writeln('Введите коэффициенты многочлена a,b,c,d');

.

Куда мне надо было вводить данные? Почему компилятор после запуска думает десять секунд, а потом выводит сообщение о том, что у меня возможно бесконечный цикл? Разве он вывел мне сообщение о том, что я что-то должен был ввести?

3. Да, думаю, вы правду пишите в этой части сообщения:

На rextester.com выбран язык C#, а текст на Pascal, было бы странно, если б компилятор C# "съел" программу на паскале.

Хорошо. Я выбираю раздел Pascal на компиляторе http://rextester.com/l/pascal_online_compiler. Исправляю найденную вами ошибку. И что мы видим? Вторая и третья фотографии внизу сообщения. Сначала программа думает, не давая мне ничего написать. А после выводит мне сообщение об ошибке:

Процесс был убит, потому что он длился более 10 секунд. Ваш код ожидает ввода клавиатуры, который не поставляется?

. Но, как вы видите на второй приложенной мной фотографии, у меня нет возможности ввести свои данные (нет того окна для ввода, которое есть на вашем изображении), как нет и сообщения, предусмотренного следующей строкой кода:

Pascal
1
writeln('Введите коэффициенты многочлена a,b,c,d');

. Мне бы хотелось вас поддержать, но разбирая ваш ответ, у меня складывается ощущение, что вы не разбирались в моём вопросе и просто напросто решили написать мне, по моим ощущениям, резкий обвинительный ответ.

Итог.

Вы написали свою похожую, но не такую же программу и решили её запустить. Она запустилась. У вас даже появилось окно, которого не было у меня. Но причём здесь моя просьба о помощи! Мне приятно, что ваша программа работает. Но моя нет!

- При запуске у меня не выводится просьба о введении коэффициентов и неизвестного "x", прописанная в коде.
- Не выводятся никакие окна, где следует вводить требуемые для решения многочлена коэффициенты.
- После десяти секунд два компилятора выводят два разных сообщения об ошибке.
- Первый пишет, что у меня в программе возможно есть бесконечный цикл.
- Второй компилятор пишет, что возможно я не ввёл нужные данные. А компилятор попросил меня это сделать, как прописано в программе?

У меня нет большого желания заставлять вас на мои вопросы и просить вас помочь мне в запуске приведённого мною кода, коли у вас плохое настроение и вас всё раздражает. Но коли вы спокойны и сможете без лишних эмоций точно указать на совершённую мною ошибку, то я буду очень вам благодарен и признателен.

С уважением, студент УрФУ группы МЕН-260303, Овчинников Сергей Владимирович!

@СергейУрФУ · 16.02.2018, 17:31 **[ТС]**

заставлять вас отвечать*

@volvo · 16.02.2018, 17:37

Сообщение от СергейУрФУ

у меня нет возможности ввести свои данные

Если нажать на "+" рядом с "Show Input", и ввести в открывшееся поле ввода свои данные, а потом запустить программу на выполнение - то все будет прекрасно обработано и выведется ответ (я про rextester)

@bormant · 16.02.2018, 18:27

С JDoodle тоже каких-то особенных проблем нет ни в пакетном, ни в интерактивном режиме (если не считать путаницу в потоках ввода/вывода).
Так что совет прежний: читайте внимательно, вникайте, при необходимости перечитывайте.

@bormant · 16.02.2018, 18:51

Сообщение от СергейУрФУ

Первый компилятор предположил, что у меня возможно бесконечный цикл.

Не надо фантазировать, достаточно читать написанное.
JDoodle вам показал выхлоп компилятора (из него вы должны были вычитать, что компиляция завершилась без ошибок), запустил программу, не дождался завершения в течение заданного времени, убил ее, написал, об этом. Написал, что обычно причиной может быть бесконечный цикл. Если вы подумали, что это суждение сделано по результатам какого-то анализа, то подумали так зря.
Реальная причина -- ожидание ввода на Read/ReadLn.
То, что не вывелись аргументы Write/WriteLn -- при перенаправлениях буферизованного ввода/вывода бывают подобные сюрпризы, увидели очередное тому подтверждение.

Добавлено через 14 минут
Тем не менее, если нужно заставить JDoodle выводить, можно использовать вызовы Flush:

Pascal
1
2
3
4
5
6
7
8
9
10
var a,b,c,d,x,z:real;
begin
write('Введите коэффициенты многочлена a,b,c,d: '); Flush(output);
readln(a,b,c,d);
write('Введите значение х='); Flush(output);
readln(x);
//d*x^4+c*x^3+b*x^2+0*x+a  //правильно записанный полином
z:=(((d*x+c)*x+b)*x+0)*x+a;
write('z=',z:0:4);
end.

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@СергейУрФУ 0 / 0 / 0 Регистрация: 19.11.2016 Сообщений: 19
	15.02.2018, 17:45 [ТС]
	Добрый день, пользователи CyberForum.Ru! К сожалению у меня нет возможности запустить на указанных компиляторах даже ту старую программу, которую мне кто-то из вас мне присылал в прошлую тему. А она, на сколько я помню, запускалась на онлайн компиляторе wde.pascalabc.net. Думаю, проблема всё же в онлайн компиляторах. Мне бы хотелось найти хороший онлайн компилятор программ на PascalABC.NET... Прошу знающих людей подсказать мне таковой компилятор. С уважением, Сергей Овчинников. 0

@СергейУрФУ 0 / 0 / 0 Регистрация: 19.11.2016 Сообщений: 19
	16.02.2018, 12:03 [ТС]
	Добрый день, Puporev! Благодарю вас за написанную программу и правильно записанный полином (думаю, тут бы я думал долго)! К моему сожалению, на сколько я понимаю, программы не компилируют даже эту программу. Прилагаю скопированные с экрана компьютера изображения после окончания компилирования написанной вами программы на двух онлайн компиляторах. Мне становится понятней необходимость заводить с администраторами компьютерных залов, читальных залов, библиотек разговоры об установке стороннего программного обеспечения на их компьютеры. С уважением, студент УрФУ группы МЕН-260303, Овчинников Сергей Владимирович. 0

@СергейУрФУ 0 / 0 / 0 Регистрация: 19.11.2016 Сообщений: 19
	16.02.2018, 15:23 [ТС]
	Добрый день, пользователь CyberForum.Ru Puporev и пользователь CyberForum.Ru volvo! Прошу у вас прощение за рассеянность! В моём предыдущем сообщении в данной теме я снова забыл добавить скопированные с экрана компьютера два (2) изображения сообщений об ошибках после попыток запуска исправленной с вашей помощью программы на двух (2) разных компиляторах (https://www.jdoodle.com/execute-pascal-online, http://rextester.com/). Пользователь CyberForum.Ru Puporev и пользователь CyberForum.Ru volvo, мне ещё раз хочется попросить у вас прощения за допущенную ошибку и отправить скопированные с экрана компьютера два (2) изображения сообщений об ошибках после попыток запуска исправленной с вашей помощью программы на двух (2) разных компиляторах (https://www.jdoodle.com/execute-pascal-online, http://rextester.com/). С уважением, студент УрФУ группы МЕН-260303, Овчинников Сергей Владимирович. Миниатюры 0

@СергейУрФУ 0 / 0 / 0 Регистрация: 19.11.2016 Сообщений: 19
	16.02.2018, 17:31 [ТС]
	заставлять вас отвечать* 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	16.02.2018, 18:27
	С JDoodle тоже каких-то особенных проблем нет ни в пакетном, ни в интерактивном режиме (если не считать путаницу в потоках ввода/вывода). Так что совет прежний: читайте внимательно, вникайте, при необходимости перечитывайте. Миниатюры 1

Программа на Паскале. Начальные сведения. Подсчёт значения многочлена

Решение