|
|
| Другие темы раздела | |
|
Turbo Pascal Получить новый двумерный динамический массив, состоящий из элементов вещественного типа, путём деления
https://www.cyberforum.ru/ turbo-pascal/ thread1067181.html получить новый двумерный динамический массив, состоящий из элементов вещественного типа, путём деления всех элементов двумерного димнамического массива A, на его МАКСИМАЛЬНЫЙ элемент |
Сформировать квадратную матрицу порядка n по заданному образцу Turbo Pascal 0 0 0 ... 0 0 0 0 1 0 ... 0 0 0 0 0 2 ... 0 0 0 . . . ... .... 0 0 0 ... 0 n-2 0 0 0 0 ... 0 0 n-1 |
| Turbo Pascal Определить суммы из элементов кратных трем в каждой строке матрицы (Ошибка) Определить суммы из элементов кратных трем в каждой строке матрицы. uses crt; const max = 10; type mas = array of real; https://www.cyberforum.ru/ turbo-pascal/ thread1067152.html | Turbo Pascal Метод касательных Ньютона найти интервал (a,b)найти корень уравнения и уточнить его численным методом с точностью е=0.01. метод касательных ньютона https://www.cyberforum.ru/ turbo-pascal/ thread1067032.html |
|
Turbo Pascal Метод Симпсона |
Turbo Pascal Создать массив записей, содержащий данные об учениках школы (Ошибка в коде) создать массив записей, содержащий данные об учениках школы. поля записей: фамилия, имя, класс, номер школы. Распечатать данные об учениках фамилия которых короткое __________________________________________________________________________________________________:cry: program pr; uses crt; const n=4; type uchen=record priz:string; imya:string; klas:string; school:string; https://www.cyberforum.ru/ turbo-pascal/ thread1066994.html |
| Turbo Pascal Переделать программу с массивом Помогите изменить программу, не используя "function newX" и сделать так, чтобы учитывалось то, что х не может быть равен нулю. Пожааалуйста) вот сама программка: const min = -70; // Промежуток числовой оси max = 64; function newX(x:real):real; // Функция замены элемента из промежутка begin if (x=0) then newX:=x else newX:=(PI*PI)/(x*exp(x)); end; https://www.cyberforum.ru/ turbo-pascal/ thread1066984.html |
Turbo Pascal Определить, есть ли в последовательности два идущих подряд нулевых члена помогите плиз Задача 2 Даны натуральное n и целые числа c1, c2, … , cn. Имеются ли в последовательности c1, c2, … , cn: а) два идущих подряд нулевых члена; б) три идущих подряд нулевых члена? |
| Turbo Pascal Преобразовать строку таким образом, чтобы цифры каждого слова были перенесены в конец слова, изменив порядок следования их в слове на обратный Преобразовать строку таким образом, чтобы цифры каждого слова были перенесены в конец слова, изменив порядок следования их в слове на обратный. Замечание: наличие цифр можно проверить с помощью проверки вхождения элемента во множество. Например, Symbol in . Результат принимает истинное значение, если Symbol - цифра. Через процедуры https://www.cyberforum.ru/ turbo-pascal/ thread1066810.html | Turbo Pascal Переделать задачку на вычисление функции Добрый день, помогите пожалуйста переделать задачку, так что бы в решении использовались логические операторы, в том числе и оператор not Z=(sqrt(x+tg(Pi Y/2))) war x,y,z:real; c:integer; z:=(sqrt(x+sin(Pi y/2)/cos(Pi y/2)); repeat writeln ('vvedi X Y'); readln (x,y); https://www.cyberforum.ru/ turbo-pascal/ thread1066724.html |
|
Найти минимальный элемент и поменять его местами с тем элементом, который стоит в конце массива Turbo Pascal Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Найти минимальный элемент и поменять его местами с тем элементом, который стоит в конце массива. Массив вывести в виде таблицы. |
Turbo Pascal Каждый четный элемент в файле заменить результатом его целочисленного деления на 5 Ввести файл. Каждый четный элемент в файле заменить результатом его целочисленного деления на 5. Файл вывести до и после преобразования Доброго времени суток, форумчане! Код написал. Не работает. выдает один и тот же файл до преобразования и после. в чем моя ошибка? Заранее спасибо! program abc; var b,i,p:integer; f:file of integer; begin assign(f,'f.dat'); writeLn('Введите первую... https://www.cyberforum.ru/ turbo-pascal/ thread1066582.html |
|
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
||||||
| 10.01.2014, 09:52 | 0 | |||||
Определите количество чисел в наиболее длинной последовательности из подряд идущих нулей - Turbo Pascal - Ответ 561765110.01.2014, 09:52. Показов 2523. Ответов 2
Метки (Все метки)
 Сообщение было отмечено mysteria-m как решение
Решение
Вернуться к обсуждению: Определите количество чисел в наиболее длинной последовательности из подряд идущих нулей Turbo Pascal
1
|
||||||
| 10.01.2014, 09:52 | |
|
Готовые ответы и решения:
2
|
| 10.01.2014, 09:52 | |
| 10.01.2014, 09:52 | |
|
Помогаю со студенческими работами здесь
0
Определить количество чисел в наиболее длинной последовательности из подряд идущих нулей
|