Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
NeoJUVE
0 / 0 / 0
Регистрация: 09.12.2011
Сообщений: 8
1

Сортировка Списка по времени

09.12.2011, 19:52. Просмотров 344. Ответов 0
Метки нет (Все метки)

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
97
98
program spisok;
uses crt;
const n=10000;
type spisok=record
punkt:string[20];
tip:string[3];
end;
type vremya=record
cas:integer;
min:integer;
end;
var
    tbl:array[1..n] of spisok;
    vr:array [1..n]of vremya;
    f:Text;
    k,y:integer;
procedure Make;
var l:string; n,i:integer;
begin
textcolor(lightgreen);
 writeln('sozdanie faila');
  textcolor(black);
writeln('Vvedite imya faila');
readln(l);
     assign(f,l);
     rewrite(f);
n:=0;
    Repeat
        n:=n+1;
        Write('punkt otpravlenia ',n,' marshuta  ');
        ReadLn(tbl[n].punkt);
        If tbl[n].punkt <>'^' then
        begin
         Write('vremya otpravlenia ',n,' marshruta ');
            ReadLn(vr[n].cas);
            writeln (':');
            readln (vr[n].min);
            Write('tip vagonog',n,' marshruta ');
            ReadLn(tbl[n].tip);
        end;
        until tbl[n].punkt='^';
     for i:=1 to n do
      begin
         writeln(f,tbl[i].punkt);
         writeln(f,vr[i].cas);
         writeln (f,vr[i].min);
         writeln(f,tbl[i].tip);
      end;
      close(f);
      writeln('dannye uspesho sohraneny. push Enter.');
      readln;
   end;
procedure show;
var i:integer; l:string;
begin
textcolor(lightgreen);
 writeln('prosmotr faila');
  textcolor(black);
writeln('vvedite imya faila');
readln(l);
     assign(f,l);
     reset(f);
writeln('punkt | vremya  |tip vagona');
     i:=0;
 while not eof(f) do
   begin
inc(i);
readln(f,tbl[i].punkt);
readln(f,vr[i].cas);
readln(f,vr[i].min);
readln(f,tbl[i].tip);
writeln('  ',tbl[i].punkt,'|        ',vr[i].cas,':',vr[i].min,'|    ',tbl[i].tip);
   end;
   readln;
   close(f);
  end;
Porcedure Sortirovka;
???????????? вот здесь должна быть процедура которая сортирует список по времени отправления
begin
 
 k:=0;
 repeat
clrscr;
writeln('programma spisok');
writeln('1.sozdanie');
writeln('2.pokaz');
writeln('3.sort ');
 writeln('4.vyxod');
write('vybirete deystvie:');
  readln(y);
  case y of
   1:Make;
   2:show;
   3:Sortirovka; 
   4:k:=1;
   end;
 until k=1;
 end.
Расписание электричек хранится в текстовом файле на диске. Каждая запись со¬держит название пункта назначения, пометки типа «СВ», «ПВ», «КСВ» и время отправления.
Написать программу, выполняющую следующие действия:
сортировку по времени отправления;
помогите с создание процедуры дял сортировки по времени отправления.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2011, 19:52
Ответы с готовыми решениями:

Сортировка списка!
Здраствуйте многоуважаемые киберфорумчане! Пожалуйста помогите решить задачу!...

Сортировка списка
Помогите кто может решить задачку!!!!! Нужно написать пузырьковую сортировку...

Сортировка списка
const n=...; {целая константа&gt;1} type число=расked array of 0..9; ...

Сортировка динамического списка
Задача: Отсортировать динамический список по неубыванию. Помогите, кто чем...

Сортировка списка студентов
В одном файле содержится список студентов (фамилия, имя, отчество, год рождения...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2011, 19:52

Создание списка, печать списка на экран, добавления элемента в начало списка, конец списка
Построить динамическую структуру типа список . Необходимо реализовать следующие...

Сортировка однонаправленного списка вставками
помогите реализовать сорртировку вставками в однонаправленном линейном списке

сортировка списка и количество букв
помогите очень надо! условие: 1) ввести с клавиатуры список товаров на...


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

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

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