Описать структуру train

@almazka · Регистрация: 20.02.2014

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста со структурой. Задача: Описать структуру train, содержащую следующие поля: название, номер, время. Написать программу выполняющую следующие действия: 1) ввод с клавиатуры данных в массив из 8 элементов типа train, записи должны быть упорядочены по номерам. 2) Вывод на экран информации о поезде, номер которого введён с клавиатуры
3) если таких нет, то выдать сообщение.
Я сделал на делфи, но на c++ не могу перевести.
Вот код делфи

Delphi
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
type train=record
 Naz:string[20];
 Nomer:string[20];
 Vremya:string[10];
 end;
 
var
 Form1: TForm1; F:file of train;
 fail:train;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
begin
AssignFile(F,Edit2.text);
Rewrite(f);
 For i:=0 to 7 do with fail do begin
 Naz:=StringGrid1.Cells[0,i];
 Nomer:=Stringgrid1.cells[1,i];
 Vremya:=Stringgrid1.cells[2,i];
 Write(f,fail);
 end;
 CloseFile(f);
 Reset(f);
 k:=0;
 for i:=0 to 7 do begin
 seek(f,0);
 while not eof(f) do begin
 read(f,fail);
with fail do
if strtoint(nomer)=i then begin
stringgrid1.cells[0,k]:=Naz;
stringgrid1.cells[1,k]:=Nomer;
stringgrid1.cells[2,k]:=Vremya;
k:=k+1;
end;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var n,i:integer;
g:boolean;
begin
g:=true;
n:=strtoint(edit1.text);
for i:=0 to 7 do stringgrid1.Cols[i].clear;
 Reset(f,edit2.text);
 i:=0;
 while not eof(f) do begin
 read(f,fail);
with fail do
 if strtoint(Nomer)=n then begin
 StringGrid1.Cells[0,i]:=Naz;
 StringGrid1.Cells[1,i]:=Nomer;
 StringGrid1.Cells[2,i]:=Vremya;
 i:=i+1;
 g:=false;
 end;
 end;
if g=true then ShowMessage('net!');
Closefile(f);
end;
end.

@D1973 · 09.05.2014, 10:48

C++
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
...
struct Train {String Marshrut; String Number; TTime Otpravlenie;};
Train Tr[8];
int Num = 0;
...
void __fastcall TForm4::Button1Click(TObject *Sender)
{
  if(Edit1->Text.Trim().IsEmpty() || Edit2->Text.Trim().IsEmpty())
   {
     ShowMessage("Не все значения указаны");
     return;
   }
  Tr[Num].Marshrut = Edit1->Text;
  Tr[Num].Number = Edit2->Text;
  Tr[Num].Otpravlenie = DateTimePicker1->Time;
  Num++;
  Label4->Caption = "Добавлено " + IntToStr(Num) + " записей";
  Edit1->Text = "";
  Edit2->Text = "";
  Edit1->SetFocus();
  if(Num > 7)
   {
     GroupBox1->Enabled = false;
     GroupBox2->Enabled = true;
     Edit3->SetFocus();
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button2Click(TObject *Sender)
{
  int i;
  if(Edit3->Text.Trim().IsEmpty())
   {
     ShowMessage("Не указано значение поиска");
     return;
   }
  for(i = 0; i < 8; i++)
   {
     if(Tr[i].Number == Edit3->Text)
      {
        Label5->Caption = "Поезд № " + Tr[i].Number;
        Label6->Caption = "Маршрут - " + Tr[i].Marshrut;
        Label7->Caption = "Время отправления - " + TimeToStr(Tr[i].Otpravlenie);
        break;
      }
   }
}

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Описать структуру train

Решение