Форум программистов, компьютерный форум CyberForum.ru

Файлы: база данных о продажах автобусных билетов - C++

Восстановить пароль Регистрация
 
Diplomat
0 / 0 / 0
Регистрация: 11.06.2011
Сообщений: 33
16.12.2011, 17:22     Файлы: база данных о продажах автобусных билетов #1
Имеются данные о продажах автобусных билетов. Каждая запись содержит дату, название города, куда отправляется автобус и количество проданных билетов. Определить а) в какой город продано наибольшее количество билетов б)в какой день продано наибольшее количество билетов.

Текст программы на языке Turbo Pascal, а мне нужно на Turbo C++, никак не могу сделать, не получается ...

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
program lab;
uses crt;
type
Rec=record
Date:string[8];
DestCity:string[20];
TicketQ:byte;
end;
Var
i,j,n,MaxN,MN:byte;
Rcrds:array[1..255] of Rec;
MaxV:string;
Max,MaxQ:word;
begin
Clrscr;
WriteLn('Laboratornaq rabota');
WriteLn(Vipolnil: student III kyrsa');
ReadKey;
ClrScr;
Write(Vvedite chislo zapisei:');
ReadLn(n);
WriteLn;
for i:=1 to n do
begin
Write('Vvedite',i,'-u daty:');
ReadLn(Rcrds[i].Date);
Write('Vvedite',i,'-y gorod:');
ReadLn(Rcrds[i].DestCity);
Write('Vvedite',i,'-y chislo biletov:');
ReadLn(Rcrds[i].TicketQ);
end;
ClrScr;
WriteLn('_______________________________________________________________');
WriteLn('Data                   |  Gorod                       | Kolichestvo biletov |);
WriteLn('_______________________________________________________________');
for i:=1 to n do
WriteLn('|',Rcrds[i].Date:8,'|'Rcrds[i].DestCity:20,'|',Rcrds[i].TicketQ:14,'|');
WriteLn('|_______________________________________________________________|);
Max:=0;
MN:=0;
for i:=1 to n do
begin
MaxV:=Rcrds[i].Date;
MaxQ:=Rcrds[i].TicketQ;
MaxN:=i;
for j:=i+1 to n do
if(Rcrds[j].Date=MaxV)then
MaxQ:=MaxQ+Rcrds[j].TicketQ;
if (MaxQ>Max) then
begin
Max:=MaxQ;
MN:=MaxN;
end;
end;
WriteLn('Naibolshee chislo biletov (',Max,')prodano na',Rcrds[MN].Date,'.');
Max:=0;
MN:=0;
for i:=1 to n do
begin
MaxV:=Rcrds[i].DestCity;
MaxQ:=Rcrds[i].TicketQ;
MaxN:=i;
for j:=i+1 to n do
if(Rcrds[j].Date=MaxV)then
MaxQ:=MaxQ+Rcrds[j].TicketQ;
if (MaxQ>Max) then
begin
Max:=MaxQ;
MN:=MaxN;
end;
end;
WriteLn('Naibolshee chislo biletov (',Max,')prodano v gorod',Rcrds[MN].DestCity,'.');
ReadKey;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.12.2011, 17:22     Файлы: база данных о продажах автобусных билетов
Посмотрите здесь:

C++ Использование псевдопеременных: bd (3,5) = s, где bd - база данных, s - элемент базы данных, тогда с 3 по 5 элементы базы данных заменить на элемент s.
база данных С++ C++
C++ Структура и файлы. Расписание автобусных рейсов.
C++ Удалённая база данных - запрос и вывод данных
C++ Подсчитать количество "счастливых" шестизначных автобусных билетов(сумма первых трех цифр равна сумме трех последних цифр)
C++ Структура в С++ (На автовокзале сохраняется информация об автобусных рейсах:)
Могут ли два автобусных билета подряд быть удачными? C++
База данных C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 14:48. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru