Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 22.04.2019
Сообщений: 1
1

Описать запись с именем TRAIN, содержащую следующие поля

22.04.2019, 14:52. Просмотров 489. Ответов 1
Метки нет (Все метки)


Написала программу, не могу понять в чем ошибка, помогите пожалуйста

1. Описать запись с именем TRAIN, содержащую следующие поля:
• NAZN — название пункта назначения;
• NUMR — номер поезда;
• TIME — время отправления.
2. Написать программу, выполняющую следующие действия:
• ввод с клавиатуры данных в массив RASP, состоящий из восьми элементов типа TRAIN;
записи должны быть размещены в алфавитном порядке по названиям пунктов назначения;
• вывод на экран информации о поездах, отправляющихся после введенного с клавиатуры
времени;
• если таких поездов нет, выдать на дисплей соответствующее сообщение.

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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
program v7;
 
type
  TRAIN = record 
    nazn: string[15];
    numr: integer;
    time: string;
    sb: real;  end;
  rasp1 = array[1..15] of TRAIN;rasp2 = array[1..10] of integer;
 
var
  Rs: rasp1;
  n: integer;
 
procedure addKlass(var R: rasp1; n: integer);
var
  i, j, t: integer;
  s: real;
begin
  for i := 1 to n do 
  begin
    writeln('Пункт назначения ');
    readln(R[i].nazn);
    s := 0;
    writeln('Номер поезда ' );
    for j := 1 to n do 
    begin
      readln(R[i].numr);
      s := 0;
      writeln('Время ' );
      readln(R[i].time);
      s := 0; 
    end; 
  end; 
end;
 
procedure printKlass(var R: rasp1; n: integer);
var
  i, j: integer;
begin
  writeln;
  writeln('-------------------Расписание поездов------------------');
  for i := 1 to n do 
  begin
    writeln;
    write(R[i].nazn:17, R[i].sb:6:1);
    for j := 1 to n do 
      write(R[i].numr:3 ); 
  end; 
end;
 
procedure sortSB(var R: rasp1; n: integer);
var
  i, j: integer;
  temp: TRAIN;
begin
  for i := 1 to n - 1 do 
    for j := i + 1 to n do 
      if R[i].sb > R[j].sb then 
      begin
        temp := R[i];R[i] := R[j];R[j] := temp;
      end;
end;
 
function findSB(var R: rasp1; n: integer; kSB: real ): integer;
var
  i, kr: integer;
begin
  writeln;
  writeln('------------------результат поиска----------------');
  kr := 0;
  for i := 1 to n do 
    if R[i].sb >= kSb then 
    begin
      writeln(R[i].nazn:17, R[i].sb:6:1 );
      inc(kr); 
    end;
  findSB := kr; 
end;
 
var
  p: integer;
 
begin
  write(' Количество поездов ');
  readln(n);
  addKlass(Rs, n);
  printKlass(Rs, n);
  sortSB(Rs, n);
  printKlass(Rs, n);
  p := findSB(Rs, n, 4.0);
  if p = 0 then 
    writeln(' поездов нет') 
  else 
    writeln(' Расписание поездов после введенного времени  -', p);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2019, 14:52
Ответы с готовыми решениями:

Описать структуру с именем TRAIN, содержащую следующие поля:
Описать структуру с именем TRAIN, содержащую следующие поля: 1) Название пункта назначения; 2)...

Описать запись с именем Country, содержащую следующие поля
1.Описать запись с именем Country, содержащую следующие поля: • Название страны; • количество...

Описать структуру с именем MARSH, содержащую следующие поля
Описать структуру с именем MARSH, содержащую следующие поля: - название начального пункта...

Описать структуру с именем PERSON, содержащую поля
Описать структуру с именем PERSON, содержащую поля: Name – фамилия и инициалы, FAC – факультет,...

1
Эксперт Pascal/Delphi
6530 / 4398 / 4703
Регистрация: 05.06.2014
Сообщений: 21,615
22.04.2019, 17:52 2
Цитата Сообщение от milarzv Посмотреть сообщение
Написала программу
Врете! (С) Буратино
Цитата Сообщение от milarzv Посмотреть сообщение
не могу понять в чем ошибка
В форматировании. Исправлено
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2019, 17:52

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

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

Описать запись с именем STUDENT, содержащую следующие поля: фамилия, имя, отчество, номер группы, успеваемость
Описать запись с именем STUDENT, содержащую следующие поля: фамилия, имя, отчество, номер группы,...

Описать запись с именем TRAIN
Пожалуйста, помогите)) Описать запись с именем TRAIN, содержащую следующие поля: название пункта...

Описать пользовательский тип данных с именем TRAIN типа запись
Всем, кто помогал мне ранее с задачами - спасибо, особенно пользователю Викдон)) Но появилась...


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

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

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