Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal простые числа В файле записаны натуральные числа. требуется простые числа переписать в другой файл. заранее спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread301288.html	Коментарии Turbo Pascal Помогите пожалуйста)нужно прокомментировать программу Зарание Спасибо) program test; uses crt; const n = 9; type Tarr = array of integer;
Turbo Pascal Прочитать матрицу М (10, 12) из файла F1. https://www.cyberforum.ru/ turbo-pascal/ thread301257.html Прочитать матрицу М (10, 12) из файла F1. Переставить строки этого массива так, чтобы сумма элементов каждой строки возрастала от первой до последней строчки.	Turbo Pascal Записи: по номеру тлф выводит ФИО и адрес абонента Уважаемые форумчане, прошу помощи в написании следующей программы на записи, именно она отделяет меня от зачета В виде массива записей представлена информация об абонентах различных АТС. Форма документа Телефонная книга ФИО абонента Домашний адрес № телефона Фамилия Имя Отчество Улица № дома № квартиры https://www.cyberforum.ru/ turbo-pascal/ thread301248.html
Определить, сколько одинаковых чисел в массиве Turbo Pascal Помогите решить задачи, пожалуйста! 1.Дан массив А(n).Сколько одинаковых чисел в массиве? 2.В массиве Х(n) найти среднее арифметическое тех элементов ,значения которых не превышают заданную величину А	Turbo Pascal нужно сдать зачет..... 1.Дан файл вещественных чисел. Найти его первый локальный минимум (локальным минимумом называется элемент, который меньше своих соседей). 2.Дан файл целых чисел, содержащий четное количество элементов. Уда-лить из данного файла вторую половину элементов. 3.Дано целое число K (> 0) и строковый файл. Создать два новых файла: строковый, содержащий первые K символов каждой строки исходного файла, и... https://www.cyberforum.ru/ turbo-pascal/ thread301226.html
Turbo Pascal программы для перевода арабских чисел в римские и для обратной операции https://www.cyberforum.ru/ turbo-pascal/ thread301221.html Составить программы для перевода арабских чисел в римские и для обратной операции. Например, 255 = CCLV = сто + сто + пятьдесят + пять Замечание. Подобными алгоритмами перевода чисел из одной системы в другую мы пользуемся по нескольку раз на дню, когда ведем денежные расчеты. Сумма денег − это арабское число, которому соответствует определенный набор банкнот и монет (аналоги римских цифр)....	Turbo Pascal Удалить из строки S1 длиной до 40 символов все слова, начинающиеся с цифры Помогите решить пожалуйста! :) 1) Удалить из строки S1 длиной до 40 символов все слова, начинающиеся с цифры. 2) Прочитать матрицу М (10, 12) из файла F1. Переставить строки этого массива так, чтобы сумма элементов каждой строки возрастала от первой до последней строчки.
Turbo Pascal Выяснить, будут ли числа взаимно простыми Помогите пожалуйста. Даны два числа J и P. Выяснить будут ли эти числа взаимно простыми (то есть их наименьший общий делитель равен 1). Необходимо использовать цикл с параметром for. https://www.cyberforum.ru/ turbo-pascal/ thread301206.html	Turbo Pascal Разбить файл на части https://www.cyberforum.ru/ turbo-pascal/ thread301205.html Разбить файл на части. Размеры частей и имена новых файлов вводятся с клавиатуры
Turbo Pascal Вывести второй минимальный и максимальный элемент и поменять их местами в векторе написать программу которая бы заполняла вектор V10 случайными числами, выводила 2-ой минимальный и максимальный элемент и меняла их местами в векторе. Добавлено через 1 минуту Очень надо.......:(	Turbo Pascal В заданном тексте на английском языке проверить, заканчивается ли каждое предложение точкой 1 В исходном предложении заменить все символы пробела символом «_» Напечатать исходный и преобразованный тексты. 2. В заданном тексте на английском языке проверить, заканчивается ли каждое предложение точкой. Признаком начала предложения считать слово, напечатанное с большой буквы. https://www.cyberforum.ru/ turbo-pascal/ thread301186.html

azzaq

25 / 25 / 32

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

Сообщений: 66

21.05.2011, 19:20

вычислить S=(1+sin2)^2+(1-sin3)^2+(1+sin4)^4+...+(1-sin9)^9 - Turbo Pascal - Ответ 1675596

21.05.2011, 19:20. Показов 1428. Ответов 1

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

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

Решение

Pascal

S := 0;
for i := 2 to 9 do
if i mod 2 = 0 then
S := S + exp(ln(1+sin(i))*i)
else
S := S + exp(ln(1-sin(i))*i);

Вернуться к обсуждению:
вычислить S=(1+sin2)^2+(1-sin3)^2+(1+sin4)^4+...+(1-sin9)^9 Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

21.05.2011, 19:20

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

Вычислить сумму P = (1! + sin2!)(3! + sin4!) . (n-1)! + sin(n)!)
Помогите пожалуйста, вообще ничего не понимаю Нужно вычислить P = (1! + sin2!)(3! + sin4!) ......

Вычислить Cos1/sin1+(cos1+cos2)/(sin1+sin2)+(cos1+cos2+cos3)/(sin1+sin2+sin3)+(cos1+cos2+cos3+.. .+cosn)/(sin1+sin2+sin3+...+sinn)
Помогите плиз с программой фортран а точнеее с одним примерчиком . Мучаюсь в написании уже...

P=(cos1! + sin2!)(cos3! + sin4!) . (cos(n-1)! + sin(n)!)
P=(cos1! + sin2!)(cos3! + sin4!) ... (cos(n-1)! + sin(n)!) написать программу с использованием for

Что такое Sin2(a,b), Sin3(a)
Есть некая прога в которой свой язык макроса: z это комплексное sx1 = Sin(z.x) cx1 =...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

21.05.2011, 19:20

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

Напечатать столбиком значения sin2,sin3,...,sin20
Напечатать столбиком значения sin2,sin3,...,sin20

Напечатать столбиком значения sin2,sin3,...,sin20
Напечатать столбиком значения sin2,sin3,...,sin20?

Циклы с заданным количеством повторений: Напечатать «столбиком» значения sin2, sin3,…, sin20
Циклы с заданным количеством повторений Напечатать «столбиком» значения sin2, sin3,…, sin20.

Не понимаю как составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ., sinN
Составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ..., sinN Задачу мне...

Наверх