Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Строки в Pascal Дана строка символов. Определить количество букв 'о' между самой левой открывающийся до самой правой (если какие-либо скобки отсутствуют, ты вывести cоответстующие сообщение). Сначала написал... https://www.cyberforum.ru/ turbo-pascal/ thread243308.html Быстрая сортировка. Объясните 2 момента в сортировке пожалуйста. Turbo Pascal
Объясните пожалуйста вот этот момент: if L<j then QuickSort(L,j); if i<R then QuickSort(i,R); Зачем вообще это нужно. И ещё почему мы берём i<=j. И если не трудно, скажите нужно ли...
Turbo Pascal Где можно скачать Graph.tpu? Установил себе Turbo Pascal 7.1 а там нету Graph.tpu подскажите откуда можно скачать! Заранее спасибо https://www.cyberforum.ru/ turbo-pascal/ thread243300.html Turbo Pascal Для заданной матрицы образовать ряд, состоящий из номеров столбцов https://www.cyberforum.ru/ turbo-pascal/ thread243295.html
Для заданной матрицы образовать ряд, состоящий из номеров столбцов, в которых среднее арифметическое > последнего элемента и прибавить к элементам этих столбцов произведения первого на последний...
Turbo Pascal Найти среднее арифметическое числа а
Найти среднее арифметическое числа а.
Turbo Pascal Обработка Матриц Помогите пожалуйста с задачей) Надо сформировать произвольный двумерный массив целочисленных значений размера 6*6. И определить число повторений каждого из значений первой строки. Первая половина... https://www.cyberforum.ru/ turbo-pascal/ thread243278.html
Turbo Pascal логика https://www.cyberforum.ru/ turbo-pascal/ thread243275.html
Помогите пожалуйста решить логическую задачу на паскале!!!! Некий любитель приключений отправился в кругосветное путешествие на яхте, оснащенной бортовым компьютером. Его предупредили, что чаще...
Turbo Pascal Создайте свой собственный модуль для работы с комплексными числами.
Создайте свой собственный модуль для работы с комплексными числами. (сложение, вычитание, умножение).
Turbo Pascal Сформировать квадратную матрицу порядка n по заданному образцу https://www.cyberforum.ru/ turbo-pascal/ thread243271.html
Умные мальчики этого сайта)) Помогите пожалуйста решить две задачки иначе меня выгонят с работы((Буду вам очень благодарна. Для 1 (№73) Сформировать квадратную матрицу порядка n по заданному...
Turbo Pascal Блок-схема https://www.cyberforum.ru/ turbo-pascal/ thread243269.html
Добрый вечер! Прошу очень составить блок-схему на данную программу: Program zadanie; Var m: real; n: integer; Begin Write (' Введите массу m '); Readln ( m ); writeln('Введите во что...
Turbo Pascal Получение цифр из текстового файла
Здравствуйте! Имеется некая проблема...Требующая не столько решения, сколько пояснения :) Вот есть программка: Program Ptext; USES CRT; var f:text;
Turbo Pascal Создать файл, компоненты (количество <=8) Создать файл, компоненты (количество <=8) которого являются вещественными числами. После создания файла вычислить разность между значениями первой и последней компонентами файла. Исходный и... https://www.cyberforum.ru/ turbo-pascal/ thread243248.html
382 / 330 / 159
Регистрация: 06.12.2010
Сообщений: 894
15.02.2011, 23:22 0

Вычисление полинома по схеме Горнера - Turbo Pascal - Ответ 1372226

15.02.2011, 23:22. Показов 6626. Ответов 2
Метки (Все метки)

Ответ

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
30
31
32
program Gorner;
    uses crt;
    const nmax=100;
    var n,i:integer;
        A,B:array[1..nmax] of real;
        epsilon:real;
begin
  Randomize;
  Repeat
  Write('Kolichestvo elementov: ');
  Readln(n);
  Until (n > 1);
  Write('Vvedite epsolon: ');
  Readln(epsilon);
  Writeln('Vyvodim ishodn. elementy :');
  for i:=1 to n do
  Begin
    A[i]:=random(100);
    Write(A[i]:2:2,' ');
  End;
  Writeln;
  B[1]:=A[1];
  for i:=2 to n do
  Begin
    B[i]:=B[i-1]*epsilon;
    B[i]:=B[i]+A[i];
    Write(B[i]:2:2, ' ');
  End;
  Writeln;
  Writeln('Otvet: ', B[n-1]:2:2);
  
end.


Вернуться к обсуждению:
Вычисление полинома по схеме Горнера Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.02.2011, 23:22
Готовые ответы и решения:

Вычислить значение полинома по схеме Горнера
ПОМОГИТЕ МОЖАЛУЙСТА,НУЖНО НАПИСАТЬ ПРОГРАММУ: Вычислить: p(x)=a(n)x^n+a(n-1)x^(n-1)+...+a1x+a(o)...

Вычисление значения полинома, используя формулу Горнера
Составить блок-схему и программу для вычисления значения полинома, используя формулу Горнера....

Полином по схеме Горнера
Помогите найти ошибку, вроде все правильно, но почему-то в ответе всегда получается 0. program...

паскаль.вычислить по схеме горнера
11. Вычислить по схеме Горнера: a. y=x10+2x9+3x8+..+10x+11; b. y=11x10+10x9+9x8+…+2x+1.

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.02.2011, 23:22

Перевод числа n в 7 систему счисления по схеме Горнера
Необходимо перевести число n из 10 системы счисления в 7 систему счисления с помощью схемы Горнера.

Суммируя элементы по возрастанию степени x и по схеме Горнера
Нужна помощь по 8 примеру

Даны целые числа n0,d0,n1,d1,.,n7,d7,a,b (d0d1.d7b не равна 0) Вычислить по схеме Горнера
Даны целые числа n0,d0,n1,d1,...,n7,d7,a,b (d0d1...d7b не равна 0) Вычислить по схеме Горнера ...

Составить подпрограмму вычисления значение полинома n-го порядка по схеме Горнера
Здравствуйте. помогите пожалуйста. Задание: составить подпрограмму вычисления значение полинома...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.