С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Расчитать количества элементов, которые находятся на главной диагонали и над ней. https://www.cyberforum.ru/ turbo-pascal/ thread275171.html
Помогите пожалуйста, завтра сдавать
Turbo Pascal В заданной матрице целых чисел С(5,6) определить среднее геометрическое элементов каждой строки.
Форумчане, проблема вот в чем... В заданной матрице целых чисел С(5,6) определить среднее геометрическое элементов каждой строки. Передачу масива в процедуру выполнить по строкам и результаты работы распечатать в главной программе.
Turbo Pascal Замена заглавных (прописных) букв на маленькие https://www.cyberforum.ru/ turbo-pascal/ thread275149.html
Помогите измените сообщение так, чтобы все заглавные буквы стали соответствующими строчными. S сообщение длиной не более 250 символов, может содержать только русские буквы в DOS кодировке (включая Ё) и символы пробела
Turbo Pascal Числа_Т Здравствуйте всем. Задача такая: В одномерном массиве подсчитать сколько раз встречается каждая пара чисел и вывести на экран. Program Paru; Uses Crt; const n=10; var i,k:integer; a:array of integer; begin Randomize; ClrScr; Textcolor(4); https://www.cyberforum.ru/ turbo-pascal/ thread275140.html
Модуль, включающий 3 сортировки Turbo Pascal
В общем с модулями работаю впервые. Компиляция проходит нормально, ошибок никаких выдаёт. Просто кажется, будто я вообще всё неправильно написала. Не могли бы вы проверить, правильно ли я написала модуль. В общем, само задание: Написать программный модуль, включающий 3 алгоритма сортировок. Заранее благодарю. unit MySort;
Turbo Pascal Определить, есть ли в последовательности хотя бы одна пара одинаковых "соседних" чисел Дана последовательность натуральных чисел a1,a2...a15.Определить, есть ли в последовательности хотя бы одна пара одинаковых "соседних" чисел.В случае положительного ответа определить порядковые номера чисел первой из таких пар. Заранее благодарен=) https://www.cyberforum.ru/ turbo-pascal/ thread275122.html
Turbo Pascal Циклы. Определить является ли сумма максимальной и минимальной цифр кратной числу a. Дано натуральное число.Определить является ли сумма его максимальной и минимальной цифр кратной числу a. https://www.cyberforum.ru/ turbo-pascal/ thread275120.html Множества: Определить, каких букв — гласных или согласных — больше в тексте Turbo Pascal
Дан текст из строчных букв. Определить, каких букв — гласных (я, е, /, о, и) или согласных — больше в этом тексте.
Turbo Pascal Три траблы без заморочек Привет всем любителям и профессионалам Паскаля. Прошу прощения за мою тупость, но надо решить три задачи, но так, чтобы это было элементарно, без процедур и всяких сложностей, ибо со сложностями универские преподаватели не хотят принимать. Думаю это для вас не будет сложно... итак задачка №1 Дан одномерный массив Xn. Найти колличество элементов массива, кратных 5. Напечатать все положительные... https://www.cyberforum.ru/ turbo-pascal/ thread275110.html Turbo Pascal Вычислить скалярное произведение векторов Задание: https://www.cyberforum.ru/ turbo-pascal/ thread275084.html
Turbo Pascal Добавить вариант
Нужно доделать запись с вариантами. Суть в том что надо ввести информацию о "By-Pass"(режим работы ИБП) если online тогда By-Pass есть, если Offline тогда нет и если, interactive тогда тоже нет. помогите доработать нужно завтра сдать :( program zapis; type th=record nfirm:string; pol:string; cost:integer; vremya:integer; case t:(online,offline,inter) of online:(on:boolean);
Turbo Pascal Переставить цифры в числах а и b, чтобы a+b=c Заданы три числа: a, b и c. Необходимо выяснить, можно ли так переставить цифры в числах a и b, чтобы в сумме получилось c. Вывести все возможные комбинации. Пример. 12 31 25 YES 12 13 12 31 26 NO https://www.cyberforum.ru/ turbo-pascal/ thread275056.html
3 / 3 / 0
Регистрация: 23.03.2011
Сообщений: 68
12.04.2011, 19:49  [ТС] 0

Ввести 10 целых чисел .Найти произведение тех,которые находятся в диапазоне от 3 до 7 - Turbo Pascal - Ответ 1546109

12.04.2011, 19:49. Показов 2662. Ответов 7
Метки (Все метки)

Ответ

неработает
n : byte; в этой строке и дальше

Вернуться к обсуждению:
Ввести 10 целых чисел .Найти произведение тех,которые находятся в диапазоне от 3 до 7 Turbo Pascal
0
Заказать работу у эксперта
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
12.04.2011, 19:49
Готовые ответы и решения:

Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М
Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые...

Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М
Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые...

Ввести массив из 14 целых чисел. Удалить из него элементы, значения которых находятся в диапазоне от 0 до 7
Ввести массив из 14 целых чисел. Удалить из него элементы, значения которых находятся в диапазоне...

Дан массив целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких
Дан массив целых положительных чисел. Найти произведение только тех чисел, которые больше заданного...

7
12.04.2011, 19:49
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.04.2011, 19:49
Помогаю со студенческими работами здесь

Задачи на цикл. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны удовлетворительно
Нужна ваша помощь. 1) Последовательно вводятся 10 целых чисел. Найти произведение тех, которые...

Найти сумму и количество тех элементов массива X и M чисел, значения которых находятся в диапазоне от A до B
Помогите решить задание на C++ Найти сумму и количество тех элементов массива X и M чисел,...

Ввести два целых числа N1 и N2. Если N1 >N2, найти сумму целых чисел в диапазоне N1 . N2
Ввести два целых числа N1 и N2. Если N1 >N2, найти сумму целых чисел в диапазоне N1 ... N2. Если...

Ввести одномерный массив из 12 чисел, в диапазоне от -50 до 50. Из них найти произведение чисел от 5-10
Ввести одномерный массив из 12 чисел, в диапазоне от -50 до 50. Из них найти произведение чисел от...

Вычислить сумму тех элементов преобразованного массива, которые находятся в заданном диапазоне
Задана последовательность значений элементов некоторого массива до и после преобразования по...

Вычислить сумму тех элементов преобразованного массива, которые находятся в заданном диапазоне
Здравствуйте всем, подскажите как написать программу вот на это задание!: Массив D=(4, –8, 9, 3,...

0
Новые блоги и статьи
Как проводить научные вычисления на Python
InfoMaster 15.01.2025
Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .
Создание игры типа Minecraft на PyGame/Python: пошаговое руководство
InfoMaster 15.01.2025
В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .
Как создать свою первую игру в стиле Doom на Unreal Engine
InfoMaster 15.01.2025
Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .
Параллельное программировани­е: основные технологии и принципы
InfoMaster 15.01.2025
Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD
InfoMaster 15.01.2025
В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .
Что такое CQRS и как это реализовать на C# с MediatR
InfoMaster 15.01.2025
Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .
Как настроить CI/CD с Azure DevOps
InfoMaster 15.01.2025
CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .
Как настроить CI/CD с помощью Jenkins
InfoMaster 15.01.2025
Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .
Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD
InfoMaster 14.01.2025
Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD
InfoMaster 14.01.2025
В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript
InfoMaster 14.01.2025
В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере
InfoMaster 14.01.2025
Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru