|
|
| Другие темы раздела | |
| Pascal СЛАУ методом Гаусса простых итераций и Зейделя СЛАУ методом Гаусса простых итераций и Зейделя. Предусмотреть проверку достаточных условий сходимости методов. Точность нахождения решения СЛАУ 10-4 Вычислить невязку полученного решения. \begin{bmatrix}6 & -10 & 2\\\\ 1 & 2 & -6\\\\ 8 & 1 & -3\end{bmatrix}\ \ \ \ \ \begin{bmatrix}-20\\\\ -5\\\\ 5\end{bmatrix} https://www.cyberforum.ru/ pascal/ thread2451550.html |
Построить полином Лагранжа и Ньютона на равномерной сетке узлов Pascal Вычислить значение функции и полинома в точке x = 0,65b Вычислить реальную абсолютную погрешность интерполирования в точке x = 0,65b Помогите пожалуйста. Функция: 2x Отрезок: Количество узлов: 5 |
| Pascal Вычислить наибольший из корней уравнения Вычислить наибольший из корней уравнения. Точность нахождения корня ε = 10−6. При необходимости предусмотреть проверку выполнения достаточных условий сходимости метода. Выбрать два различных начальных приближения из отрезка изоляции корня, провести вычисления,сравнить число итераций. Отрезок: А=-2 B=5. Уравнение: x3-5x2+12 https://www.cyberforum.ru/ pascal/ thread2451520.html | Pascal Где ошибки? Было такое задание: Используйте представление последовательности строк в виде линейного списка и опишите процедуру ДОБАВИТЬ(L , i , j), добавляющую после i-ой строки списка L копию j-й строки. Был написан такой код: procedure Add(p: PNode; i, j: Integer); var p, ip, jp: PNode; n, e: Integer; begin n:=0; ip:=nil; jp:=nil; e:=i; if e<j then e:=j; while (p<>nil) and (n<e) do begin ... https://www.cyberforum.ru/ pascal/ thread2451304.html |
|
Pascal Самое короткое слово Определить самое короткое слово строки , длина которой до 70 символов. Если таких слов есть два, логический переменной L присвоить значение true, если нет - false. Как самое короткое слово найти - написал, а вот как во второй половине задание делать - не пойму(. program lab27; uses crt; var str:string; s,smin:string; i:integer; begin clrscr; |
Pascal Вывести все слова предложения в отсортированном по неубыванию порядке
https://www.cyberforum.ru/ pascal/ thread2451277.html И снова я) Правило сортировки следующее: Дано предложение (до 1000 элементов), содержащее пробелы и латинские буквы. Нужно вывести все слова этого предложения в отсортированном по неубыванию порядке. Если длина слов I и II больше 2х, то: слово I > II если 2й символ слова I>второго символа слова II, по-иному I больше II если длина I больше II. Если длина II и длина II = 1, то I больше II если... |
| Pascal Алфавит Ввести с клавиатуры строку S длиной до 80 символов из букв латинского и русского алфавита. В строку S1 перенести все буквы латинского алфавита, а в строку S2 - все буквы русского алфавита. Добавлено через 31 минуту У меня вот так вышло, но буквы не выводит(. program lab6v9; uses crt; var s:string; sl,su:string; https://www.cyberforum.ru/ pascal/ thread2450760.html |
Pascal Составить блок-схему Доброго времени суток! Составить блок-схему алгоритма решения задачи двумя способами (цикл с предусловием, цикл с постусловием). Вычислить значения функции W: W=Z^3+Z^2-5\\\\Z=\begin{cases}x^2+t &,\ x<t \\\\ x^3+t^2 &,\ x=t \\\\ 2x-3t &,\ x>t \end{cases}\\\\t=2\\\\x\in\ \Delta x=1 Спасибо Вам заранее! |
| Pascal Перевод Pascal на C++ program werty; Uses CRT; Var a: array of integer; i,j,m,n,max,min,s,d,f,g, i_min, j_min, i_max, j_max: integer; Begin For i:=1 to 3 do For j:=1 to 3 do Begin write('a='); https://www.cyberforum.ru/ pascal/ thread2450186.html | Pascal Байдарочный поход Байдарочный поход Компания из N человек собирается пойти в байдарочный поход, i-ый человек характеризуется своей массой Mi кг. На лодочной базе имеется в наличии неограниченное количество одинаковых байдарок. Каждая байдарка может вмещать одного или двух людей. Байдарки имеют грузоподъемность D кг. Какое наименьшее количество байдарок придется арендовать компании, чтобы всем отправиться в... https://www.cyberforum.ru/ pascal/ thread2450046.html |
|
Pascal Сумма дробей массива Напишите программу, используя модуль, которая в одномерном массиве, состоящем из обыкновенных дробей, находит сумму всех элементов массива. Результат представить в виде несократимой дроби. Можете помочь составить сам модуль нахождения суммы из данного кода? type frac=record p:integer;{числитель любое целое число} q:1..maxint;{знаменатель целое положительное число} ... |
Pascal Выполнить трассировку и определить значение переменной S
https://www.cyberforum.ru/ pascal/ thread2449669.html Помогите выполнить трассировку S:=0 I:=0 While I < 5 do I:=I+1 S:= S+I+1 S_____ Добавлено через 15 минут Тут ошибка произошла |
|
2373 / 775 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
|
||||||
| 12.05.2019, 15:39 | 0 | |||||
Использование подпрограмм-функций в программах - Pascal - Ответ 1356329412.05.2019, 15:39. Показов 441. Ответов 1
Метки (Все метки)
Ответ
сейчас сделаем.
Добавлено через 7 минут
Вернуться к обсуждению: Использование подпрограмм-функций в программах Pascal
0
|
||||||
| 12.05.2019, 15:39 | |
|
Готовые ответы и решения:
1
Использование функций в программах
Оформить в виде подпрограмм-функций в программах |
| 12.05.2019, 15:39 | |
| 12.05.2019, 15:39 | |
|
Помогаю со студенческими работами здесь
0
Вставка подпрограмм-процедур и подпрограмм-функций
Использование подпрограмм-функций в программах |
Наверх