Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Рекуррентная формула Можете помочь с данной задачей?(Название темы неправильное подобрал) https://www.cyberforum.ru/ pascal/ thread2767666.html	Pascal Алфавит и моя ошибка нумерации Решил я вывести буквы от A до Z (это у меня получилось), потом подумал.... неплохо бы пронумеровать бук с 1-А до 26-Z, но тут моя ошибка.. var i : Char; s, n : Integer; begin for i:='A' to 'Z' do for s:= 1 to 26 do Write(i); Write(s); end.
Pascal Удалить из слов текста все предыдущие вхождения последней буквы каждого слова Здравствуйте! Помогите пожалуйста написать код к задаче Задача: Дана последовательность символов. Преобразовать ее следующим образом: удалить из слов этого текста все предыдущие вхождения последней буквы каждого слова. Не могу понять ,как реализовать решение задачи на языке паскаль :( https://www.cyberforum.ru/ pascal/ thread2767386.html	Pascal Поиск корней уравнения https://www.cyberforum.ru/ pascal/ thread2767337.html Добрый вечер. Необходимо найти корни уравнения. Два метода. Итераций и половинного деления. Вроде бы всё решил, но считает неверно Начальные приближения: -2.9;0;2.2 Уравнение: Код программы: program Корни; Var X, XL, XP, FL, FX, X0, X00, X1, dx, eps: real;
Вычисление суммы ряда с заданной точностью Pascal Вычислить y = x - x2/2 + x3/3 - ... + (-1)n-1xn/n + ... с точностью eps = 0.00001, где \|x\|<1. Сравнить результат с вычисленным через стандартную функцию значением y = LN(1+x).(PASCAL) Помогите решить задачу на Pascal`е	Pascal Вычислить сумму с точностью eps = 0.0001 и сравнить результат с вычисленным через стандартную функцию https://www.cyberforum.ru/ pascal/ thread2767045.html Здравствуйте, помогите решить задачу на Паскале. Вычислить y = 1 - x^2/2! + x^4/4! - ... + (-1)^nx^2n/(2*n)! + ... с точностью eps = 0.0001 и сравнить результат с вычисленным через стандартную функцию значением y = cos (x).
Pascal Составить динамический линейный список из большых букв https://www.cyberforum.ru/ pascal/ thread2766979.html Помогите, пожалуйста, решить следующую задачу. Пользователь вводит по очереди строки из различных символов (раскладка английская). Введение строк заканчивается, когда он введёт пустую строку. Введенные строки сразу после ввода необходимо разбить на символы. Дальше надо работать только з буквами. Буквы ( большие и маленькие) нужно перевести в большой регистр в посимвольно добавлять в начало...	Pascal Бензоколонки Нужно переделать код чтобы использовались процедуры ввода и вывода элементов массива. Const n=5; var a:array of real; b:array of string; i:integer; begin b:=('ул. Володарского'); b:=('ул. Партизанская'); b:=('ул. Комсомольская');
Pascal Получить новый массив, содержащий элементы, которые входят в исходный массив более одного раза Дан одномерный массив, который содержит не более 60 английских букв. Получите новый массив, который будет содержать те элементы, которые входят в исходный массив более одного раза. Использовать процедуры ввода и вывода элементов массива. https://www.cyberforum.ru/ pascal/ thread2766892.html	Pascal Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива https://www.cyberforum.ru/ pascal/ thread2766891.html Дан одномерный массив, который содержит не более 40 целых чисел. Создайте новый массив, элементами которого являются суммы делителей каждого числа старого массива. Использовать процедуры ввода и вывода элементов массива.
Pascal Найти суммы отрицательных и положительных элементов, и сравнить их по модулю Дан одномерный массив, который содержит не более 50 целых чисел. Найдите сумму отрицательных и сумму положительных элементов и сравните их по модулю. Использовать процедуры ввода и вывода элементов массива.	*Pascal Получить в файле f последовательность матриц размера nm** Условие задания: во входном файле даны действительные числа x1,x2,… количество которых заранее неизвестно. Получить в файле f последовательность матриц размера nm (n,m-некоторые константы), где k-я матрица такова, что ее элемент с индексами i,j равен i+2j+xk. Программа должна быть с типизированным типом файлов. Проблема в том, что компилятор выдаёт ошибку: «чтение после конца потока... https://www.cyberforum.ru/ pascal/ thread2766754.html

JuriiMW

5077 / 2649 / 2349

Регистрация: 10.12.2014

Сообщений: 10,024

11.01.2021, 17:26

Вычислить произведение - Pascal - Ответ 15171413

11.01.2021, 17:26. Показов 2179. Ответов 2

Метки (Все метки)

Сообщение было отмечено Infanta как решение

Решение

Pascal

1
2
3

p := 1;
for i := 1 to 10 do
  p := p * (q[i]+q[21-i]);

Вернуться к обсуждению:
Вычислить произведение Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

11.01.2021, 17:26

Готовые ответы и решения:

Вычислить произведение минимальных элементов четных столбцов. Где произведение будет кратно 7, поменять местами первую и последнюю строки
Даны массивы A{30,20},B{40,50} - целых чисел. Вычислить произведение минимальных элементов четных...

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

Вычислить произведение
произведение sin(1)*sin(2)*…*sin(n)

Вычислить произведение
Вычислить произведение 1*3*5*...*(2*n-1), где n - заданное натуральное число.

	11.01.2021, 17:26

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

11.01.2021, 17:26

Помогаю со студенческими работами здесь

Вычислить произведение Р
Помогите написать программу ну или хотя бы тело) "Вычислить произведение Р = 1 * 3* 5* 7 * … *...

Вычислить произведение
Дано натуральное число n. Вычислить: P=\left(1-\frac{1}{2^2} \right)\left(1-\frac{1}{3^2}...

Вычислить произведение
b=\prod_{i=1}^{15}\frac{ln|2i-x|}{ix+1}

Вычислить произведение
program lab6; var P:real; k,N:integer; begin P:=1; N:=30; for k:=1 to N do begin if (k<6)...

Вычислить произведение i/(i^2)
Вычислить: \prod_{I=2}^{15} I/I^2

Вычислить произведение
. Вычислить произведение: xx2...xN

Наверх