Список Минимальных цен |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Список Минимальных цен |
Таблетка_Счастья |
Сообщение
#1
|
Группа: Пользователи Сообщений: 7 Пол: Женский Репутация: 0 |
Помогите пожалуйста решить задачу..Решила 9ть, а последнюю не могу (( Уже неделю бьюсь над ней (( Никак не получается..
Имеются сведения о названиях и ценах на n=12 видов товаров по m=10 магазинам. Требуется составить список пяти магазинов, имеющих минимальные цены по заданному виду товара. Список должен включать номер магазина, название и цену выставленного товара. Магазины в списке расположить в порядке возрастания товара.. Я Даже массив не могу сформировать (( Нужно до завтра ((( Сообщение отредактировано: Таблетка_Счастья - |
Unconnected |
Сообщение
#2
|
mea culpa Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: 24 |
Код const m=10; n=12; d=5; var mas1:array[1..n] of string; mas2:array[1..m,1..n] of real; mas3:array[1..d] of real; a,b:integer; buf1,nt:string; buf2,x2:real; tp,x:integer; begin x:=1; for a:=1 to n do begin buf1:=''; writeln('Введите наименование товара №',a); readln(buf1); mas1[a]:=buf1; end; for a:=1 to m do for b:=1 to n do begin buf2:=0; writeln('Введите наименование товара №,b ,'магазина №',a); readln(buf2); mas2[a,b]:=buf2; end; buf1:=''; writeln('Введите название искомого товара.'); readln(buf1); for b:=1 to n do begin if (buf1=mas1[b]) then begin tp:=b; nt:=mas1[b]; break; end; end; buf1:=''; x:=1; x2:=0; {Здесь должна быть сортировка :)} end. Добавлено через 7 мин. 2Таблетка Счастья, программа немного не доделана, осталось из нужного товара с уже определённой позицией (переменная tp) выбрать 5 наименее дорогих...Это сортировка...Если хочешь, можешь подождать, доделаю наверно. P.S.Lapp,как же похожи начала программ Хотя твоего сообщения я не видел Сообщение отредактировано: Unconnected - -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
Текстовая версия | 26.04.2024 0:59 |