Вам на вход подается N целых чисел. Вам необходимо будет найти среди них два числа, которые дают максимальное произведение. Ответом на задачу будет произведение этих чисел. Массивы использовать в данной задаче запрещено! Ввод: На первой строке вводится натуральное N, 2 ≤ N ≤ 10000.
На последующих N строках вводятся целые числа |ai| ≤ 10000. Формат вывода: Одно число — максимальное произведение двух чисел.
Попытка найти максимальное и идущее за ним максимальное и умножить их не дает нужный результат, не учитывается одинаковые значения и минусовые значения.
n = int(input()) max1 = 0 max2 = 0 if 2 max1: max1 = f for j in lst: if j > max2 and j < max1: max2 = j max = max1 * max2 print(max)
Отслеживать
13.6k 12 12 золотых знаков 43 43 серебряных знака 72 72 бронзовых знака
задан 1 сен 2022 в 10:00
35 3 3 бронзовых знака
ты ошибся, тут не сервис по решению домашек
1 сен 2022 в 10:04
Отредактируйте свой вопрос, добавив эту информацию и код, тем более, что вы, похоже, видите причины ошибки.
Программирование на языке pascal нахождение суммы 2х чисел
1 сен 2022 в 10:04
надо сразу нормально оформлять и задавать вопрос, тогда и минусовать не будут.
1 сен 2022 в 10:16
Не понимаю такое количество минусов. Автор сразу в комменте привел код, потом отредактировал пост, проблема им была продиагностирована верно.
1 сен 2022 в 11:44
Поясню минус. Во-первых в вопросе нет вопроса, только изложение. Во-вторых — «не учитывается одинаковые значения и минусовые значения» — значит надо учесть (способов множество).
1 сен 2022 в 15:53
2 ответа 2
Сортировка: Сброс на вариант по умолчанию
Ну в общем, нечто подобное и надо делать. Только нужно поддерживать две пары — наибольших положительных и наименьших отрицательных
max1 = 0 max2 = 0 min1 = 0 min2 = 0 n = int(input()) for _ in range(n): f = int(input()) if f > 0: if f > max1: max2 = max1 max1 = f elif f > max2: max2 = f elif f < 0: if f < min1: min2 = min1 min1 = f elif f < min2: min2 = f mx = max(max1 * max2, min1 * min2, max1 * min1) print(mx)
Отслеживать
ответ дан 1 сен 2022 в 10:09
48.5k 1 1 золотой знак 17 17 серебряных знаков 40 40 бронзовых знаков
1 сен 2022 в 10:17
ай, точно, есть. Не на то посмотрел.
1 сен 2022 в 10:29
Уберите список.
Условие запрещает списки.
1 сен 2022 в 11:15
1 сен 2022 в 11:40
кстати, тут будет проблема если всего 2 числа (одно больше нуля, второе меньше).
1 сен 2022 в 12:08
Только изучаю Python, ваша задачка заинтересовала ради тренировки. Вот мое решение без массивов (списков, кортежей, множеств, словарей).
Насколько я могу судить, задачу выполняет.
»’ Вам на вход подается N целых чисел. Вам необходимо будет найти среди них два числа, которые дают максимальное произведение. Ответом на задачу будет произведение этих чисел. Массивы использовать в данной задаче запрещено! »’ vmax = False vmin = False multiply = False while True: i = input(«Введите цифру или ‘q’ для завершения: «) if i == ‘q’: break try: i = int(i) except (TypeError, ValueError): print(«ERROR!
Нужно вводить цифры или ‘q’ для завершения») continue if vmax == False and 2 n: # multiply = m # else: # multiply = n # else: # if m > multiply: # multiply = m # elif n > multiply: # multiply = n if i > vmax: vmax = i if i < vmin: vmin = i else: print(‘ERROR! Нужно вводить цифры 2
произведение чисел
Источник: ru.stackoverflow.com
В паскале. Изменить программу так, что бы она находила: 1) сумму четырёх чисел
Найди верный ответ на вопрос ✅ «В паскале. Изменить программу так, что бы она находила: 1) сумму четырёх чисел 2) произведения чисел 3) квадрат каждого числа . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
Главная » Информатика » В паскале. Изменить программу так, что бы она находила: 1) сумму четырёх чисел 2) произведения чисел 3) квадрат каждого числа
Источник: urokam.net
4. Задание
Задание 1. Изучите внешний вид системы программирования Турбо Паскаль.
Задание 2. Откройте файл, в который Вы запишите программу, выполняющую сложение двух чисел. Для этого нажмите клавишу F10, чтобы выйти в главное меню, затем клавишами перемещения курсора выберите опцию File, а в выпавшем меню команду New.
Найдите в этой программе заголовок, раздел описания переменных, признак начала программы, признак конца программы, тело программы, комментарий.
Ответьте на вопросы:
- Какое назначение переменных number1, number2, rezult?
- Что обозначает строка: number1, number2, rezult : integer; ?
- Если присвоить переменным number1 и number2 соответственно значение 5 и 7, то какую строчку выдаст компьютер при исполнении последней процедуры Write? Запишите ее в отчет.
- Переведите с английского языка слова: Write, Read. Как вы думаете, что должен делать операторы с таким названием?
- Как вы понимаете запись: readln(number1); ?
- Чему равно значение переменной rezult после выполнения оператора: rezult := number1 + number2; ?
- Что делает оператор присваивания в этой программе?
5. Содержание отчета
Отчет должен содержать:
- Название работы.
- Цель работы.
- Задание и его решение.
- Вывод по работе.
6. Контрольные вопросы
- Что такое среда программирования?
- Опишите среду программирования Тurbo Pascal.
- Как сохранить текст программы в Тurbo Pascal?
- Какова структура программы на языке Pascal?
- Как осуществить запуск программы?
ЛАБОРАТОРНАЯ РАБОТА № 4Тема:Создание архива данных. Извлечение данных из архива. Запись информации на компакт-диски различных видов.1. Цель работы: изучение принципов архивации файлов, функций и режимов работы наиболее распространенных архиваторов, приобретение практических навыков работы по созданию архивных файлов и извлечению файлов из архивов, приобретение навыков записи компакт-дисков. 2. Оборудование, приборы, аппаратура, материалы: персональный компьютер, OC Windows, архиваторы WinRar, WinZip. 3. Краткие теоретические сведенияАрхивы данных. Архивация.Архивация (упаковка) — помещение (загрузка) исходных файлов в архивный файл в сжатом или несжатом виде. Архивация предназначена для создания резервных копий используемых файлов, на случай потери или порчи по каким-либо причинам основной копии (невнимательность пользователя, повреждение магнитного диска, заражение вирусом и т.д.). Для архивации используются специальные программы, архиваторы, осуществляющие упаковку и позволяющие уменьшать размер архива, по сравнению с оригиналом, примерно в два и более раз. Архиваторы позволяют защищать созданные ими архивы паролем, сохранять и восстанавливать структуру подкаталогов, записывать большой архивный файл на несколько дисков (многотомный архив). Сжиматься могут как один, так и несколько файлов, которые в сжатом виде помещаются в так называемый архивный файл или архив. Программы большого объема, распространяемые на дискетах, также находятся на них в виде архивов. Архивный файл — это специальным образом организованный файл, содержащий в себе один или несколько файлов в сжатом или несжатом виде и служебную информацию об именах файлов, дате и времени их создания или модификации. Выигрыш в размере архива достигается за счет замены часто встречающихся в файле последовательностей кодов на ссылки к первой обнаруженной последовательности и использования алгоритмов сжатия информации. Степень сжатия зависит от используемой программы, метода сжатия и типа исходного файла. Наиболее хорошо сжимаются файлы графических образов, текстовые файлы и файлы данных, для которых степень сжатия может достигать 5 — 40%, меньше сжимаются файлы исполняемых программ и загрузочных модулей — 60 — 90%. Почти не сжимаются архивные файлы. Программы для архивации отличаются используемыми методами сжатия, что соответственно влияет на степень сжатия. Для того чтобы воспользоваться информацией, запакованной в архив, необходимо архив раскрыть или распаковать. Это делается либо той же программой-архиватором, либо парной к ней программой-разархиватором. Разархивация (распаковка) — процесс восстановления файлов из архива в первоначальном виде. При распаковке файлы извлекаются из архива и помещаются на диск или в оперативную память. Самораспаковывающийся архивный файл — это загрузочный, исполняемый модуль, который способен к самостоятельной разархивации находящихся в нем файлов без использования программы-архиватора. Самораспаковывающийся архив получил название SFX-архив (SelF-eXtracting). Архивы такого типа в обычно создаются в форме .ЕХЕ-файла. Архиваторы, служащие для сжатия и хранения информации, обеспечивают представление в едином архивном файле одного или нескольких файлов, каждый из которых может быть при необходимости извлечен в первоначальном виде. В оглавлении архивного файла для каждого содержащегося в нем файла хранится следующая информация:
- имя файла;
- сведения о каталоге, в котором содержится файл;
- дата и время последней модификации файла;
- размер файла на диске и в архиве;
- код циклического контроля для каждого файла, используемый для проверки целостности архива.
Архиваторы имеют следующие функциональные возможности:
- Уменьшение требуемого объема памяти для хранения файлов от 20% до 90% первоначального объема.
- Обновление в архиве только тех файлов, которые изменялись со времени их последнего занесения в архив, т.е. программа-упаковщик сама следит за изменениями, внесенными пользователем в архивируемые файлы, и помещает в архив только новые и измененные файлы.
- Объединение группы файлов с сохранением в архиве имен директорий с именами файлов, что позволяет при разархивации восстанавливать полную структуру директорий и файлов.
- Написания комментариев к архиву и файлам в архиве.
- Создание саморазархивируемых архивов, которые для извлечения файлов не требуют наличия самого архиватора.
- Создание многотомных архивов– последовательности архивных файлов. Многотомные архивы предназначены для архивации больших комплексов файлов на дискеты.
Запись файлов на компакт-диск Если компьютер оснащен соответствующим устройством, можно осуществить запись файлов на компакт-диск встроенными средствами операционной системы Microsoft Windows XP. Для этого необходимо выполнить следующие действия: 1. Открыть окно Мой компьютер двойным щелчком мыши на соответствующем значке, расположенном на Рабочем столе Windows; 2. Щелкнуть правой клавишей мыши на значке устройства для записи компакт-дисков, выберите в контекстном меню пункт Свойства, и в открывшемся окне перейдите на вкладку Запись (см. рис.). 3. Установить флажок Разрешить запись CD на этом устройстве; 4. В расположенном ниже меню выбрать один из дисковых разделов для временного хранения образа записываемого компакт-диска. Данный дисковый раздел должен содержать не менее 1 Гбайт свободного пространства; 5. В меню Выберете скорость записи указать скорость, с которой данные будут записываться на компакт-диск. Следует учитывать, что в данном случае за единицу скорости записи данных принято значение 150 Кбайт/с. Иными словами, в случае, если, например, запись будет осуществляться со скоростью 32x, это означает, что максимально возможная скорость записи информации на этом устройстве будет составлять 150*32=4800 Кбайт/с; 6. Если нужно, чтобы по окончании записи компакт-диск автоматически извлекался из устройства, устанавливается флажок Автоматически извлекать CD после записи; 7. Щелкнуть мышью на кнопке ОК, чтобы закрыть окно свойств устройства для записи компакт-дисков. 8. Непосредственно перед записью на компакт-диск выбранные пользователем файлы помещаются во временную папку, в которой создается образ будущего компакт-диска. До момента записи содержимое этого образа можно редактировать, добавляя или удаляя файлы и папки во временной директории. Создавая образ диска помните, что общий объем копируемых на компакт-диск данных не должен превышать максимальной допустимый объем компакт-диска, составляющий 680, а в некоторых случаях — 700 Мбайт. 9. Для того чтобы скопировать какие-либо файлы или папки на компакт-диск, нужно выделить их в окне Проводника при помощи мыши, после чего щелкните на пункте Скопировать выделенные объекты в панели Задачи для файлов и папок, которая расположена в левой части окна программы Проводник. В открывшемся диалоговом окне Копирование элементов выбрать щелчком мыши устройство для записи компакт-дисков, и щелкнуть на кнопке Копирование. В Области уведомлений Панели задач Windows появится сообщение о том, что операционная система обнаружила файлы, ожидающие записи на компакт-диск. Для того чтобы просмотреть файлы и папки, составляющие образ компакт-диска, дважды щелкните мышью на значке устройства для записи компакт-дисков в окне Мой компьютер. Необходимо помнить, что в процессе записи компакт-диска записывающее устройство должно получать непрерывный поток данных с жесткого диска вашего компьютера. Если передача потока информации по каким-либо причинам прервется, записывающая головка устройства будет по-прежнему направлять лазерный луч на поверхность вращающегося компакт-диска, но записи данных при этом не состоится. Такая ситуация неизбежно приведет к сбою в процессе записи, а сам компакт-диск окажется при этом запорченным. Чтобы избежать подобных неприятностей, рекомендуется придерживаться следующих несложных правил:
- перед началом записи нужно убедиться в том, что поверхность компакт-диска не содержит пыли и царапин;
- закрыть окна всех ненужных в данный момент приложений: обращение какой-либо программы к жесткому диску (например, автоматическое сохранение текстового документа) может привести к сбою в записи компакт-диска;
- отключить экранные заставки, которые могут автоматически запуститься во время сеанса записи;
- в процессе записи компакт-диска не запускать никаких приложений, не выполнять операций копирования, перемещения, удаления файлов и папок;
- по возможности осуществляйте запись компакт-диска на низкой скорости.
Нужно помнить, что для создания временной папки, в которой хранится образ записываемого компакт-диска, операционная система использует свободное место на жестком диске компьютера. Если дискового пространства окажется недостаточно, запись может не состояться. В подобной ситуации потребуется освободить недостающее дисковое пространство: это можно сделать, очистив содержимое Корзины, удалив ненужные файлы и папки, деинсталлировав малоиспользуемые приложения или выполнив дефрагментацию диска. Если используется компакт-диск с возможностью многократной записи (CD-RW), и после завершения записи на нем осталось свободное пространство, впоследствии можно добавить файлы к уже записанному компакт-диску, используя Мастер записи компакт-дисков.
Источник: studfile.net