Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 33

Подготовить данные содержащие информацию о странах мира, данные оформить в виде записи

19.10.2014, 13:57. Показов 748. Ответов 3
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
у меня есть пример задачи, нужно ее переделать под мое условие помогите пожалуйста
вот условие:
Подготовить данные содержащие информацию о странах мира, данные оформить в виде записи, содержащей следующие поля: Страна, Столица, Часть мира, Население, Площадь. Создать программу записей подготовленных данных во внешний файл, и программу обработки этого файла выполняет следующие команды:
1 Выводит на экран введенные данные.
2 Добавляет записи в начало или конец файла.
3 Удаляет все данные о стране, найменивання которой задан с клавиатуры и выводит на экран обновленное содержимое файла.
4 Сортировка названия столиц по алфавиту.
5 Список стран, площадь которых превышает 500 000 км квадратных

Добавлено через 18 секунд
вот пример:

Добавлено через 4 минуты
первая часть:
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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192

uses
crt;
 
const
n=25;
type
 
potag=record
Namber:string[5];
St_Priz:string[20];
Time:real;
time_dorozi:string[6];
Kvit:String[3];
end;
 
var
fl1,fl2:text;
str:string;
v:potag;
a:array[1..n] of potag;
a1:array[1..n] of potag;
mas:array[1..n] of potag;
z,i,o,j,k,KK,kilp,kil,s,w,y,u,m,l,f:integer;
x,t,q:string[80];
klav,GG:char;
c:real;
 
procedure vvedennja(var kil1:integer);
    begin
        i:=1;
        clrscr;
        assign(fl1,'pam.dat');
        reset(fl1);
        while not Eof(fl1) do
        begin
        readln(fl1,a[i].namber);
        readln(fl1,a[i].st_priz);
        readln(fl1,a[i].time);
        readln(fl1,a[i].time_dorozi);
        readln(fl1,a[i].kvit);
           i:=i+1;
           kil1:=i-1;
            end;
            close(fl1);
        end;
procedure vuvedennja(kilp1:integer);
          begin
          window(1,1,80,25);
          clrscr;
writeln('|============================================================================|');
writeln('|№ Поезда |Станция назначения | Время отправления | Время в пути | Наличие кв.|');
writeln('|============================================================================|');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('|         |                    |                 |             |             |');
writeln('=============================================================================|');
 
          m:=4;
          for i:=1 to kilp1 do
          begin
          gotoXY(3,m);
          write(a[i].namber);
          gotoXY(15,m);
          write(a[i].st_priz);
          gotoXY(34,m);
          write(a[i].time);
          gotoXY(53,m);
          write(a[i].time_dorozi);
          gotoXY(67,m) ;
          write(a[i].kvit);
          gotoXY(70,m);
 
          writeln; m:=m+1;
           end;
          readln ;
          readkey;
          clrscr;
          end;
procedure vudalennja(kilp1:integer; var kil1:integer);
          begin
          window(1,1,80,25);
          clrscr;
          write(' Введите номер поезда : '); readln(q);
          k:=0;
          for i:=1 to kilp1 do begin
          for l:=1 to kilp1 do
          begin
          if (q=a[i].namber) then
          begin
          k:=k+1;
          kil1:=kilp1-k;
          for j:=i to kilp1+1 do
          begin
          a[j]:=a[j+1];
          end;
          end;
          end;
          end;
          if k>0 then begin writeln(' vudaleno ',k,' vyluc z tabluci');
          readkey; end;
          if k<=0 then begin  writeln('takogo potaga nemae y zapusax');
          readkey; end;
          end;
procedure dodavannja(kilp1:integer; var kil1:integer);
          begin
          k:=1;
          kil1:=0;
          l:=kilp1;
          window(1,1,80,25);
          clrscr;
          window(23,4,80,25);
          write(' Сколько запросов ввести ? : ');
          readln(j);
          for i:=1 to j do
          begin
          clrscr;
     kil1:=kil1+1;
          writeln('Введите данные #',l+1);
          write(' № Номер  : ');           readln(a1[i].namber);
          write(' Станция назначения  : ');readln(a1[i].st_priz);
          write(' время отправление : ');   readln(a1[i].time);
          write(' время в пути : ');     readln(a1[i].time_dorozi);
          write(' наличие билетов (YES/NO) : ');readln(a1[i].kvit);
          l:=l+1;
          if j=i then break;
          end;
          clrscr;
          if j>=1 then begin
          writeln('Добавить  y :');
          writeln('Начало -1-');
          writeln('Конец  -2-');
          readln(w);
          end;
          for i:=1 to kilp1 do
          begin
          mas[i]:=a[i];
          end;
          if w=1 then
          begin
          for i:=1 to kil1 do
          begin
          a[i]:=a1[i];
          end;
          for i:=kil1 to kilp1+kil1 do
          begin
          a[i+1]:=mas[k];
          k:=k+1;
          end;
          end;
          k:=1;
          if w=2 then
          begin
          for i:=kilp1 to kilp1+kil1 do begin
          a[i+1]:=a1[k];
          k:=k+1;
          end;
          end;
          kil1:=kil1+kilp1;
          end;
 
procedure sortyvannja(kilp1:integer);
          begin
          window(1,1,80,25);
          clrscr;
          for s:=1 to kilp1 do
          for i:=kilp1-1 downto 1  do
          for j:=1 to i do
          if (a[i].st_priz)>(a[i+1].st_priz) then begin
          v:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=v;
          end;
          readln;
   
          readkey;
          end;
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 19.10.2014, 13:57
Ответы с готовыми решениями:

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

Подготовить анкетные данные своих ближайших родственников. Оформить сведения о каждом родственнике в виде записи, в котор
Подготовить анкетные данные своих ближайших родственников. Оформить сведения о каждом родственнике в виде записи, в которой определены...

В каком виде хранить данные, содержащие 4 поля
Приветствую всех форумчан, спасибо что зашли на эту тему, В общем сейчас я изучаю англ и столкнулся с проблемой что я не знаю всех 3...

3
0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 33
19.10.2014, 13:59  [ТС]
вторая
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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144

procedure sortyvannjaZaKv(kilp1:integer);
begin
          window(1,1,80,25);
              clrscr;
writeln('|============================================================================|');
writeln('|№ Поезда |Станция назначения | Время отправления | Время в пути | Наличие кв.|');
writeln('|============================================================================|');
          m:=4;
          for i:=1 to kilp1 do
          begin
          if (a[i].Kvit='Yes') or (a[i].Kvit='yes') or (a[i].Kvit='YES')   then begin
writeln('|         |                    |                 |             |             |');
          s:=s+1;
          gotoXY(3,m);
          write(a[i].Namber);
          gotoXY(14,m);
          write(a[i].st_priz);
          gotoXY(34,m);
          write(a[i].Time);
          gotoXY(52,m);
          write(a[i].time_dorozi);
          gotoXY(65,m) ;
          write(a[i].Kvit);
          gotoXY(80,m);
          writeln;m:=m+1;
         end;end;
writeln('|============================================================================|');
          readln;
end;
 
 
procedure sortyvannjaZaIV(kilp1:integer);
begin
          window(1,1,80,25);
     clrscr;
writeln('|============================================================================|');
writeln('|№ Поезда |Станция назначения | Время отправления | Время в пути | Наличие кв.|');
writeln('|============================================================================|');
          m:=4;
          for i:=1 to kilp1 do
          begin
          if a[i].time>=18 then
          if (a[i].st_priz='Москва') or (a[i].st_priz='Москва') then begin
writeln('|         |                    |                 |             |             |');
           s:=s+1;
         gotoXY(3,m);
          write(a[i].Namber);
          gotoXY(15,m);
          write(a[i].st_priz);
          gotoXY(34,m);
          write(a[i].Time);
          gotoXY(53,m);
          write(a[i].time_dorozi);
          gotoXY(65,m) ;
          write(a[i].Kvit);
          gotoXY(80,m);
          writeln;m:=m+1;
         end;end;
writeln('|============================================================================|');
readln ;
end;
 
procedure spisokZaGod(kilp1:integer);
begin
          window(1,1,80,25);
      clrscr;
writeln('|============================================================================|');
writeln('|№ Поезда |Станция назначения | Время отправления | Время в пути | Наличие кв.|');
writeln('|============================================================================|');
          m:=4;
          for i:=1 to kilp1 do
          begin
          if (a[i].time_dorozi>='5 год') or (a[i].time_dorozi>='5 Год') then begin
writeln('|         |                    |                 |             |             |');
           s:=s+1;
          gotoXY(3,m);
          write(a[i].Namber);
          gotoXY(15,m);
          write(a[i].st_priz);
          gotoXY(34,m);
          write(a[i].Time);
          gotoXY(53,m);
          write(a[i].time_dorozi);
          gotoXY(65,m) ;
          write(a[i].Kvit);
          gotoXY(80,m);
          writeln;m:=m+1;
         end;end;
writeln('|============================================================================|');
readln ;
end;
 
 
procedure zberegennja(kil1:integer);
     begin
     assign(fl2,'pam.dat');
     rewrite(fl2);
          for i:=1 to kil1 do begin
          writeln(fl2,a[i].namber);
          writeln(fl2,a[i].st_priz);
          writeln(fl2,a[i].time);
          writeln(fl2,a[i].time_dorozi);
          writeln(fl2,a[i].kvit);
     end;
     close(fl2);
     end;
begin
kil:=n;
kilp:=kil;
vvedennja(kil);
while k<>1000 do
begin
KK:=0;
window(1,1,80,25);
textcolor(12);
textbackground(0);
kilp:=kil;
clrscr;
window(16,5,80,25);
textcolor(LightBlue);
writeln('|====================================================|');
writeln('|                    Поезда                          |');
writeln('|====================================================|');
writeln('| 1- Вивод данних                                    |');
writeln('| 2- Добавление                                      |');
writeln('| 3- Сортировка                                      |');
writeln('| 4- Список поездов, на которие єсть билети          |');
writeln('| 5- Удаление                                        |');
writeln('| 6- Список поездов, после 18 ч                      |');
writeln('| 7- список поездов с наименьши/м временем в пути    |');
writeln('| 8- exit                                            |');
writeln('|====================================================|');
write('Введіть пункт меню : ');
readln(KK);
if KK=1 then vuvedennja(kilp);
if KK=2 then begin dodavannja(kilp,kil); zberegennja(kil); end;
if KK=3 then begin sortyvannja(kilp); zberegennja(kilp); end;
if KK=4 then begin sortyvannjaZaKv(kilp); zberegennja(kilp); end;
if KK=5 then begin vudalennja(kilp,kil);  vuvedennja(kil); zberegennja(kil); end;
if KK=6 then begin sortyvannjaZaIV(kilp); zberegennja(kilp); end;
if KK=7 then begin spisokZaGod(kilp); zberegennja(kilp); end;
if KK=8 then exit;
end;
end.
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
19.10.2014, 14:04
Что-то я вас не понимаю. Я же вам решил эту задачу. Что-то не устраивает? Зачем вы опять кидаете какой-то левый код для переделки?
0
19.10.2014, 15:13

Не по теме:

nafana 99, рекомендую Вам ознакомиться с правилами форума. Одна тема - один вопрос. И ещё. Дублирование тем запрещено, это на будущее.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 19.10.2014, 15:13
Помогаю со студенческими работами здесь

Строковые данные. Оформить в виде процедуры вывод первых букв каждого предложения
помогите пожалуйста решить задачу Ввести 10-15 предложений.Оформить в виде процедуры вывод первых букв каждого...

Логически законченные фрагменты оформить в виде подпрограмм, которым все необходимые данные передать через список параме
Логически законченные фрагменты оформить в виде подпрограмм, которым все необходимые данные передать через список параметров....

Windows 10 официально доступна в 190 странах мира
Windows 10 официально доступна для покупки и установки в 190 странах мира. Операционная система проходила 9 месяцев тестирования, в ходе...

Представить данные о студенте института в виде записи со следущей структурой
Представить данные о студенте института в виде записи со следущей структурой: Студент ФИО Дата рождения - Число Месяц Год ...

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


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
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. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru