Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
naty7773
12 / 0 / 0
Регистрация: 27.04.2011
Сообщений: 42
#1

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

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

Задание

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

Помогите написать программу,немного не поняла как с записями работать(

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

Багаж пассажира характеризуется количеством вещей и общим весом вещей
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан...

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

Выясните, имеет ли пассажир багаж которого состоит из одних вещей весом 30кг
выясните имеет ли пассажир багаж которого состоит из одних вещей весом 30кг ...

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

2
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,655
Записей в блоге: 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 / 0
Регистрация: 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

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

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

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


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

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

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