|
|
| Другие темы раздела | |
| Pascal Строка: Найти наиболее удаленную друг от друга пару слов в предложении Вводится предложение, найти наиболее удаленную друг от друга пару слов. Расстояние между двумя словами равной длины – это количество букв, в которых различаются эти слова. Данную тему находил от товарища Puporev'a, но такую не принимают, говорят можно сделать проще. Помогите пожалуйста. https://www.cyberforum.ru/ pascal/ thread2771570.html |
Pascal Вычислить сумму двузначных элементов массива, у которых первая цифра кратна второй Дан массив из 4х5 целых чисел. Напишите программу вычисления суммы элементов массива, среди двузначных чисел, у которых первая цифра кратна второй. |
|
Pascal Написать программу "Магия Копперфильда"
https://www.cyberforum.ru/ pascal/ thread2771307.html Всемирно известный маг Дэвид Копперфильд любит показывать следующий трюк. Квадрат из N столбцов и N строк, в каждой клетке которого находится какая-нибудь картинка, появляется на экране телевизора. Пусть все картинки пронумерованы следующим образом: 1|2|…|N N+1|N+2|…|2*N :|:|…|: N*(N–1)+1|N*(N–1)+2|…|N*N Дэвид просит каждого зрителя поставить палец на левую верхнюю картинку (то есть в... |
Pascal Из массива удалить элементы, у которых первая цифра больше второй
https://www.cyberforum.ru/ pascal/ thread2771093.html Программа создает одномерный динамический массив заданной размерности, заполняет его случайными числами от 0 до 50 и выводит на экран. Затем в массиве удаляются все элементы, у которых первая цифра больше второй и выводится на экран новый массив. |
|
Pascal Из двух матриц сформировать последовательность по заданному правилу Даны две целочисленные квадратные матрицы порядка 6 Найти последовательность из нулей и единиц b1,…,b6 такую, что bi =1, если все элементы i-й строки первой и второй матриц отрицательны и min i-ой строки первой матрицы больше min i-ой строки второй матрицы. // можно, пожалуйста, с пояснениями |
Pascal Проблема с CharRange и IntegerRange Всем привет! Значит сел я делать дз по ОАИП и открыл для себя новые типы в паскале: CharRange и IntegeRange Мне вообщем-то просто переменной name, secname нужно присвоить определенные значиния с 1 по probel - 1, ну а потом с probel + 1 по конец строки вообщем еще хотелось бы узнать про данные типы(CharRange и IntegeRange) Код : program new; uses crt; var phio: string; https://www.cyberforum.ru/ pascal/ thread2770692.html |
| Pascal Определить количество двузначных чисел в массиве, у которых вторая цифра кратна первой Дан массив из 5х3 целых чисел. Напишите программу вычисления количества элементов массива, среди двузначных чисел, у которых вторая цифра кратна первой. https://www.cyberforum.ru/ pascal/ thread2770662.html |
Pascal Программа на строки Дана строка русских слов разделенных пробелом в конце стоит точка. Необходимо найти процентное соотношение гласных и согласных букв в каждом слове предшествующему самому длинному последнему по порядку. Не могу найти ошибку в программе. Вот сама программа: Uses crt; const glasn=; soglasn=; var stroka:string; nach_sl:integer; kol_bukv:integer; max_slovo:string; |
| Pascal Дописать в конец файла среднее арифметическое его чётных чисел Создать типизированный файл, элементами которого являются целые числа от 0 до 100 в заданном количестве. Создать новый файл в соответствии с заданием, а затем открыть его и вывести все элементы. Дописать в конец файла среднее арифметическое четных чисел. Помогите пожалуйста, заранее спасибо. https://www.cyberforum.ru/ pascal/ thread2770548.html | Pascal Определить сколько полных оборотов сделает точка вокруг (0,0) пройдя по траектории Вводится последовательность точек на координатной плоскости, ((0,0) признак конца последовательности). Траектория блуждания точки из (1,0). Определить сколько полных оборотов сделает точка вокруг (0,0) пройдя по этой траектории. https://www.cyberforum.ru/ pascal/ thread2770534.html |
|
Переставить чётные цифры в числе местами Pascal На вход программе подается натуральное число. Нужно переставить чётные цифры в обратном порядке. Например на входе 12345678 на выходе 18365472. |
Pascal Сформировать вектор из максимумов соответствующих элементов двух исходных векторов Заданы два вектора X = { xi} и Y = { yi}, i = 1 / n. Написать программу формирования третьего вектора Z = { zi }, каждый элемент которого zi = max ( xi, yi). Помогите пожалуйста. https://www.cyberforum.ru/ pascal/ thread2770164.html |
|
Модератор
9875 / 5243 / 3306
Регистрация: 17.08.2012
Сообщений: 16,015
|
|||||||||||
| 19.01.2021, 20:30 | 0 | ||||||||||
Найти последний из положительных элементов массива - Pascal - Ответ 1519420419.01.2021, 20:30. Показов 1902. Ответов 1
Метки (Все метки)
 Сообщение было отмечено Incognito0202 как решение
Решение
Код верный, но содержит нелепости.
У Вас все элементы положительные, потому что random(20)+5 генерирует числа в диапазоне [5..24], и всегда будет получаться ot=N. Подкорректируйте генерацию массива, чтобы генерировались и отрицательные числа, например, так:
После строки 4 добавьте строку randomize;, без неё в большинстве диалектов паскаля набор генерируемых чисел будет сменяться только один раз в минуту, а не при каждом запуске программы.Не ошибка, но по заданию N≤20, а массив во второй строке Вы объявили аж в пять раз больший. Добавлено через 14 минут Да, и ещё. Вы не предусмотрели никаких действий на тот случай, если в массиве нет отрицательных элементов. Исправьте конец программы на
Вернуться к обсуждению: Найти последний из положительных элементов массива Pascal
1
|
|||||||||||
| 19.01.2021, 20:30 | |
|
Готовые ответы и решения:
1
Найти последний из положительных элементов массива
Найти среднее арифметическое положительных элементов массива размернос положительных элементов массива размерностью 4х5 Удалить из массива последний столбец,в котором равное количество положительных и отрицательных элементов |
| 19.01.2021, 20:30 | |
| 19.01.2021, 20:30 | |
|
Помогаю со студенческими работами здесь
0
Найти последний из положительных элементов массива
Найти последний из положительных элементов, массива Y, содержащего N элементов
Найти в матрице последний столбец, в котором положительных элементов больше чем отрицательных
|