Составить программу, которая определяет «самый популярный товар», то есть товар, количество единиц которого продали наибольшее за указанные 3 месяца.
помогите пожалуйста решить задачи
Страница: 1
Сообщений 1 страница 4 из 4
Поделиться12013-06-24 10:32:14
Поделиться22013-06-24 23:18:09
- Серый Сеошник
- Зарегистрирован: 2012-06-14
- Приглашений: 0
- Сообщений: 1134
- Уважение: [+13/-0]
- Позитив: [+15/-0]
- Пол: Мужской
- Провел на форуме:
1 месяц 0 дней - Последний визит:
2016-01-30 15:08:11
Ну что тут сложного то блин.....
type tovar=record
name:string[20];
jun:integer;
feb:integer;
mar:integer;
bablo:integer; end;
var d:array[1...100] of tovar; i,nomer:integer;
{тут пишем код запонление ничего сложного тут нету , если никак напишу , просто я сегодня заебался решат задачи}
{Условие отбора}
max:=d[1].jun+d[1].feb+d[1].mar ;
for i:=2 to 100 do
if d[i].jun+d[i].feb+d[i].mar > max then begin max:=d[i].jun+d[i]feb+d[i]+mar ; nomer:=i; end;
writeln(d[nomer].name);{выводим название популярного товара}
readln;
end.
Поделиться32013-06-25 05:37:23
{тут пишем код запонление ничего сложного тут нету , если никак напишу , просто я сегодня заебался решат задачи}
я не совсем понимаю, что за код заполнение, т.е. никак.
Спасибо.
Поделиться42013-06-25 10:12:52
- Серый Сеошник
- Зарегистрирован: 2012-06-14
- Приглашений: 0
- Сообщений: 1134
- Уважение: [+13/-0]
- Позитив: [+15/-0]
- Пол: Мужской
- Провел на форуме:
1 месяц 0 дней - Последний визит:
2016-01-30 15:08:11
Вот... Проверяй!
type tovar=record
name:string[20];
jun:integer;
feb:integer;
mar:integer;
bablo:integer; end;
var d:array[1...100] of tovar; i,nomer:integer;
begin
for i:=1 to 100 do
with d[i] do begin
readln(name);
readln(jun);
readln(feb);
readln(mar);
readln(bablo);
end;
max:=d[1].jun+d[1].feb+d[1].mar ;
for i:=2 to 100 do
if d[i].jun+d[i].feb+d[i].mar > max then begin max:=d[i].jun+d[i].feb+d[i].mar; nomer:=i; end;
writeln(d[nomer].name);{выводим название популярного товара}
readln;
end.
Страница: 1