Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 29.02.2016
Сообщений: 2

Определите число пассажиров, имеющих более двух вещей

29.02.2016, 17:50. Показов 1646. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите, пожалуйста!
Сведения о багаже каждого из пятнадцати пассажиров представляют собой запись с 3-мя полями: одно поле целого типа- кол-во вещей, второе поле действительного типа – общий вес багажа в кг третье поле строкового типа – фамилия пассажира. Определите:
а) число пассажиров, имеющих более 2-хвещей
б) имеется ли пассажир, багаж которого состоит из одной вещи весом менее 30 кг(выведите фамилию пассажира).
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
29.02.2016, 17:50
Ответы с готовыми решениями:

Найти число пассажиров, имеющих более двух вещей
Работа над файлами. Условие программы в картике (вложение)...

Найти число пассажиров, имеющих более двух вещей
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан массив, содержащий инфорацию о багаже нескольких пассажиров: ...

Структура: Найти число пассажиров, у которых количество вещей превосходит среднее число вещей всех пассажиров.
Program Perviu; type baggade = record kolvesh:integer; ves:real; end; var a:array of baggade; i:integer; pas:integer;

2
Эксперт С++
1624 / 954 / 782
Регистрация: 06.02.2016
Сообщений: 2,452
Записей в блоге: 31
29.02.2016, 18:40
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program pr;
const 
n=15;
type
bags=record 
count:integer;
weight:double;
surname:string[50];
end;
var
i,kol:integer;
peoples:array [1..n] of bags;
begin
for i:=1 to n do
begin
writeln('Введите количество вещей пассажира');
readln(peoples[i].count);
writeln('Введите вес багажа пассажира');
readln(peoples[i].weight);
writeln('Введите фамилию пассажира');
readln(peoples[i].surname);
end;
kol:=0;
for i:=1 to n do
begin
if (peoples[i].count>2)then
kol:=kol+1;
end;
writeln('Количество пассажиров, имеющих в багаже более 2-х предметов: ',kol);
for i:=1 to n do 
begin
if ((peoples[i].count=1) and (peoples[i].weight<30))then
writeln('Фамилия пассажира имеющего в багаже 1 вещь,весом менее 30 кг: ',peoples[i].surname);
end;
end.
1
0 / 0 / 0
Регистрация: 29.02.2016
Сообщений: 2
29.02.2016, 18:49  [ТС]
спасибо)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
29.02.2016, 18:49
Помогаю со студенческими работами здесь

Найдите багаж, средний вес каждой вещи которого, отличается не более чем 0.3 кг от среднего веса вещей всех пассажиров.
Багаж пассажира характеризуется количеством вещей. Пусть дан массив, содержащий информацию о багаже ​​нескольких пассажиров: - найдите...

Найти число пассажиров, имеющих более двух вещей.
Известна информация о багаже (количество вещей и общий вес багажа) 24 пассажиров. а) Найти число пассажиров, имеющих более двух вещей. ...

Число пассажиров, имеющих более 2-х вещей и число тех, у кого количество вещей превосходит среднее число вещей
Помогите пожалуйста, находила эту задачу в интернете, но мне нужно сделать так, чтобы программа брала данный из типизированного файла и...

Найти число пассажиров, имеющих более двух вещей и число пассажиров, количество вещей которых превосходит среднее число вещей
Тема: Записи. Работа с текстовыми файлами. Дан файл f, содержащий сведения о багаже нескольких пассажиров. Багаж пассажира...

Найти число пассажиров, имеющих более двух вещей и...
Тема: Записи. Работа с текстовыми файлами. Дан файл f, содержащий сведения о багаже нескольких пассажиров. Багаж пассажира...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru