Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 16, средняя оценка - 5.00
r.e.a.c.t.o.r
0 / 0 / 0
Регистрация: 16.05.2009
Сообщений: 43
#1

Задача на максимальное произведение - Pascal

16.05.2009, 10:59. Просмотров 2686. Ответов 5
Метки нет (Все метки)

Дано N целых чисел. Требуется выбрать из них три таких числа, произведение которых максимально.

Входной файл: INPUT.TXT
Выходной файл: OUTPUT.TXT

Формат входных данных
Во входном файле записано сначала число N - количество чисел в последовательности (3≤N≤100). Далее записана сама последовательность:
N целых чисел, по модулю не превышающих 1000.

Формат выходных данных
В выходной файл выведите три искомых числа в любом порядке.
Если существует несколько различных троек чисел, дающих
максимальное произведение, то выведите любую из них.


input.txt:
9

3 5 1 7 9 0 9 -3 10


output.txt
9 10 9

Второй вариант пока что ненадо.


Вот что намутил сам, а нужно оч срочно:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
a,b,c,d,f,g,h,i,j,N:integer;
v,e:text;
begin
assign(v,'INPUT.TXT');
assign(e,'OUTPUT.TXT');
reset(v);
readln(v,N);
if N = 3 then begin
read(v,a,b,c);
append(e);
writeln(e,a,b,c);
close(e);
close(v);
end;
if N > 3 then begin
 
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2009, 10:59
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Задача на максимальное произведение (Pascal):

Задача из ЕГЭ: найти и вывести максимальное значение среди трехзначных элементов массива, делящихся на 4 - Pascal
Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от 0 до 10000 включительно. Опишите на...

Вывести максимальное произведение 2 чисел последовательности, таких, чтобы между ними было не менее 6 чисел - Pascal
Здрасьте! Излагаю все, как есть. На вход программе подается положительное целое число N (8 <= N <= 10000). Далее в N строках подаются...

задача ЕГЭ 2013 с1: Вывести произведение цифр числа - Pascal
опишите примерный ход решения sashausa, на будущее: 1. Текстовые задания набирайте вручную, формулы - в редакторе формул, если...

надо найти максимальное слово , минимальное слово и посчитать на сколько букв максимальное меньше минимального - Pascal
здесь не пашет 3 процедура ! в ней надо найти максимальное слово , минимальное слово и посчитать на сколько букв максимальное меньше...

Если все 3 заданных числа положительные, определить максимальное, иначе определить максимальное и минимальное - Pascal
Даны три целых числа a, b, c. Если все числа положительные, определить максимальное из них, в противном случае определить как максимальное,...

Найти максимальное произведение чисел, кратное 14 - PascalABC.NET
Привет всем! Надо решать задачу: Последовательность натуральных чисел характеризуется числом Х – наибольшим числом, кратным 14 и...

5
Puporev
Модератор
53013 / 40824 / 14070
Регистрация: 18.05.2008
Сообщений: 94,965
16.05.2009, 11:14 #2
a,b,c,d,f,g,h,i,j,N:integer;
а если будет 99 чисел, под каждое переменную будете выделять?
Извините, но при таких Ваших познаниях, не надо выпендриваться и браться за задачи повышенной сложности.
0
r.e.a.c.t.o.r
0 / 0 / 0
Регистрация: 16.05.2009
Сообщений: 43
16.05.2009, 11:16  [ТС] #3
Я ведь не говорю что буду брать, я и спрашивал как это сделать без переменных для каждого числа
0
Puporev
Модератор
53013 / 40824 / 14070
Регистрация: 18.05.2008
Сообщений: 94,965
16.05.2009, 11:18 #4
Элементарно считать данные из файла в массив.
1.Читаем размер массива
reset(f);
read(f,n);
2 Читаем сам массив.
for i:=1 to n do
read(f,a[i]);
1
r.e.a.c.t.o.r
0 / 0 / 0
Регистрация: 16.05.2009
Сообщений: 43
16.05.2009, 11:24  [ТС] #5
Спрошу по-другому
Даны числа
3 5 1 7 9 0 9 -3 10
Требуется выбрать из них три таких числа, произведение которых максимально.
Как сделать это в программном виде
P.s. переменные на всякий случай приписал

Добавлено через 55 секунд
Цитата Сообщение от Puporev Посмотреть сообщение
Элементарно считать данные из файла в массив.
1.Читаем размер массива
reset(f);
read(f,n);
2 Читаем сам массив.
for i:=1 to n do
read(f,a[i]);
Спасибо

Добавлено через 2 минуты 49 секунд
А как большее число найти то для произведения?
0
Puporev
Модератор
53013 / 40824 / 14070
Регистрация: 18.05.2008
Сообщений: 94,965
16.05.2009, 11:26 #6
Требуется выбрать из них три таких числа, произведение которых максимально.
Наверное эта задача решается красиво методом поиска с возвратом, с использованием рекурсии. Можете попробовать решить в лоб, используя три вложенных цикла, хотя такое решение вряд ли Вам зачтется.
0
16.05.2009, 11:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2009, 11:26
Привет! Вот еще темы с ответами:

Найти сумму положительных, максимальное и минимальное, произведение между максимальным и минимальным - PascalABC.NET
Здравствуйте, дорогие друзья! Сразу к делу: задали разобрать массив, а точнее найти сумму всех положительных, максимальное и минимальное,...

Задача "Подсчитайте максимальное количество сетей класса В и максимальное количество адресов ком. кл. С - Сети
Добрый вечер огромная просьба подскажите пожалуйста по задаче. Вроде же и простая но загнала в угол. Завтра в универ сдавать а осталась она...

Максимальное произведение - C++
Дано N целых чисел. Требуется выбрать из них три таких числа, произведение которых максимально. Ввод: N - количество чисел в...

Максимальное произведение трех чисел списка - Lisp
Дан список целых чисел. Определить функцию, возвращающую самое большое произведение трех чисел из этого списка.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru