Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Найти элемент массива с максимальной суммой цифр и номер этого элемента https://www.cyberforum.ru/ pascal/ thread164977.html Дан массив,состоящий из n элементов,элементами массива являются двузначные числа. Найти элемент с максимальной суммой цифр и номер этого элемента(считать что элементов с максимальной суммой цифр может быть несколько)	Pascal Одномерный массив В заданном одномерном массиве найти максимальный отрицательный элемент. Все нулевые элементы заменить на заданное значение.
Pascal Наибольшее число соседей среди перечисленных стран https://www.cyberforum.ru/ pascal/ thread164943.html type rep=(Russia, Ukraina, Gruzia, Belorussia. Azerbaigan); var NBH:array of boolean; r:rep; Элемент NBH равен true, если страны a и b имеют общую границу, и равен false иначе. Определить r-страну, имеющую наибольшее число соседей среди перечисленных стран. Всем привет, столкнулся вот с такой задачей, как решить к сожалению не знаю, прошу помощи советом или кусками программы :)	Pascal Множества Дана строка символов. Преобразовать ее, удалив из нее повторные вхождения каждой литеры. Помогите пожалуйста!!!Спасибо зарание!!! https://www.cyberforum.ru/ pascal/ thread164882.html
Строки Pascal Помогите пожалуйста!!! В введенной строке подсчитать количество слов и букв в каждом слове (слова отделяются пробелами). Заранее большое спасибо!!!	Pascal Дан текст. Отсортировать символы строки по возрастанию. https://www.cyberforum.ru/ pascal/ thread164869.html Дан текст. Отсортировать символы строки по возрастанию (сортировка в соответствии с кодами в таблице ASCII).
Pascal Циклические процессы в одномерном массиве вычислить сумму эдементов, значение которых кратны некоторому значению x https://www.cyberforum.ru/ pascal/ thread164866.html	Массив Pascal В одномерном массиве найти наибольший из отрицательных элементови поменять его местами с первым
Pascal списки, очередь и стек. помагите решить задачу!!!!! Решить одну и ту же задачу, организуя список, очередь и стек. В поле данных каждого элемента списка записываются данные об автомобилях:: марка, номер, стоимость. Выведите на экран весь список и определите общую стоимость машин, номер которых начинается с цифры 1. зарание спасибо!!!! https://www.cyberforum.ru/ pascal/ thread164858.html	Pascal Вычислить разность между максимальным и минимальным 1) Считая, что стандартные функции Sin и Cos применимы только к аргументам из отрезка , вычислить y=Sin(x) для произвольного числа X. 2)С клавиатуры вводится заранее неизвестное число вещественных чисел. Вычислить разность между максимальным и минимальным их них. 3) Для каждого символа заданного текста указать, сколько раз он встречается в тексте. Сообщение об одном символе должно печататься не... https://www.cyberforum.ru/ pascal/ thread164854.html
Pascal Создание нового массива В заданном одномерном массиве найти последний отрицательный элемент. Все нечетные элементы заменить на найденные значения. Вот у меня вопрос: как в данной программе написать, чтобы в конце выдавались не только те элементы, которые заменились, но так же и не замененные(четные): Program lab1; uses crt; var x,y:array of integer; i, N, Nfind,Nech: integer ;	Pascal Не компелирует проги https://www.cyberforum.ru/ pascal/ thread164811.html Слушайте други мои, как вы думаете что за фигня у меня с паскалем: короче тема такая я пушу себе пишу прогу, вот написал довольный аш жуть.но тут я начал ее компелировать, нет конечно ошибок никаких не выдала, зато он ( компилятор ) написал мне в нижней строке "disc is not ready in drive d" причем это случилось как правило неожиданно до этого компелировал как часы (китайские), ну так что за...

Puporev

Почетный модератор

64299 / 47594 / 32743

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

Сообщений: 115,181

11.09.2010, 14:15

дано натуральное число n, действительное число х - Pascal - Ответ 951858

11.09.2010, 14:15. Показов 1648. Ответов 1

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

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

Решение

Вычислить n,

Когда пишете, мозг на 2 секунды включайте....

Pascal

uses crt;
var x,s:real;
    n,i:integer;
begin
clrscr;
write('x=');readln(x);
write('n=');readln(n);
s:=x;
for i:=1 to n do
s:=s+cos(i*x)/exp(ln(2)*i);
write('S=',s:0:4);
readln
end.

Вернуться к обсуждению:
дано натуральное число n, действительное число х Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

11.09.2010, 14:15

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

[Операторы цикла] Дано натуральное число n, и действительное число x. Вычислить
Доброго времени суток, много уважаемые форумчани. Прощу вас о помощи. По скольку очень слабо...

Дано действительное число х, натуральное число n. Вычислить: 13. x ( x - n )( x - 2 n )( x - 3 n )…( x - n2 );
Дано действительное число х, натуральное число n. Вычислить: 13. x ( x - n )( x - 2 n )( x - 3 n...

Даны натуральное число n, действительное число а. Выдать на экран последовательность чисел: а, а+1!, а+2!, а+3!, . , а+п!
вот есть програма которая просто виводит последовательность чисел без факториала: а, а+1, а+2, а+3,...

Дано натуральное число n. Получите наименьшее натуральное число вида m2, превосходящее n
Дано натуральное число n. Получите наименьшее натуральное число вида m2, превосходящее n.

	11.09.2010, 14:15

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

11.09.2010, 14:15

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

Дано действительное число Х и цэлое число (N>0) вычислить значения суммы ряда S=Х-Х^3\3!+Х^5\5!-...+(-1)^N*Х^(2N+1)/2N+1.(N!=1*2*...*N).
Дано действительное число Х и цэлое число (N>0) вычислить значения суммы ряда...

Дано натуральное число N. Получить наименьшее число вида 4k, меньшее N.
Дано натуральное число N. Получить наименьшее число вида 4k, меньшее N.

Дано натуральное число n. Получите наименьшее число вида 2^k, превосходящее n
Пусть дано натуральное число n. Получите наименьшее число вида 2^k, превосходящее n.

Дано натуральное число n получить наименьшее число вида 2^x превосходящее n
Дано натуральное число n получить наименьшее число вида 2^x превосходящее n. Не получается. ...

Наверх