|
|
Другие темы раздела | |
Pascal ABC Найти прямоугольник с большей площадью
https://www.cyberforum.ru/ pascalabc/ thread1098239.html Даны длины четырех отрезков - по две стороны первого и второго прямоугольника соответственно. Найти прямоугольник с большей площадью. Входные данные: Во входном потоке заданы четыре натуральных числа - длины четырех отрезков. Значение всех исходных величин не превышает 30000. Выходные данные: В выходной поток вывести '1' если площадь первого прямоугольника больше и '2' в противном случае. ... |
Найти минимальный и максимальный элементы из элементов матрицы с четными положительными значениями Pascal ABC Напишите программу,которая находит минимальный и максимальный элементы из элементов матрицы с четными положительными значениями и их индексы.Учтите,что таких элементов в матрице может и не быть |
Pascal ABC Вывести на экран строку матрицы, сумма значений элементов которой наибольшая
https://www.cyberforum.ru/ pascalabc/ thread1098141.html Напишите программу в паскале,которая выводит на экран строку матрицы,сумма значений элементов которой наибольшая |
Pascal ABC Добавить в программу функцию, которая считает количество вхождений заданной буквы в к-ый элемент массива Снова здравствуйте. На сей раз мне нужно добавить в программу функцию, которая считает количество вхождений заданной буквы в к-ый элемент массива A(n) , то есть в к-ую строчку. Я что-то сделал, но опять неверно. program module; uses crt; type mas=array of string; procedure perepis(var f:text;ch:char;var a:mas;var n:integer); var s:string; begin n:=0; while not eof(f) do begin https://www.cyberforum.ru/ pascalabc/ thread1098128.html |
Ввести число от 0 до 1000. Определить количество цифр в числе Pascal ABC Ввести число от 0 до 1000. Определить количество цифр в числе =================================================== Ребята помогите решить,нужно сделать через case of |
Pascal ABC Правильно ли решена задача (Сколько часов проработала вся бригада) В бригаде, работающей на уборке сена, имеется N сенокосилок. Первая сенокосилка работала m часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада? s:=0; for i:=1 to N do s:=s+m+(i-1)/6; s:=0; i:=1; while i<=N do begin s:=s+m+(i-1)/6; Inc(i); end; s:=0; i:=1; repeat s:=s+m+(i-1)/6; Inc(i); until i>N; https://www.cyberforum.ru/ pascalabc/ thread1098088.html |
Pascal ABC Вывести номера квадратов, центр которой расположен на расстоянии, большем D, от заданной точки
https://www.cyberforum.ru/ pascalabc/ thread1098047.html Дано множество квадратов. Вывести номера квадратов, центр которой расположен на расстоянии, большем D, от точки (15, 15), а площадь - 500. |
Pascal ABC Изменить программу с использованием подпрограмм (склад с лекарствами) помогите изменить код (используя подпрограммы)? вот задача: На аптечном складе хранятся лекарства. Сведения о лекарствах содержаться в специальной ведомости: наименования лекарственного препарата; количество; цена; срок хранения( в месяцах). Выяснить, сколько стоит самый дорогой и самый дешевый препарат; сколько препаратов хранится на складе; какие препараты имеют срок хранения более трех... |
Pascal ABC Дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа
https://www.cyberforum.ru/ pascalabc/ thread1097985.html Дона строка, изображающая целое положительное число. Вывести сумму цифр этого числа. |
Pascal ABC Найти номер первой из строк матрицы, содержащих равное количество положительных и отрицательных элементов
https://www.cyberforum.ru/ pascalabc/ thread1097983.html Дана целочисленная матрица размера M*N. Найти номер первой из ее строк, содержащих равное количество положительных и отрицательных элементов (нулевые элементы матрицы не учитываются). Если таких строк нет, то вывести 0. |
Pascal ABC Изменить код, чтобы контуры были черные, а сама звезда была зелено-красная Program Zvezda; Uses GraphABC; begin setpencolor(clRed); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); Line(241, 250, 209, 320); Line(209, 320, 290, 289); |
Pascal ABC Дан целочисленный массив размера N. Удалите из массива все нечетные числа и вывести размер полученного массива и его содержимое Дан целочисленный массив размера N. Удалите из массива все нечетные числа и вывести размер полученного массива и его содержимое. https://www.cyberforum.ru/ pascalabc/ thread1097980.html |
0 / 0 / 0
Регистрация: 21.01.2014
Сообщений: 15
|
|
0 | |
Определить есть ли в файле повторяющиеся числа, и если да, то выдать их - Pascal ABC - Ответ 579050016.02.2014, 21:49. Показов 1354. Ответов 1
Метки (Все метки)
Дан файл содержащий действительные числа. Определить есть ли в нём повторяющиеся числа, и если да то выдать их.
Вернуться к обсуждению: Определить есть ли в файле повторяющиеся числа, и если да, то выдать их Pascal ABC
0
|
16.02.2014, 21:49 | |
Готовые ответы и решения:
1
Дан отрезок [A, B], где A, B – целые положительные числа. Определить, есть ли на отрезке простые числа, и если есть, то вывести их на экран Определить, есть ли во введенном динамическом массиве повторяющиеся числа Выдать все четные числа от 0 до 10000, если х = 0; иначе выдать x^5 Определить, есть ли в массиве отрицательные числа (если да - определить номер первого из них) |
16.02.2014, 21:49 | |
16.02.2014, 21:49 | |
Помогаю со студенческими работами здесь
0
Если заданные числа образуют арифметическую прогрессию, то выдать их сумму, если геометрическую - произведение... Есть метод класса внутри , есть проверка. Если условие сходится то метод должен выдать указатель, иначе булевую переменную если ли в нем повторяющиеся числа, если да то выбрать их В файле даны повторяющиеся числа. Вывести на экран числа по возрастанию без повторений Выдать на печать TRUE, если значение минимального числа меньше заданного числа К Выдать на печать TRUE, если значение минимального числа меньше заданного числа К |
Новые блоги и статьи | |||||
Как написать микросервис на Go/Golang
InfoMaster 14.01.2025
Определение микросервиса, преимущества использования Go/ Golang
Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
|
Как написать микросервис с нуля на C#
InfoMaster 14.01.2025
В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
|
Как создать интернет-магазин на PHP и JavaScript
InfoMaster 14.01.2025
В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
|
Как написать Тетрис на Ассемблере
InfoMaster 14.01.2025
Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
|
Как создать игру "Танчики" на Unity3d и C#
InfoMaster 14.01.2025
Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .
|
Организую платный онлайн микро-курс по доработке Android-клиента Telegram
_Ivana 14.01.2025
Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента!
4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве).
Первое вводное занятие. . .
|
Как создать приложение для фитнеса для iOS/iPhone на Kotlin
InfoMaster 14.01.2025
Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .
|
Как создать приложение магазина для iOS/iPhone на Swift
InfoMaster 14.01.2025
Введение в разработку iOS-приложений
Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .
|
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь!
Hrethgir 13.01.2025
По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .
|
UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела
volvo 13.01.2025
В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения:
/ / ==UserScript==
/ / @name CF_DefaultLangSelect
/ / . . .
|
Введение в модели и алгоритмы машинного обучения
InfoMaster 12.01.2025
Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .
|
Как на Python создать нейросеть для решения задач
InfoMaster 12.01.2025
В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .
|