Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Поменять элементы массива местами по условию https://www.cyberforum.ru/ pascal/ thread90765.html
В массиве A по менять местами числа таким образом: 1-ое число с 3-тим, 4-ое с 6 и т.д И просуммировать все элементы элементы находящиеся между ними.N- кратно 3
Подсчитать одинаковые слова в символьном файле. Pascal
Дан символьный файл f, содержащий произвольный текст длиной более 50 слов. Слова в тексте разделены пробелами и знаками препинания. Получить 10 наиболее часто встречающихся слов.
Pascal Определить, является ли квадратная матрица 10-го порядка симметричной относительно главной диагонали. https://www.cyberforum.ru/ pascal/ thread90757.html
Определить, является ли квадратная матрица 10-го порядка симметричной относительно главной диагонали. Напишите если не трудно полностью. На экзамене сижу.
Pascal Вывести на экран строки, размер которых больше среднего размера строки в файле Организовать текстовый файл, состоящий из N строк. Вывести на экран строки, размер которых больше среднего размера строки в файле https://www.cyberforum.ru/ pascal/ thread90756.html
Определить среднее арифметическое положительных чисел, находящихся до первого нулевого значения Pascal
решите такую задачу В массиве N чисел. Определить сред. ариф положительных чисел находящегося до первого нулевого значения и сумму нечетных чисел после первого нулевого значения
Pascal Пройдет ли график функции через заданную точку 1. Клоун предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату прибавьте 7». Потом клоун спросил у... https://www.cyberforum.ru/ pascal/ thread90748.html
Pascal Выбрать два числа b и c из массива таким образом, чтобы числа a,b,c могли быть длиннами сторон треугольника. Пусть даны вещественное число a и массив вещественных чисел Q. Выбрать два числа b и c из массива таким образом, чтобы числа a,b,c могли быть длиннами сторон треугольника. Из всех возможных чисел... https://www.cyberforum.ru/ pascal/ thread90742.html Найти произведение элементов главной диагонали матрицы. Pascal
Задача.Необходимо найти произведение элементов матрицы главной диагонали.
Pascal заполнить маирцу случайными числами.На главной диагонали разместить суммы элементов которые лежат на той же строке и том же столбце... .. https://www.cyberforum.ru/ pascal/ thread90736.html Pascal Если элемент матрицы на главной диагонали > 0, то эту строку рассортировать по возрастанию 1.Создать матрицы А и В. Если элемент матрицы на главной диагонали > 0, то эту строку рассортировать по возрастанию, обращаясь к процедуре сортировки одномерного массива (т.е. строки матрицы), иначе... https://www.cyberforum.ru/ pascal/ thread90726.html
Напечатать слова, отличные от последнего слова, которые симметричны Pascal
народ помогите пожалуйста решить задачу.... нужно срочно, а для того чтобы разобратся самому катострафически не хватает времени. Дана строка символов S, состоящая из латинских букв. Группы...
Pascal Максимальный элемент матрицы заменить средним арифметическим строки, в которой он находится решите пожалуйста задачу на двумерные массивы: В матрице D максимальный значение заменить средним арифметическим чисел строки, в которой находится максимальный элемент. заранее спасибо. https://www.cyberforum.ru/ pascal/ thread90724.html
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
29.01.2010, 14:45 0

Напишите функцию, которая рассчитывает значение полинома степени N. - Pascal - Ответ 512271

29.01.2010, 14:45. Показов 2316. Ответов 10
Метки (Все метки)

Ответ

Вот я немного по своему написал, считает правильно.
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
uses crt;
type mas=array[0..10] of real;
function Gorner(a:mas;x:real;n:byte):real;
var f,s:real;
    i:byte;
begin
f:=1;
s:=a[n];
for i:=1 to n do
 begin
  f:=f*x;
  s:=s+a[n-i]*f;
 end;
Gorner:=s;
end;
var i,n:byte;
    f,s,x:real;
    a:mas;
begin
clrscr;
write('Введите n=');readln(n);
write('Введите x=');readln(x);
writeln('Введите ',n+1,' коэфф. многочлена степени ',n);
for i:=0 to n do
readln(a[i]);
write('S=',Gorner(a,x,n):0:5);
readln
end.


Вернуться к обсуждению:
Напишите функцию, которая рассчитывает значение полинома степени N. Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2010, 14:45
Готовые ответы и решения:

Напишите программу, которая вводит натуральное число N и выводит на экран чётные положительные степени числа 2
Напишите программу, которая вводит натуральное число N и выводит на экран чётные положительные...

Напишите функцию, которая возвращает наименьшее из значений
Напишите функцию, которая возвращает наименьшее из значений |x-y|, |y-z|, |z-x|.

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

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

10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.01.2010, 14:45

F = 10! Напишите программу, которая рассчитывает числовой коэффициент. Примите решение пока, повторите . с циклами
F = 10! Напишите программу, которая рассчитывает числовой коэффициент. Примите решение пока,...

Описать рекурсивную функцию pow, которая рассчитывает величину по формуле
Описать рекурсивную функцию pow (x, n) от натурального х (х не равно 0) и целого n, которая...

Составить программу, которая рассчитывает среднее арифметическое значение элементов массива и производит замену всех
Дана прямоугольная матрица размерности M x N, состоящая из целых чисел, которые автоматически...

Напишите функцию Substring, которая принимает строку s и возвращает подстроку
Напишите функцию Substring(string s, Integer stratind, Integer length):String, которая принимает...

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