IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Список Минимальных цен
Таблетка_Счастья
сообщение 23.11.2008 12:31
Сообщение #1





Группа: Пользователи
Сообщений: 7
Пол: Женский

Репутация: -  0  +


Помогите пожалуйста решить задачу..Решила 9ть, а последнюю не могу (( Уже неделю бьюсь над ней (( Никак не получается..

Имеются сведения о названиях и ценах на n=12 видов товаров по m=10 магазинам. Требуется составить список пяти магазинов, имеющих минимальные цены по заданному виду товара. Список должен включать номер магазина, название и цену выставленного товара. Магазины в списке расположить в порядке возрастания товара..

Я Даже массив не могу сформировать ((
Нужно до завтра (((

Сообщение отредактировано: Таблетка_Счастья - 23.11.2008 12:59
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Unconnected
сообщение 23.11.2008 16:37
Сообщение #2


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Ну почему,можно сделать массив с названиями...и случайным образом из него заполнить) Просто я уже сделал фактически и попробовал заполнить с клавиатуры...долгое это занятие smile.gif


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 23.11.2008 16:44
Сообщение #3


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Unconnected @ 23.11.2008 16:37) *
Просто я уже сделал фактически и попробовал заполнить с клавиатуры...долгое это занятие smile.gif

Погоди, я тебе дам чтение smile.gif..

Вот:
const
n=12;
m=10;

var
Goods: array[1..n]of string;
Price: array[1..m,1..n]of real;
Cheep: set of 1..10;
i,j: integer;
f: text;

begin
Assign(f,'goods.txt');
ReSet(f);
for i:=1 to n do ReadLn(f,Goods[i]);
Close(f);
Assign(f,'price.txt');
ReSet(f);
for i:=1 to n do begin
for j:=1 to m do Read(f,Price[j,i]);
ReadLn(f)
end;
Close(f);

Понятно, что не особая помощь, но хоть что-то.. smile.gif) Коллективный труд!

Добавлено через 8 мин.
Ну и файл с ценами сгенерил, раз уж на то пошло.. smile.gif
Вот:

54.88 59.28 71.52 84.43 60.28 85.79 54.49 84.73 42.37 62.36
64.59 38.44 43.76 29.75 89.18 5.67 96.37 27.27 38.34 47.77
79.17 81.22 52.89 48.00 56.80 39.28 92.56 83.61 7.10 33.74
8.71 64.82 2.02 36.82 83.26 95.72 77.82 14.04 87.00 87.01
97.86 47.36 79.92 80.09 46.15 52.05 78.05 67.89 11.83 72.06
63.99 58.20 14.34 53.74 94.47 75.86 52.18 10.59 41.47 47.36
26.46 18.63 77.42 73.69 45.62 21.66 56.84 13.52 1.88 32.41
61.76 14.97 61.21 22.23 61.69 38.65 94.37 90.26 68.18 44.99
35.95 61.31 43.70 90.23 69.76 9.93 6.02 96.98 66.68 65.31
67.06 17.09 21.04 35.82 12.89 75.07 31.54 60.78 36.37 32.50
57.02 3.84 43.86 63.43 98.84 95.89 10.20 65.28 20.89 63.51
16.13 99.53 65.31 58.19 25.33 41.44 46.63 47.47 24.44 62.35


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Таблетка_Счастья   Список Минимальных цен   23.11.2008 12:31
Lapp   Таблетка_Счастья, сделай мне маленькое мое счастье...   23.11.2008 12:56
Таблетка_Счастья   Я исправила, извините ((   23.11.2008 12:59
Lapp   Я исправила, извините (( Спасибо! :) Тут буде...   23.11.2008 13:12
Таблетка_Счастья   мы стринг не проходили string   23.11.2008 13:16
Lapp   мы стринг не проходили string О-о! :blink: А...   23.11.2008 13:25
Unconnected   А заполнять надо случайным образом или с клавиатур...   23.11.2008 16:29
Lapp   А заполнять надо случайным образом или с клавиатур...   23.11.2008 16:34
Unconnected   Ну почему,можно сделать массив с названиями...и сл...   23.11.2008 16:37
Lapp   Просто я уже сделал фактически и попробовал заполн...   23.11.2008 16:44
Таблетка_Счастья   Там вроде бы подразумевается, что это все уже введ...   23.11.2008 19:31
Unconnected   const m=10; n=12; d=5; var mas1:array...   23.11.2008 19:51
Таблетка_Счастья   я примерно знаю как делать.. Спасибо большое..Толь...   23.11.2008 20:15
Unconnected   Сейчас выложу... [b]Добавлено через 19 мин. [co...   23.11.2008 20:39
Таблетка_Счастья   все пасипа большое! Работает все )))) Теперь в...   23.11.2008 21:30
Lapp   все пасипа большое! Работает все )))) Теперь в...   24.11.2008 8:03
Unconnected   Точно работает? И правильные результаты выдаёт? :b...   23.11.2008 21:31
Таблетка_Счастья   ну да, вроде правильно делает. А что должна не пра...   23.11.2008 21:43
Unconnected   Просто у меня никогда всё сразу не работает) Ну зн...   23.11.2008 21:48
Гость   Lapp, ладно,знаешь,главное ее сдать..Аучилка пусть...   24.11.2008 10:14
Lapp   Lapp, ладно,знаешь,главное ее сдать..Аучилка пусть...   24.11.2008 10:39
Unconnected   2Lapp, наверно это просто привычка(Может,и дурная)...   24.11.2008 11:07
Lapp   привычка(Может,и дурная)Совершенно точно дурная. ...   24.11.2008 11:42


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 27.07.2025 2:39
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"