Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Цикл: Вычислить значение выражения y = x - x^3 / 3! + x^5 / 5! - x^7 / 7! + x^9 / 9! - x^11 / 11! + x^13 / 13! https://www.cyberforum.ru/ free-pascal/ thread1999091.html Дано действительное число x. Вычислить	Free Pascal Вычислить y Помогите, плиз!
Free Pascal Доработка программы https://www.cyberforum.ru/ free-pascal/ thread1998689.html Помогите пожалуйста! Вот программа, в ней содержатся две подпрограммы, одна из которых определяет кол-во слов в строке, другая возвращает n-ое слово, сама основная программа находит второе слово в строке и записывает его задом на перед. Надо записать задом на перед обязательно второе слово, слов в строке может быть сколько угодно! uses crt; function KolSlv(s:string):byte; var i,k:byte; ...	Free Pascal Экзаменатор var a,b,c,y,n,v:integer; s:string; begin n:=15; v:=0; repeat Randomize; a:=Random(10); b:=Random(10); https://www.cyberforum.ru/ free-pascal/ thread1998426.html
Free Pascal Прочитать данные из TStream здравствуйте, я практически сломал голову (((( пишу код на С++...Все работает, переношу на free pascal ничего не получается. Из потока необходимо считать данные. char strNeeded ...... void Load ( TStream * St) { St->Read (strNeeded, sizeof (strNeeded)); // здесь я получаю правильный результат "DG_KEY" } тоже самое делаю во free pascal и получаю не значение, смещение и количество байт...	Free Pascal Даны числа a и b являются соответственно квадратам и кубом числа c https://www.cyberforum.ru/ free-pascal/ thread1998229.html Даны числа a и b являются соответственно квадратам и кубом числа c.
Free Pascal Написать программу вычисляющую значение функции Написать программу вычисляющую значение функции: https://www.cyberforum.ru/ free-pascal/ thread1998226.html	Найти модули чисел; извлечь корень Free Pascal Даны пять чисел. Найти модули тех чисел, значения которых отрицательны, извлечь корень из положительных.
Free Pascal Преобразовать текст https://www.cyberforum.ru/ free-pascal/ thread1997937.html Дана строка символов (2-3 строки) в файле F1, состоящая из слов, отделённых друг от друга одним символом пробела. Составить функцию, определяющую, есть ли в тексте некоторое слово, заданное заранее (вводить в диалоге и включить в список параметров функции). Составить функцию, удаляющую слово из текста. Новые строки записать в файл F1 после исходных.	Free Pascal Через что лучше эту задачу выполнить, чтоб не больше 40строк? https://www.cyberforum.ru/ free-pascal/ thread1997767.html Оплата Интернета в школе состоит из двух частей: 100 долларов в месяц за доступ и 5 долларов в месяц за поддержку школьного сайта. Платеж можно делать независимо за любое количество месяцев за доступ и за поддержку сайта. Напишите программу, которая позволяла бы вводить отдельно количество оплачиваемых месяцев для доступа и поддержки и выводила бы сумму оплаты.
По коду паскаля составить блок-схему Free Pascal uses crt; const n=5; m=6; type mtr=array of integer; var a:mtr; i,j,o1,i1,j1,mx:integer; begin clrscr; randomize; writeln('Исходная матрица:');	Free Pascal Определить среднее число пробелов, используемых в строке https://www.cyberforum.ru/ free-pascal/ thread1997323.html Дан текстовый файл. Определить среднее число пробелов, используемых в строке.

Ivandur

691 / 5405 / 265

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

Сообщений: 3,355

07.06.2017, 13:26

Дано целое число N (>0). Найти сумму Sin(x) + Sin(2x) + … + Sin(Nx) - Free Pascal - Ответ 10520539

07.06.2017, 13:26. Показов 1468. Ответов 6

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

Ответ

Pascal

nx:=0;
sum:=0;
for i:=1 to n do
  begin
  nx:=nx+x;
  sum:=sum+sin(nx);
  end;

Вернуться к обсуждению:
Дано целое число N (>0). Найти сумму Sin(x) + Sin(2x) + … + Sin(Nx) Free Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

07.06.2017, 13:26

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

Дано натуральное число N. Вычислить S=sin x+ sin sinx +...+sin sin....sin x
Дано натуральное число N. Вычислить S (составить программу с использованием операторов While и...

Написать программу, вычисляющую сумму Y=sin(n/2) - sin(3n/4) + sin(5n/8)
Задание по методике преподавания в школах, задали вот это а я всего та на первом курсе и в школе...

вычислить с помощью цикла:sin(1)+sin(2)+sin(3)+...sin(n)
1.Длинная последовательность двузначных чисел вводится клавиатуры. Признаком конца ввода является...

Вычислить тремя видами (if , for , while)уравнение: (1-sin(0.1))+(1+sin(0.2))+...+(1+sin(1))
Вычислить тремя видами (if , for , while) уравнение: (1-sin(0.1))+(1+sin(0.2))+...+(1+sin(1)). ...

	07.06.2017, 13:26

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

07.06.2017, 13:26

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

Вычислить N=sin(a)+sin(2a)+sin(3a)+.+sin(17a)
Вычислить N=sin(a)+sin(2a)+sin(3a)+...+sin(17a)

Циклом «пока» вычислить сумму ряда 1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n
1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n

Для заданного числа x распечатать числовую последовательность: sin(x), sin(sin(x), sin(sin(sin(x), …
var x,z:integer; y:real; begin readln(x); y:=abs(sin(x)); while y>0.01 do begin ...

Вычислить первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x))), ... , меньшее по модулю 10^-4
1)Вычислить y - первое из чисел sinx, sin sinx,sin sin sinx,..., меньшее по модулю 10^-4 ...

Наверх