Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
naty7773
12 / 0 / 1
Регистрация: 27.04.2011
Сообщений: 42
#1

Выяснить, имеются ли пассажиры с одинаковым количеством и общим весом вещей - Turbo Pascal

09.05.2012, 23:20. Просмотров 545. Ответов 2
Метки нет (Все метки)

Задание

Даны сведения о багаже пассажиров: фамилия, имя, отчество, количество вещей, общий вес.
Выяснить, имеются ли пассажиры с одинаковым количеством и общим весом вещей.

Помогите написать программу,немного не поняла как с записями работать(
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2012, 23:20
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Выяснить, имеются ли пассажиры с одинаковым количеством и общим весом вещей (Turbo Pascal):

Подсчитать количество пассажиров, у которых больше трех вещей общим весом больше 100 кг - Turbo Pascal
Даны сведения о багаже пассажиров: фамилия, имя, отчество, количество вещей, общий вес. Выяснить, имеется ли пассажир с одной вещью....

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

Выясните, имеет ли пассажир багаж которого состоит из одних вещей весом 30кг - Turbo Pascal
выясните имеет ли пассажир багаж которого состоит из одних вещей весом 30кг program ss; uses crt; type bagaj = record x:integer;...

Найти пассажира с наибольшим количеством вещей - Turbo Pascal
Ребята выручите ! не могу правильно построить код программы! Задание: структура Элемента массива пассажир: фамилия , имя , отчество,...

Определить, имеются ли два пассажира, багажи которых совпадают по числу вещей - Pascal
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Сведения о багаже каждого пассажира представляют собой запись с...

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

2
CodeR
Фрилансер
3379 / 2781 / 788
Регистрация: 08.02.2012
Сообщений: 6,543
Записей в блоге: 1
10.05.2012, 15:37 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
Program bagaji;
Const n=3;
Type Bagaj=Record
     F:string[15];
     I:string[10];
     O:string[15];
     Kol:integer;
     Ves:integer;
     End;
Var i,j,k:integer;
    baga:array[1..n] of bagaj;
Begin
    k:=0;
    For i:=1 to n do
    With baga[i] do
    Begin
    write('Введите Фамилию [',i,']-го пассажира ');readln(F);
    write('Введите Имя [',i,']-го пассажира ');readln(I);
    write('Введите Отчество [',i,']-го пассажира ');readln(O);
    write('Введите кол-во вещей [',i,']-го пассажира ');readln(Kol);
    write('Введите общий вес багажа [',i,']-го пассажира ');readln(Ves);
    End;
    For i:=1 to n do
     For j:=1 to n do
      if (baga[i].kol=baga[j].kol)and(baga[i].ves=baga[j].ves)and(i<>j) then inc(k);
    if k<>0 then writeln('Пассажиров с одинаковы кол-м и общем весом вещей: ',k)
    else writeln('Таких пассажиров нету');
    Readln;
End.
0
naty7773
12 / 0 / 1
Регистрация: 27.04.2011
Сообщений: 42
10.05.2012, 15:53  [ТС] #3
Спасибо вам огромное!!!!!!!!!!!!!!!!!!!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2012, 15:53
Привет! Вот еще темы с ответами:

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

Сформировать числовой массив с одинаковым количеством строк и колонок следующим ообразом: - Pascal
Ребята, помогите, срочно надо! Задаётся натуральное число. Сформировать числовой массив с одинаковым количеством строк и колонок...

Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом менее 30 кг - Turbo Pascal
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл содержащий сведения о багаже каждого пассажира представляет...

Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом менее 30 кг - Turbo Pascal
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Сведения о багаже каждого пассажира представляют собой ...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru