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 |
Записи: Найти багаж, вес одной вещи в котором отличается не более, чем на 0.3 кг от общего среднего веса
Таблица примерного веса вещей
В таблице ниже указан приблизительный вес товаров из разных категорий и групп. Используйте его для расчета ориентировочного веса посылки. Не забывайте, что вес указан примерно — очень много товаров имеют разную массу. Например летние кроссовки могут быть на 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 кг от общего среднего веса одной вещи по всему списку
Помогите пожалуйста а то послезавтра экзамен а задач надо решить много и вот эта у меня не получается . Заранее благодарен и буду очень признателен