uses Crt; type bagaz=record//тип запись багаж kol:byte;//кол-во ves:real;//вес end; var bg:array[1..100] of bagaz;/массив записей n,i,k,k2,ks,p:integer; srv,srk:real; begin clrscr; writeln('Введите количество пассажиров n='); readln(n); writeln('Введите данные о багаже'); srv:=0;srk:=0;k:=0; for i:=1 to n do begin writeln('Багаж ',i); write(' Количество мест: ');readln(bg[i].kol); k:=k+bg[i].kol;//считаем сколько всего вещей write(' Вес: ');readln(bg[i].ves); srk:=srk+bg[i].kol;//считаем количество для среднего srv:=srv+bg[i].ves;//общий вес для среднего end; srk:=srk/n;//среднее кол-во srv:=srv/k;//средний вес writeln('Средний вес 1 вещи=',srv:0:2); p:=0; writeln('Багаж, где средний вес одной вещи отличается не более 0.3 от среднего веса'); k2:=0;ks:=0; for i:=1 to n do begin if abs(bg[i].ves/bg[i].kol-srv)<=0.3then//если разница по модулю не больше 0,3 begin p:=1;//есть writeln(bg[i].kol,' ',bg[i].ves:0:2);//выводим end; if bg[i].kol>2 then k2:=k2+1;//кол-во вещей болше 2 if bg[i].kol>srk then ks:=ks+1;//кол-во больше среднего end; if p=0 then writeln('Такого багажа нет!'); writeln; writeln('Число пассажиров, имеющих более 2х вещей=',k2); writeln('Среднее число вещей=',srk:0:0); writeln('Число пассажиров, имеющих вещей больше среднего=',ks); readln end.
0 / 0 / 0 Регистрация: 14.12.2009 Сообщений: 10 |
|
1 |
|
26.12.2009, 15:23. Показов 8235. Ответов 4
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно — действительное (вес в килограммах). Найти: багаж, средний вес одной вещи, в котором отличается не более чем на 0.3 кг от общего среднего веса одной вещи; число пассажиров, имеющих более двух вещей и число пассажиров, количество вещей которых превосходит среднее число вещей. Вообще не понял как с этим справиться…
0 |
Programming Эксперт 94731 / 64177 / 26122 Регистрация: 12.04.2006 Сообщений: 116,782 |
26.12.2009, 15:23 |
4 |
3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531 |
|
29.12.2009, 01:54 |
2 |
Сергей Шут, а с чем у Вам тут возникают проблемы, не подскажите?
Найти: багаж, средний вес одной вещи, в котором отличается не более чем на 0.3 кг от общего среднего веса одной вещи; число пассажиров, имеющих более двух вещей и число пассажиров, количество вещей которых превосходит среднее число вещей. и выводите ответ. Показывайте, что сделали, что не получилось…
1 |
0 / 0 / 0 Регистрация: 14.12.2009 Сообщений: 10 |
|
29.12.2009, 16:05 [ТС] |
3 |
Мне текст программы надо …. а я не кумекаю в этом ….
0 |
Puporev Почетный модератор 64287 / 47586 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182 |
||||
29.12.2009, 17:16 |
4 |
|||
0 |
3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531 |
|
30.12.2009, 02:48 |
5 |
Сергей Шут, так вот, если Вам в следующий раз понадобится код, то Вы так и пишите, а не:
Вообще не понял как с этим справиться… Я подумал, что Вы не понимаете алгоритма и расписал Вам его, в следующий раз пишите: Мне нужен код программы, сам я не могу написать.
0 |
IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604 |
30.12.2009, 02:48 |
Помогаю со студенческими работами здесь Найти багаж, средний вес одной вещи в котором отличается не более, чем на 0.3 кг: Блок-схема Багаж пассажира характеризуется количеством вещей и общим… Найти багаж, средний вес одной вещи в котором отличается не более чем на m кг от общего среднего веса одной Найти багаж, средний вес одной вещи, в котором отличается не более чем на 0,3 кг от общего среднего веса
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: 5 |
Таблица примерного веса вещей
В таблице ниже указан приблизительный вес товаров из разных категорий и групп. Используйте его для расчета ориентировочного веса посылки. Не забывайте, что вес указан примерно — очень много товаров имеют разную массу. Например летние кроссовки могут быть на 100-200 грамм легче, нежели зимние утепленные кроссы. Но и то и другое — будет относиться к категории Обувь->Кроссовки.
—
Товар вещь |
Мужская одежда |
Женская одежда |
Детская одежда |
Вес, грамм на 1 едицину товара |
|||
Костюм (пиджак +брюки) |
1700 |
1600 |
|
Свитер (джемпер) |
500 |
500 |
400 |
Спортивный костюм |
800 |
800 |
600 |
Джинсы |
500 |
500 |
350 |
Галстук |
100 |
||
Рубашка |
300 |
300 |
300 |
Футболка |
200 |
200 |
150 |
Бюстгалтер |
100 |
||
Трусы |
50 |
50 |
40 |
Майка |
90 |
90 |
90 |
Купальник |
150 |
||
Плавки |
100 |
||
Юбка |
300 |
300 |
|
Джемпер |
500 |
500 |
500 |
Шорты |
200 |
200 |
200 |
Шорты джинсовые |
300 |
300 |
300 |
Куртка зимняя |
1100 |
1100 |
900 |
Куртка ветровка |
600 |
600 |
600 |
Шуба |
4000 |
||
Поло |
250 |
250 |
200 |
Пижама |
400 |
400 |
300 |
Леггинсы |
200 |
200 |
|
Перчатки |
200 |
200 |
200 |
Жилет (трикотажный) |
250 |
250 |
250 |
Шапка зимняя |
300 |
300 |
300 |
Пальто |
1500 |
1500 |
1400 |
Дутый жилет |
450 |
450 |
300 |
Толстовка (худи) |
500 |
500 |
500 |
Носки (пара) |
50 |
50 |
50 |
Ремень с пластиковой пряжкой |
200 |
200 |
200 |
Ремень с металлической пряжкой |
300 |
300 |
300 |
Шапка шерстяная |
200 |
200 |
200 |
Боди (детская) |
150 |
||
Водолазка |
200 |
200 |
150 |
Жакет (блейзер) |
500 |
||
Сарафан (хлопковый) |
480 |
||
Сарафан (синтетика) |
300 |
||
Платье (шерстяное) |
600 |
||
Платье (шифон) |
350 |
||
Платье (хлопок) |
300 |
||
Комбинезон |
600 |
||
Варежки |
300 |
300 |
100 |
Кожаные перчатки |
400 |
400 |
|
Махровый халат |
1200 |
1200 |
—
Товар вещь |
Мужская обувь |
Женская обувь |
Детская обувь |
Вес, грамм на 1 едицину товара |
|||
Кеды |
700 |
700 |
700 |
Угги |
900 |
900 |
900 |
Кросовки |
800 |
800 |
750 |
Резиновые сапоги |
1500 |
1400 |
1100 |
Сапоги |
1500 |
1300 |
|
Ботильоны |
1200 |
||
Туфли |
900 |
900 |
800 |
Шлепанцы |
300 |
300 |
300 |
Мокасины |
600 |
600 |
600 |
Тапки |
300 |
300 |
300 |
Босоножки на танкетке |
600 |
—
Аксессуары |
Вес, грамм на 1 едицину товара |
Очки |
250 |
Носовой платок |
30 |
Клатч тканевый |
500 |
Кошелек |
250 |
Зонт |
400 |
Барсетка |
600 |
Шарф (шелк) |
150 |
Шарф (акрил) |
500 |
—
Белье |
Вес, грамм на 1 едицину товара |
Скатерть |
600 |
Простыня |
500 |
Пододеяльник |
700 |
Наволочка |
200 |
Полотенце банное махровое |
900 |
Полотенце (тканевое) |
500-700 |
—
Детское для детей |
Вес, грамм на 1 едицину товара |
Детский манеж |
9000-16000 |
Стульчик для кормления (пластик) |
11000 |
Автокресло типа NANIA MAXIM |
6300 |
Молокоотсос ручной |
600 |
Молокоотсос на батерейсках типа Medela (без батареек) |
400 |
Радионяня |
650 |
Детское сиденье для велосипеда |
2500 |
Гироскутертипа Smart Balance Wheel SUV 10 |
11000 |
Роликовые коньки |
2800 |
—
Электроника |
Вес, грамм на 1 едицину товара |
Мобильный телефон в коробке с зарядным устройством |
300-400 |
Apple iPhone 7 128gb |
138 |
Фотоаппарат |
700 |
Ноутбук |
3000 |
Ультрабук (13,5″) |
1300 |
Нетбук |
1400 |
Игровая приставка |
2100 |
Ipod |
140 |
GPS навигатор |
250 |
Электронная книга |
300 |
Плазменный телевизор (42″) |
13500 |
Плазменный телевизор (42″) |
18500 |
Спутниковая тарелка (диаметр 55 см) |
1600 |
Проектор |
2100 |
Планшет 7″ |
300 |
Модем типа Dlink серии N |
400 |
—
Бытовая техника |
Вес, грамм на 1 едицину товара |
Аэрогриль |
2500 |
Блендер погружной |
1600 |
Блинница ( с 1 углублением) |
1250 |
Блинница ( 6 углублений) |
3400 |
Йогуртница (Moulinex) |
3200 |
Кофеваркатипа POLARIS PCM 1516E Adore Crema |
3400 |
Кофемашина типа SAECO Incanto HD 8918/09 |
8700 |
Капсульная кофемашина типа KRUPS Dolce Gusto KP |
2600 |
Кухонные весы |
500 |
Кухонный комбайн типа BOSCH MCM3501M MultiTalent 3 |
3700 |
Миксеры типа SCARLETT SC-HM40B01 |
1000 |
Мороженица |
2000 |
Мультиваркатипа POLARIS PMC 0514AD |
4000 |
Мясорубка |
3300 |
Пароварка (на 9 литров) |
2400 |
Пылесос типа Bosch BSN2100 |
4800 |
Соковыжималка (объемом 1 литр) |
860 |
Тостер |
900 |
Утюг |
1900 |
Фритюрница типа Gastrorag CZG40X |
5400 |
Хлебопечка (на 12 кг выпечки) |
4000 |
Электрочайник |
790 |
Электрогриль типа GFGRIL GF-030 |
1500 |
Электрошашлычница |
1900 |
Сплит система кондиционирования |
35000 |
Варочная электрическая панель типа Electrolux EHF 96547 XK |
12000 |
Машинка для стрижки |
600 |
Швейная машинка типа JANOME 2004 |
5000 |
Электрическая зубная щетка |
180 |
Электричесская сушилка для обуви |
200 |
Перфоратор типа Makita HR2450 |
2400 |
—
Прочее |
Вес, грамм на 1 едицину товара |
Тонометр |
500-700 |
Ежедневник |
300 |
Чехол для телефона |
150 |
Чемодан (пластиковый) |
4500 |
Кронштейн для крепления телевизора |
350 |
HDMI кабель 2 метра |
80 |
Палатка туристическая типа Trek Planet |
2100 |
—
Если вы не нашли того, что искали — уточните у менеджера.
uses crt; type bagaz = record kol: byte; ves: real; end; var bg: array [1 .. 100] of bagaz; n, i, k, k2, ks, p: integer; srv, srk: real; begin Writeln('введите кол-во пассажиров'); Readln(n); Writeln('введите данные о багаже'); srv := 0; srk := 0; k := 0; for i := 1 to n do begin Writeln('багаж ', i); write('количество мест: '); Readln(bg[i].kol); k := k + bg[i].kol; write('вес: '); Readln(bg[i].ves); srk := srk + bg[i].kol; srv := srv + bg[i].ves; end; srk := srk / n; srv := srv / k; Writeln('средний вес 1 вещи = ', srv:0:2); p := 0; Writeln('багаж, где средний вес 1 вещи отличается не более, чем на 0,3 от среднего веса'); k2 := 0; ks := 0; for i := 1 to n do begin p := 1; Writeln(bg[i].kol, ' ', bg[i].ves:0:2); end; if bg[i].kol > 2 then k2 := k2 + 1; if (bg[i].kol > srk) then ks := ks + 1; if p = 0 then Writeln('такого багажа нет'); Writeln; Writeln('число пассажиров, имеющих более 2 вещей = ', k2); Writeln('среднее число вещей = ', srk:0:0); Writeln('число пассажиров, имеющих вещей больше среднего = ', ks); Readln; end.
14K
05 ноября 2005 года
ХмырЪ
1 / / 05.11.2005
Помогите пожалуйста решить задачку :
2 Багаж пассажира характеризуется количеством вещей (целый тип) и общим весом вещей (вещественный тип). Дан список из сведений о багаже 10 пассажиров.
Найти багаж, средний вес одной вещи, в котором отличается не более, чем на 0,3 кг от общего среднего веса одной вещи по всему списку
Помогите пожалуйста а то послезавтра экзамен а задач надо решить много и вот эта у меня не получается . Заранее благодарен и буду очень признателен