Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal составить блок схему . строковые переменные https://www.cyberforum.ru/ turbo-pascal/ thread1007499.html var s:string; i,k:byte; Begin write('Слова: ');readln(s); writeln('Позиции букв "a"'); For i:=1 to Length(s) do if s='a' then Begin write(i,' '); inc(k);	Turbo Pascal работа со строковыми элементами Дано слово состоящее из заглавных латинских букв. зашифровать это слово переставив буквы в порядке убывания их кодов.
Turbo Pascal Из массива Х сформировать новый массив У, уменьшив элементы массива Х на его минимальный элемент https://www.cyberforum.ru/ turbo-pascal/ thread1007473.html Пожалуйста, срочно нужна помощь. Никак не могу разобрать эту задачу, а именно, как правильно написать программу. Задан массив Х{xi} (i=1,n; n=9). Из массива Х сформировать новый массив У, уменьшив элементы массива Х на его минимальный элемент.	Turbo Pascal Удалить лишние пропуски между словами в файле https://www.cyberforum.ru/ turbo-pascal/ thread1007455.html Составить программу с процедурой, которая переделывает файл f1 в файл f2 таким образом: В текстовом файле f1 , который состоит из рядков любой длины , удаляются лишние пропуски между словами(один остаётся), полученный ряд дополняется до 40 символов пропусками или усекается до 40 символов. Полученные ряды переносятся поочередно в файл f2
Turbo Pascal Паскаль, лабораторн.р, Програмирование Дана целочисленная матрица {Aij}i=1...n;j=1..n , n<=100. Если в матрице есть две строки, скалярное произведение которых равно нулю, и есть не менее двух простых чисел, упорядочить столбцы матрицы по невозрастанию нормы. Использовать процедуры и функции!	Turbo Pascal На отрезке [0; 1] найти корни уравнения x^5 - 0,3\|x-1\|= 0 методом простых итераций Помогите пожалуйста с решением, не понимаю как данное задание выполнить!.. https://www.cyberforum.ru/ turbo-pascal/ thread1007446.html
Turbo Pascal программа и блок схема https://www.cyberforum.ru/ turbo-pascal/ thread1007441.html составить блок схему и программу в паскале. Тех процесс состоит из 4х операций. Их продолжительность 5, 10, 15. 5 минут. контрольная операции после 2 и 4.	Поменять в массиве четные и нечетные элементы Turbo Pascal Поменять в массиве четные и нечетные элементы А Паскаль ,напишите программу,пожалуйста !!!
Turbo Pascal Определить есть ли в строке повторяющиеся слова Дана строка слов. Определить есть ли в ней повторяющиеся слова https://www.cyberforum.ru/ turbo-pascal/ thread1007376.html	Turbo Pascal Поменять местами значения целых переменных x и y, не используя дополнительные переменные https://www.cyberforum.ru/ turbo-pascal/ thread1007369.html Поменять местами значения целых переменных x и y, не используя дополнительные переменные.
Подсчитать количество водоэмульсионной краски для покрытия потолка Turbo Pascal Подсчитать количество водоэмульсионной краски для покрытия потолка и масляной краски для покрытия стен комнаты размерами: L – длина комнаты, B – ширина комнаты, H – высота комнаты. Комната имеет одно окно и дверь. Расход краски: водоэмульсионной – 150 грамм, масляной – 200 грамм на 1 кв. м. Ответ получить в килограммах.	Turbo Pascal Подсчитать количество водоэмульсионной краски для покрытия потолка Подсчитать количество водоэмульсионной краски для покрытия потолка и масляной краски для покрытия стен комнаты размерами: L – длина комнаты, B – ширина комнаты, H – высота комнаты. Комната имеет одно окно и дверь. Расход краски: водоэмульсионной – 150 грамм, масляной – 200 грамм на 1 кв. м. Ответ получить в килограммах. https://www.cyberforum.ru/ turbo-pascal/ thread1007362.html

CodeR

Фрилансер

3418 / 2815 / 3000

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

Сообщений: 8,587

Записей в блоге: 1

14.11.2013, 13:27

Найти сумму ряда - Turbo Pascal - Ответ 5334482

14.11.2013, 13:27. Показов 1381. Ответов 11

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

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

Решение

Pascal

Var s,a,x,e:real;
    i:integer;
Begin
    write('x,e: ');readln(x,e);
    a:=1;s:=a;i:=1;
    While abs(a)>=e do
    Begin
      a:=a*(tan(x)/i);
      i:=i+1;
      s:=s+a;
    End;
    writeln('Слогаемых = ',i);
    writeln('Сумма = ',s:0:2);
    readln;
End.

Вернуться к обсуждению:
Найти сумму ряда Turbo Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

14.11.2013, 13:27

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

Найти сумму ряда S с точностью до члена ряда, по абсолютной величине меньшего eps
найти сумму ряда S с точностью до члена ряда, по абсолютной величине меньшего eps = 0.0001. в чем...

Вычислить сумму, найти сумму ряда.
http://ipic.su/img/img3/fs/P1648_18-11-11111.1321685302.jpg *1/i в квадрате* *e=10в минус кубе*

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

Найти сумму ряда
Помогите пожалуйста написать программу. Обменяю решение на огромное спасибо. Операторы цикла Даны...

	14.11.2013, 13:27

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

14.11.2013, 13:27

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

Найти сумму ряда
Здравствуйте, помогите мне пожалуйста с одной программой. Условие задания прикрепила. Задание вроде...

Найти сумму ряда
Составит программу вычисления суммы вида

Найти сумму ряда
Привет всем) Надеюсь на вашу помощь с задачей заранее спасибо! Вот соответственно условия задачи...

Найти сумму ряда
Помогите пожалуйста с этим

Найти сумму ряда
Вообщем, не буду таить, задали написать 3 программы на тему циклической структуры задание

Найти сумму ряда
обчислити суму ряду 1+1/2*x2+(1*3)*x4)/(2*4) + (1*3*5)*x6)/(2*4*6) + ... обчислення вести до тих...

Наверх