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

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

16.05.2009, 10:59. Просмотров 2888. Ответов 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.

http://www.cyberforum.ru/pascal/thread884558.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2009, 10:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Задача на максимальное произведение (Pascal):

Вывести максимальное произведение 2 чисел последовательности, таких, чтобы между ними было не менее 6 чисел
Здрасьте! Излагаю все, как есть. На вход программе подается положительное...

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

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

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

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

5
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,291
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 / 1
Регистрация: 16.05.2009
Сообщений: 43
16.05.2009, 11:16  [ТС] #3
Я ведь не говорю что буду брать, я и спрашивал как это сделать без переменных для каждого числа
0
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,291
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 / 1
Регистрация: 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
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,291
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
Привет! Вот еще темы с решениями:

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

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

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

Определить максимальное и минимальное произведение соседних цифр
Дано целое число N. Определить максимальное и минимальное произведение...


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

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

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