|
|
| Другие темы раздела | |
| Turbo Pascal Выполнить суммирование членов бесконечного ряда 1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности ∆=10(у -4) .... 10( у -10) или пока не будет просумировано заранее заданное число членов бесконечного ряда. 2. Сравнить вычесленную суму членов бесконечного ряда с образцовым значением, полученным в виде константы или вычисленным по форуме.... https://www.cyberforum.ru/ turbo-pascal/ thread870604.html |
Turbo Pascal В заданном тексте букву "а" заменить на "А" Составить программу в которой в заданном тексте букву << а >> заменить на << А >> |
|
Turbo Pascal Определить значение индексов элементов с заданными порядковыми номерами
https://www.cyberforum.ru/ turbo-pascal/ thread870587.html Пусть нижняя и верхняя границы одномерного массива A соответственно -15 и 28. Определить значение индексов элементов, порядковыми номерами которых являются: 2, 11, 31, 18, 8, 24, 10, 0, 35, 29, 2, -4. |
Turbo Pascal Метод Зейделя
https://www.cyberforum.ru/ turbo-pascal/ thread870577.html Вообщем проблема в том что моя СЛАР, решается методом Крамера и Гаусса, но когда решаю с помощью Зейделя, пишет что система не сходится и не может иметь корни. Пожайлуста, подскажите в чем проблема или помогите найти ошибку в коде. program m_zeidel; label 1,2; const n=3;e=0.001; var i,j,k,t:integer; sum1,s:real; f:boolean; a,c:array of real; s1,x,x0,d,b,z:array of real; |
|
Разработать программу для решения СЛАУ (системы линейных алгебраических уравнений) с нижней треугольной матрицей Turbo Pascal Разработать программу для решения СЛАУ (системы линейных алгебраических уравнений) с нижней треугольной матрицей. a11*x1=b1 a21*x1+a22*x2=b2 ........................................ an1*x1+an2*x2+...+ann*xn=bn Заранее спасибо))) |
Turbo Pascal Используя стек напечатать содержимое текствого файла, выписывая литеры каждой его строки в обратном порядке
https://www.cyberforum.ru/ turbo-pascal/ thread870545.html Используя стек напечатать содержимое текстового файла выписывая литеры каждой его строки в обратном порядке. P.S . кому не сложно подскажите как сделать эту программу заранее благодарен.... |
|
Turbo Pascal Как прописать количество шагов в Turbo Pascal
https://www.cyberforum.ru/ turbo-pascal/ thread870533.html Решаю задачу с циклами и нужно прописать количество шагов.... не знаю как... Задача: Напишите программу для вычисления значения выражения своего варианта задачи(z=5ab-4). В начале программы необходимо вычислить значения переменных а и b, которые будут использованы при вычислении выражения задачи. Их находят по выражениям: a=∑_(x=i)^(i+8)▒〖5x〗^2/x! ,... |
Неверное число параметров процедуры Turbo Pascal uses crt; type mas=array of integer; var ax,c:mas; n,k,x,y:integer; {процедура ввода массива} procedure array_input(n:integer; var ax:mas); begin for x:=1 to n do readln(ax) end; {процедура вывода массива на экран} procedure array_print(a:mas; n:integer); |
| Turbo Pascal Нахождение всех нечетных четырехзначных чисел, сумма квадратов цифр которых меньше 20. помогите составить блок схему и программу нахождения всех нечетных четырехзначных чисел, сумма квадратов цифр которых меньше 20. Добавлено через 15 часов 45 минут помогите составить блок схему к этому листингу Var i,n,s: Integer; BEGIN For i:=1000 to 9999 do If Odd(i) Then begin https://www.cyberforum.ru/ turbo-pascal/ thread870504.html | Turbo Pascal Определите количество элементарных операций,необходимых для выполнения следующих операторов ПАСКАЛЬ программы a) case i of 1:x:=0; 2:=a+b; 3:x=a+b+c; end; b)for i:=1 to n do A:=2*A; c)for i:=1 to n do A:=B-C; https://www.cyberforum.ru/ turbo-pascal/ thread870490.html |
|
Turbo Pascal Найти такие три точки из множества P, для которых площадь соответствующего треугольника максимальна Рассмотрим множество P={P1,P2..P10}; образованное 10 точками на евклидовой плоскости. Каждая точка Pj задается своими координатами Xj,Zj. Напишите программу,которая находит такие три точки из множества P,для которых площадь соответствующего треугольника максимальна. |
Turbo Pascal Рассмотрите следующие рекурсивные функции.Какие из этих определений являются сходящимися и почему
https://www.cyberforum.ru/ turbo-pascal/ thread870459.html a)f:N\rightarrowN,f(n)={1,если n=0; {n+f(n-1),если n>0; b)F:N\rightarrowN,f(n)={1,если n=0; {n+f(n),если n>0; |
|
1 / 1 / 0
Регистрация: 19.05.2013
Сообщений: 34
|
|
| 0 | |
Дано натуральное число n. Вычислить: 1/sin1+1/(sin1+sin2)+.+1/(sin1+sin2+.sinn) - Turbo Pascal - Ответ 458088219.05.2013, 18:09. Показов 21194. Ответов 2
Метки (Все метки)
1/sin1+1/(sin1+sin2)+...+1/(sin1+sin2+...sinn) Вернуться к обсуждению: Дано натуральное число n. Вычислить: 1/sin1+1/(sin1+sin2)+.+1/(sin1+sin2+.sinn) Turbo Pascal
0
|
|
Лучшие ответы (1)
|
|
| 19.05.2013, 18:09 | |
|
Готовые ответы и решения:
2
|
| 19.05.2013, 18:09 | |
|
Помогаю со студенческими работами здесь
0
|
Наверх