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

@nafana 99 · Регистрация: 08.05.2014

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

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

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

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
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
program bigger;
uses crt;
const n=40;
type
    Dani=record
    Kraina:string[20];
    Stolutsa:string[15];
    Chastuna_svity:string[30];
    Naselenna:integer;
    Ploshcha:integer;
end;
var
    f, f1:text;
    t:dani;
    mas:array[1..n] of dani;
    mas1:array[1..n] of dani;
    mas2:array[1..n] of dani;
    i,j,k,p,zm,s,a,y,u,m,km,l,f:integer;
    x,o,q:string[75];
    klav,GG:char;
 
procedure vvedenna(var zm1:integer);
          begin
          i:=1;
          clrscr;
          assign(f,'krainu.dat');
          reset(f);
          while not eof(f) do
          begin
               readln(f, mas[i].Kraina);
               readln(f, mas[i].Stolutsa);
               readln(f, mas[i].Chastuna_svity);
               readln(f, mas[i].naselenna);
               readln(f, mas[i].Ploshcha);
               i:=i+1;
               zm:=i-1;
           end;
           close(f);
           end;
      
 procedure druk(p1:integer);
           begin
                l:=1;
                for j:=1 to 10000 do begin
                window(1,1,80,25);
                clrscr;
textcolor(green);
writeln('--Spusok krain');
write(' +--+----------+------------+---------------------+------------+----------+');
write('|# |Kraina    |Stolutsa    |Chastuna svity       |Naselenna   |Ploscsha  |');   
write(' |--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write(' +--+----------+------------+---------------------+------------+----------+');
textcolor(white);
m:=4;
for i:=f to p1 do
begin
      gotoXY(2,m);
      write(i);
      gotoXY(5,m);
      write(mas1[1].kraina);
      gotoXY(16,m);
      write(mas1[i].stolutsa);
      gotoXY(27,m);
      write(mas1[i].chastuna_cvity);
      gotoXY(39,m);
      write(mas1[i].naselenna);
      gotoXY(44,m);
      write(mas1[i].ploscha);m:=m+1;
      
 end;
     if p1>20 then begin
     window(1,25,80,25);
     write('+ -next | - -prepear | ENTER - EXIT');  end
     else begin window(1,25,80,25); write('ENTER - vvutu'); end;
     GG:=readkey;
     if(GG=#43) and (i<p1) and (p1>20) then f:=f+20;
     if(GG=#45) and (i<>20) and (i<=p1) then f:=f-20;
     if GG=#13 then break;
     end;
 window(1,1,y,u);
 clrscr;
 end;
 
 
 procedure delete(p1:integer; var zm1:integer);
 begin
      window(1,1,80,25);
      clrscr;
      window(15,4,80,25);
      write(' vvedt krainu dla vudalenna : '); readln(q);
      k:=0;
      for i:=1 to p1 do
      for l:=1 to p1 do
      begin
            if (q=mas1[i].kraina) then
            begin
                  k:=k+1;
                  zm1:=p1-k;
                  for j:=i to p1 do
                  begin
                        mas1[j]:=mas1[j+1];
                   end;
            end;
       end;
       if k>0 then begin writeln( ' vudaleno ',k,' krain z bazu');
       readkey; end;
       if k<=0 then begin writen(' takoi krainu nemae y bazi');
       readkey; end;
end;
 
procedure vvid(p1:integer; var zm1:integer);
begin
      k:=1;
      zm1:=0;
      l:=p1;
      window(1,1,80,25);
      clrscr;
      window(15,4,80,25);
      write(' Kilkist krain dla vvedenna : ');
      readln(j);
      for i:=1 to j do
      begin
            clrscr;
            zm1:=zm1+1;
            writeln('Vvedin nomer krainu #',l+1);
            write('Vvedit nazvu krainu : ');         readln(mas1dod[i].kraina);
            write('Vvedit stolutsu : ');             readln(mas1dod[i].stolutsa);
            write('Vvedit chastuny svity : ');       readln(mas1dod[i].chastuna_svity);
            write('Vvedit naselenna : ');            readln(mas1dod[i].naselenna);
            write('Vvedit ploschy : ');              readln(mas1dod[i]. ploscha);
            
            
            
     writeln;
            l:=l+1;
            if j=i then break;
            if (j>1) and (j<>i) then begin
            Writeln(' natusnit "SPACE" - dla prodovzenna');
            writeln(' abo inshy klavishy dla zakinchenna vvody');
            klav:=readkey;
            if klav<>#32 then break;
            clrscr;
            end;
            end;
            clescr;
            if j>=1 then begin
            writeln('Vvedeni krainu povunni bytu dodani y :');
            writeln('pochatok spusky - 1');
            writeln('kinets spusky - 2');
            readln(a);
            end;
            for i:=1 to p1 do
            begin
                  mas1per[i]:=mas1[i];
            end;
            if a=1 then
            begin
                  for i:=1 to zm1 do
                  begin
                        mas1[i]:=mas1dod[i];
                   end;
                   for i:=zm1 to p1+zm1 do
                   begin
                        mas1[i+1]:=mas1per[k];
                        k:=k+1;
                   end;
             end;
             zm1:=zm1+p1;
end;
 
procedure sort(p1:integer);
begin
      window(1,1,80,25);
      clrscr;
      window(23,4,80,25);
      for s:=1 to p1 do
      for i:=p1-1 downto 1 do
      for j:=1 to i do
      if (mas1[i].kraina)>(mas1[i+1].kraina) then begin
      v:=mas1[i];
      mas1[i]:=mas1[i+1];
      mas1[i+1]:=v;
      end;
      writeln(' Krainu vidsortovano ' );
      readkey;
end;
 
procedure poshyk(p1:integer);
begin
      s:=0;
      window(1,1,80,25);
      clrscr;
      window(15,3,65,6);
      writeln(' poshyk y bazi: ' );
      window(1,1,80,25);
      clrscr;
write(' +--+----------+------------+---------------------+------------+----------+');
write('|# |Kraina    |Stolutsa    |Chastuna svity       |Naselenna   |Ploscsha  |');   
write(' |--|----------|------------|---------------------|------------|----------|');
m:=4;
textcolor(white);
for i:=1 to p1 do
if (mas[i].ploscsha>500000) then
write(' |  |          |            |                     |            |          |');
s:=s+1;
gotoXY(2,m);
write(i);
gotoXY(5,m);
write(mas1[i].kraina);
gotoXY(16,m);
write(mas1[i].stolutsa);
gotoXY(27,m);
write(mas1[i].chastuna_svity);
gotoXY(39,m);
write(mas1[i].naselenna);
gotoXY(44,m);
write(mas1[i].ploscsha);
m:=m+1;
end;
begin
write(' |--+----------+------------+---------------------+------------+----------| ');
if s>0 then readkey;
window(1,1,y,u);
if s=0 then begin
clrscr;
window(23,4,80,25);
writeln(' Krain z zadanum parametrom poshykt namae');
readkey;
end;
clrscr;
end;
end;
 
procedure reserve(p1:integer);
begin
      assign(f1,'krainu.dat');
      rewrite(f1);
      for i:=1 to p1 do begin
      writeln(f2,mas1[i].kraina);
      writeln(f2,mas1[i].stolutsa);
      writeln(f2,mas1[i].chastuna svity);
      writeln(f2,mas1[i].naselenna);
      writeln(f2,mas1[i].ploscha);
      end;
      close(f1);
end;
begin
      zm:=n;
      p:=zm;
      vvid(zm);
      while km<>(n+228) do
      begin
            window(1,1,80,25);
            textbackground(black);
            textcolor(while);
            p:=zm;
            clrscr;
            textcolor(13);
            window(20,3,80,25);
            clrscr;
            writeln('//////////////////Menu/////////////////');
            writeln('// 1 // Baza krain                   //');
            writeln('// 2 // Dodavanna krain              //');
            writeln('// 3 // Vudalenna krain              //');
            writeln('// 4 // Sortuvanna                   //');
            writeln('// 5 // Poshyk po parametrah         //');
            writeln('// 6 // SAVE                         //');
            writeln('// 7 // Vuhid                        //');
            window(24,15,80,25);
            write('Vuberit punkt menu : ');
            readln(km);
            case km of
            1: druk(p);
            2: vnesen(p,zm);
            3: begin (delete(p,zm);   druk(zm); end;
            4: sort(p);
            5: poshyk(p);
            6: reserve(p);
            7: exit;
end;
end;
end.

@ZX Spectrum-128 · 16.10.2014, 19:06

Синтаксические ошибки исправлены.
Внутрь лезть не рискнул. Ничего не понятно в коде абсолютно, к тому же то ли на польском, то ли на чешском.

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
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
program bigger;
uses crt;
const n=40;
type
    Dani=record
    Kraina:string[20];
    Stolutsa:string[15];
    Chastuna_svity:string[30];
    Naselenna:integer;
    Ploshcha:integer;
end;
var
    f2, f1:text;
    v,t:dani;
 
    mas1dod,mas1per,mas:array[1..n] of dani;
    mas1:array[1..n] of dani;
    mas2:array[1..n] of dani;
    i,j,k,p,zm,s,a,y,u,m,km,l:integer;
    f:integer;
    x,o,q:string[75];
    klav,GG:char;
 
procedure vvedenna(var zm1:integer);
          begin
          i:=1;
          clrscr;
          assign(f2,'krainu.dat');
          reset(f2);
          while not eof(f2) do
          begin
               readln(f, mas[i].Kraina);
               readln(f, mas[i].Stolutsa);
               readln(f, mas[i].Chastuna_svity);
               readln(f, mas[i].naselenna);
               readln(f, mas[i].Ploshcha);
               i:=i+1;
               zm:=i-1;
           end;
           close(f2);
           end;
 
 procedure druk(p1:integer);
           begin
                l:=1;
                for j:=1 to 10000 do begin
                window(1,1,80,25);
                clrscr;
textcolor(green);
writeln('--Spusok krain');
write(' +--+----------+------------+---------------------+------------+----------+');
write('|# |Kraina    |Stolutsa    |Chastuna svity       |Naselenna   |Ploscsha  |');
write(' |--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write('|--|----------|------------|---------------------|------------|----------|');
write(' +--+----------+------------+---------------------+------------+----------+');
textcolor(white);
m:=4;
for i:=f to p1 do
begin
      gotoXY(2,m);
      write(i);
      gotoXY(5,m);
      write(mas1[1].kraina);
      gotoXY(16,m);
      write(mas1[i].stolutsa);
      gotoXY(27,m);
      write(mas1[i].Chastuna_svity);
      gotoXY(39,m);
      write(mas1[i].naselenna);
      gotoXY(44,m);
      write(mas1[i].Ploshcha);m:=m+1;
 
 end;
     if p1>20 then begin
     window(1,25,80,25);
     write('+ -next | - -prepear | ENTER - EXIT');  end
     else begin window(1,25,80,25); write('ENTER - vvutu'); end;
     GG:=readkey;
     if(GG=#43) and (i<p1) and (p1>20) then f:=f+20;
     if(GG=#45) and (i<>20) and (i<=p1) then f:=f-20;
     if GG=#13 then break;
     end;
 window(1,1,y,u);
 clrscr;
 end;
 
 
 procedure delete(p1:integer; var zm1:integer);
 begin
      window(1,1,80,25);
      clrscr;
      window(15,4,80,25);
      write(' vvedt krainu dla vudalenna : '); readln(q);
      k:=0;
      for i:=1 to p1 do
      for l:=1 to p1 do
      begin
            if (q=mas1[i].kraina) then
            begin
                  k:=k+1;
                  zm1:=p1-k;
                  for j:=i to p1 do
                  begin
                        mas1[j]:=mas1[j+1];
                   end;
            end;
       end;
       if k>0 then begin writeln( ' vudaleno ',k,' krain z bazu');
       readkey; end;
       if k<=0 then begin writeln(' takoi krainu nemae y bazi');
       readkey; end;
end;
 
procedure vvid(p1:integer; var zm1:integer);
begin
      k:=1;
      zm1:=0;
      l:=p1;
      window(1,1,80,25);
      clrscr;
      window(15,4,80,25);
      write(' Kilkist krain dla vvedenna : ');
      readln(j);
      for i:=1 to j do
      begin
            clrscr;
            zm1:=zm1+1;
            writeln('Vvedin nomer krainu #',l+1);
            write('Vvedit nazvu krainu : ');         readln(mas1dod[i].kraina);
            write('Vvedit stolutsu : ');             readln(mas1dod[i].stolutsa);
            write('Vvedit chastuny svity : ');       readln(mas1dod[i].chastuna_svity);
            write('Vvedit naselenna : ');            readln(mas1dod[i].naselenna);
            write('Vvedit ploschy : ');              readln(mas1dod[i].Ploshcha);
 
 
 
     writeln;
            l:=l+1;
            if j=i then break;
            if (j>1) and (j<>i) then begin
            Writeln(' natusnit "SPACE" - dla prodovzenna');
            writeln(' abo inshy klavishy dla zakinchenna vvody');
            klav:=readkey;
            if klav<>#32 then break;
            clrscr;
            end;
            end;
            clrscr;
            if j>=1 then begin
            writeln('Vvedeni krainu povunni bytu dodani y :');
            writeln('pochatok spusky - 1');
            writeln('kinets spusky - 2');
            readln(a);
            end;
            for i:=1 to p1 do
            begin
                  mas1per[i]:=mas1[i];
            end;
            if a=1 then
            begin
                  for i:=1 to zm1 do
                  begin
                        mas1[i]:=mas1dod[i];
                   end;
                   for i:=zm1 to p1+zm1 do
                   begin
                        mas1[i+1]:=mas1per[k];
                        k:=k+1;
                   end;
             end;
             zm1:=zm1+p1;
end;
 
procedure sort(p1:integer);
begin
      window(1,1,80,25);
      clrscr;
      window(23,4,80,25);
      for s:=1 to p1 do
      for i:=p1-1 downto 1 do
      for j:=1 to i do
      if (mas1[i].kraina)>(mas1[i+1].kraina) then begin
      v:=mas1[i];
      mas1[i]:=mas1[i+1];
      mas1[i+1]:=v;
      end;
      writeln(' Krainu vidsortovano ' );
      readkey;
end;
 
procedure poshyk(p1:integer);
begin
      s:=0;
      window(1,1,80,25);
      clrscr;
      window(15,3,65,6);
      writeln(' poshyk y bazi: ' );
      window(1,1,80,25);
      clrscr;
write(' +--+----------+------------+---------------------+------------+----------+');
write('|# |Kraina    |Stolutsa    |Chastuna svity       |Naselenna   |Ploscsha  |');
write(' |--|----------|------------|---------------------|------------|----------|');
m:=4;
textcolor(white);
for i:=1 to p1 do
if (mas[i].Ploshcha>500000) then
write(' |  |          |            |                     |            |          |');
s:=s+1;
gotoXY(2,m);
write(i);
gotoXY(5,m);
write(mas1[i].kraina);
gotoXY(16,m);
write(mas1[i].stolutsa);
gotoXY(27,m);
write(mas1[i].chastuna_svity);
gotoXY(39,m);
write(mas1[i].naselenna);
gotoXY(44,m);
write(mas1[i].Ploshcha);
m:=m+1;
end;
begin
write(' |--+----------+------------+---------------------+------------+----------| ');
if s>0 then readkey;
window(1,1,y,u);
if s=0 then begin
clrscr;
window(23,4,80,25);
writeln(' Krain z zadanum parametrom poshykt namae');
readkey;
end;
clrscr;
end.
//end;
 
procedure reserve(p1:integer);
begin
      assign(f1,'krainu.dat');
      rewrite(f1);
      for i:=1 to p1 do begin
      writeln(f2,mas1[i].kraina);
      writeln(f2,mas1[i].stolutsa);
      writeln(f2,mas1[i].chastuna svity);
      writeln(f2,mas1[i].naselenna);
      writeln(f2,mas1[i].ploscha);
      end;
      close(f1);
end;
begin
  clrscr;
      zm:=n;
      p:=zm;
      vvid(zm);
      while km<>(n+228) do
      begin
            window(1,1,80,25);
            textbackground(black);
            textcolor(while);
            p:=zm;
            clrscr;
            textcolor(13);
            window(20,3,80,25);
            clrscr;
            writeln('//////////////////Menu/////////////////');
            writeln('// 1 // Baza krain                   //');
            writeln('// 2 // Dodavanna krain              //');
            writeln('// 3 // Vudalenna krain              //');
            writeln('// 4 // Sortuvanna                   //');
            writeln('// 5 // Poshyk po parametrah         //');
            writeln('// 6 // SAVE                         //');
            writeln('// 7 // Vuhid                        //');
            window(24,15,80,25);
            write('Vuberit punkt menu : ');
            readln(km);
            case km of
            1: druk(p);
            2: vnesen(p,zm);
            3: begin (delete(p,zm);   druk(zm); end;
            4: sort(p);
            5: poshyk(p);
            6: reserve(p);
            7: exit;
end;
end;
end.

@nafana 99 · 16.10.2014, 20:28 **[ТС]**

может попытаетесь написать код этой программы буду очень благодарен так как не очень разбираюсь в работе с файлами?
очень нужно

@ZX Spectrum-128 · 16.10.2014, 22:29

Могу сделать. Завтра. На free pascal. Без окон, цветов и прочих красивостей. Строго по заданию. Устроит?
Ваш код даже не буду пытаться. С нуля напишу.

@nafana 99 · 16.10.2014, 22:59 **[ТС]**

хорошо

Добавлено через 20 секунд
зарание спасибо

@ZX Spectrum-128 · 17.10.2014, 13:37

Проверяйте.
Первая программа - готовит файл.

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
type
  geo=record
    country:string[80];
    capital:string[64];
    continent:string[32];
    population:int64;
    area:real;
  end;
 
var
  geo_bd : file of geo;
  my_geo : geo;
begin
  assignfile(geo_bd,'geo.dat');
  rewrite(geo_bd);
  with my_geo do
    begin
      country:='Китай';
      capital:='Пекин';
      continent:='Азия';
      population:=1366023160;
      area:=9598077;
    end;
  write(geo_bd,my_geo);
  closefile(geo_bd);
end.

Вторая - с ним работает.

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
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
{ Подготовить данные содержащие информацию о странах мира, данные оформить
в виде записи, содержащей следующие поля: Страна, Столица, Часть мира,
Население, Площадь. Создать программу записей подготовленных данных
во внешний файл, и программу обработки этого файла выполняет
следующие команды:
1 Выводит на экран введенные данные.
2 Добавляет записи в начало или конец файла.
3 Удаляет все данные о стране, найменивання которой задан с клавиатуры и
выводит на экран обновленное содержимое файла.
4 Сортировка названия столиц по алфавиту.
5 Список стран, площадь которых превышает 500 000 км квадратных }
 
uses
  crt;
type
  geo=record
    country:string[80];
    capital:string[64];
    continent:string[32];
    population:int64;
    area:real;
  end;
 
var
  geo_bd : file of geo;
  my_geo : geo;
  choice : integer;
 
procedure output_rec;
begin
  clrscr;
  writeln('Страны мира:');
  reset(geo_bd);
  while not eof(geo_bd) do
    begin
      read(geo_bd,my_geo);
      with my_geo do
        begin
          write(country,' ');
          write(capital,' ');
          write(continent,' ');
          write(population);
          write(area:16:2);
        end;
      writeln;
    end;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
  closefile(geo_bd);
end;
 
procedure append_rec;
begin
  clrscr;
  writeln('Добавление записи в базу данных "Страны мира":');
  reset(geo_bd);
  with my_geo do
    begin
      write('Название страны:');     readln(country);
      write('Название столицы:');    readln(capital);
      write('Название континента:'); readln(continent);
      write('Население:');           readln(population);
      write('Площадь:');             readln(area);
    end;
  seek(geo_bd,filesize(geo_bd));
  write(geo_bd,my_geo);
  writeln;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
  closefile(geo_bd);
end;
 
procedure delete_rec;
var
  n,i : integer;
  s : String;
  t : geo;
begin
  clrscr;
  writeln('Удаление записи из базы данных "Страны мира":');
  write('Введите название столицы: '); readln(s);
  i:=0;
  n:=-maxint;
  Reset(geo_bd);
  while not eof (geo_bd) do
    begin
      read(geo_bd,t);
      inc(i);
      if t.capital=s then
        begin
          n:=i;
          break;
        end;
    end;
  if (filesize(geo_bd)<n) or (n<0) then
    begin
      writeln('В файле нет такой записи');
      closefile(geo_bd);
      writeln;
      writeln('Нажмите Enter для перехода в главное меню.');
      readln;
      exit;
    end;
  seek(geo_bd,n-1);
  for i:=n-1 to filesize(geo_bd)-2 do
    begin
      seek(geo_bd,i+1);
      read(geo_bd,t);
      seek(geo_bd,i);
      write(geo_bd,t);
    end;
  seek(geo_bd,filesize(geo_bd)-1);
  truncate(geo_bd);
  closefile(geo_bd);
  output_rec;
  writeln;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
 
end;
 
procedure sort_rec;
const
  n=100;
var
  geo_arr : array [1..n] of geo;
  num,j,i : integer;
  t : geo;
begin
  clrscr;
  writeln('Страны мира, отсортированные по названиям столиц:');
  i:=0;
  reset(geo_bd);
  while not eof(geo_bd) do
    begin
      read(geo_bd,geo_arr[i+1]);
      inc(i);
    end;
  num:=i;
  for i:=1 to num do
    for j:=i+1 to num do
      if geo_arr[i].capital>geo_arr[j].capital then
        begin
          t := geo_arr[i];
          geo_arr[i]:=geo_arr[j];
          geo_arr[j]:=t;
        end;
  for i:=1 to num do
    begin
      with geo_arr[i] do
        begin
          write(country,' ');
          write(capital,' ');
          write(continent,' ');
          write(population);
          write(area:16:2);
        end;
      writeln;
    end;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
  closefile(geo_bd);
end;
 
procedure list_rec;
begin
  clrscr;
  writeln('Страны мира, площадь которых больше 500 000 кв. км.:');
  reset(geo_bd);
  while not eof(geo_bd) do
    begin
      read(geo_bd,my_geo);
      if my_geo.area>500000 then
        begin
          with my_geo do
            begin
              write(country,' ');
              write(capital,' ');
              write(continent,' ');
              write(population);
              write(area:16:2);
            end;
          writeln;
        end;
    end;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
  closefile(geo_bd);
 
end;
 
begin
  clrscr;
  assignfile(geo_bd,'geo.dat');
  { main loop }
  while true do
    begin
      clrscr;
      writeln('Выберите соответствующий пункт меню:');
      writeln('1. Вывод данных.');
      writeln('2. Добавление записи.');
      writeln('3. Удаление записи.');
      writeln('4. Сортировка названия столиц по алфавиту.');
      writeln('5. Список стран, площадь которых превышает 500000 кв. км.');
      writeln('0. Выход.');
      readln(choice);
      case choice of
        1 : output_rec;
        2 : append_rec;
        3 : delete_rec;
        4 : sort_rec;
        5 : list_rec;
        0 : exit;
      end; { of case }
    end;
end.

@nafana 99 · 18.10.2014, 18:08 **[ТС]**

а можете эти две программы сложить в одну программу

Добавлено через 19 секунд
???
если не сложно

@ZX Spectrum-128 · 18.10.2014, 18:17

Нет, не сложно. Могу добавить еще один пункт.
Но, по условию задачи, это у вас разные программы.
Может быть, уточните у преподавателя?

@nafana 99 · 18.10.2014, 18:34 **[ТС]**

хорошо добавте

@ZX Spectrum-128 · 18.10.2014, 18:43

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
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
{ Подготовить данные содержащие информацию о странах мира, данные оформить
в виде записи, содержащей следующие поля: Страна, Столица, Часть мира,
Население, Площадь. Создать программу записей подготовленных данных
во внешний файл, и программу обработки этого файла выполняет
следующие команды:
1 Выводит на экран введенные данные.
2 Добавляет записи в начало или конец файла.
3 Удаляет все данные о стране, найменивання которой задан с клавиатуры и
выводит на экран обновленное содержимое файла.
4 Сортировка названия столиц по алфавиту.
5 Список стран, площадь которых превышает 500 000 км квадратных }
 
uses
  crt;
type
  geo=record
    country:string[80];
    capital:string[64];
    continent:string[32];
    population:int64;
    area:real;
  end;
 
var
  geo_bd : file of geo;
  my_geo : geo;
  choice : integer;
 
procedure output_rec;
begin
  clrscr;
  writeln('Страны мира:');
  reset(geo_bd);
  while not eof(geo_bd) do
    begin
      read(geo_bd,my_geo);
      with my_geo do
        begin
          write(country,' ');
          write(capital,' ');
          write(continent,' ');
          write(population);
          write(area:16:2);
        end;
      writeln;
    end;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
  closefile(geo_bd);
end;
 
procedure append_rec;
begin
  clrscr;
  writeln('Добавление записи в базу данных "Страны мира":');
  reset(geo_bd);
  with my_geo do
    begin
      write('Название страны:');     readln(country);
      write('Название столицы:');    readln(capital);
      write('Название континента:'); readln(continent);
      write('Население:');           readln(population);
      write('Площадь:');             readln(area);
    end;
  seek(geo_bd,filesize(geo_bd));
  write(geo_bd,my_geo);
  writeln;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
  closefile(geo_bd);
end;
 
procedure delete_rec;
var
  n,i : integer;
  s : String;
  t : geo;
begin
  clrscr;
  writeln('Удаление записи из базы данных "Страны мира":');
  write('Введите название столицы: '); readln(s);
  i:=0;
  n:=-maxint;
  Reset(geo_bd);
  while not eof (geo_bd) do
    begin
      read(geo_bd,t);
      inc(i);
      if t.capital=s then
        begin
          n:=i;
          break;
        end;
    end;
  if (filesize(geo_bd)<n) or (n<0) then
    begin
      writeln('В файле нет такой записи');
      closefile(geo_bd);
      writeln;
      writeln('Нажмите Enter для перехода в главное меню.');
      readln;
      exit;
    end;
  seek(geo_bd,n-1);
  for i:=n-1 to filesize(geo_bd)-2 do
    begin
      seek(geo_bd,i+1);
      read(geo_bd,t);
      seek(geo_bd,i);
      write(geo_bd,t);
    end;
  seek(geo_bd,filesize(geo_bd)-1);
  truncate(geo_bd);
  closefile(geo_bd);
  output_rec;
  writeln;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
 
end;
 
procedure sort_rec;
const
  n=100;
var
  geo_arr : array [1..n] of geo;
  num,j,i : integer;
  t : geo;
begin
  clrscr;
  writeln('Страны мира, отсортированные по названиям столиц:');
  i:=0;
  reset(geo_bd);
  while not eof(geo_bd) do
    begin
      read(geo_bd,geo_arr[i+1]);
      inc(i);
    end;
  num:=i;
  for i:=1 to num do
    for j:=i+1 to num do
      if geo_arr[i].capital>geo_arr[j].capital then
        begin
          t := geo_arr[i];
          geo_arr[i]:=geo_arr[j];
          geo_arr[j]:=t;
        end;
  for i:=1 to num do
    begin
      with geo_arr[i] do
        begin
          write(country,' ');
          write(capital,' ');
          write(continent,' ');
          write(population);
          write(area:16:2);
        end;
      writeln;
    end;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
  closefile(geo_bd);
end;
 
procedure list_rec;
begin
  clrscr;
  writeln('Страны мира, площадь которых больше 500 000 кв. км.:');
  reset(geo_bd);
  while not eof(geo_bd) do
    begin
      read(geo_bd,my_geo);
      if my_geo.area>500000 then
        begin
          with my_geo do
            begin
              write(country,' ');
              write(capital,' ');
              write(continent,' ');
              write(population);
              write(area:16:2);
            end;
          writeln;
        end;
    end;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
  closefile(geo_bd);
end;
 
procedure create_bd;
begin
  clrscr;
  writeln('Создание новой базы данных:');
  rewrite(geo_bd);
  with my_geo do
    begin
      country:='Китай';
      capital:='Пекин';
      continent:='Азия';
      population:=1366023160;
      area:=9598077;
    end;
  write(geo_bd,my_geo);
  closefile(geo_bd);
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
end;
 
begin
  clrscr;
  assignfile(geo_bd,'geo.dat');
  { main loop }
  while true do
    begin
      clrscr;
      writeln('Выберите соответствующий пункт меню:');
      writeln('1. Вывод данных.');
      writeln('2. Добавление записи.');
      writeln('3. Удаление записи.');
      writeln('4. Сортировка названия столиц по алфавиту.');
      writeln('5. Список стран, площадь которых превышает 500000 кв. км.');
      writeln('6. Создание новой базы данных.');
      writeln('0. Выход.');
      readln(choice);
      case choice of
        1 : output_rec;
        2 : append_rec;
        3 : delete_rec;
        4 : sort_rec;
        5 : list_rec;
        6 : create_bd;
        0 : exit;
      end; { of case }
    end;
end.

@nafana 99 · 19.10.2014, 19:41 **[ТС]**

можете сделать чтобы вместо этих данных
country:='Китай';
capital:='Пекин';
continent:='Азия';
population:=1366023160;
area:=9598077;
были произвольные данные, которие нужно вводить с клавиатуры?

Добавлено через 5 часов 16 минут
как сделать так чтобы страны, которые я буду вводить с клавиатуры сразу помещало в таблицу?

@ZX Spectrum-128 · 19.10.2014, 20:27

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure create_bd;
begin
  clrscr;
  writeln('Создание новой базы данных:');
  rewrite(geo_bd);
with my_geo do
    begin
      write('Название страны:');     readln(country);
      write('Название столицы:');    readln(capital);
      write('Название континента:'); readln(continent);
      write('Население:');           readln(population);
      write('Площадь:');             readln(area);
    end;
  write(geo_bd,my_geo);
  closefile(geo_bd);
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
end;

@nafana 99 · 20.10.2014, 22:54 **[ТС]**

извините пожалуйста , программа не заносит данние у файл. Как ето сделать?

@ZX Spectrum-128 · 21.10.2014, 10:01

На всякий случай положил исправленный вариант. У меня все работает. Все создается, заносится, удаляется и т.д.
Опять же, на всякий случай, программа написана во free pascal, о чем я вас заранее предупреждал. Если программа не будет работать в другом компиляторе паскаля, например паскаль абц, что ж, вас предупреждали.

Изначально вам нужно выбрать пункт 6 для создания бд. И далее уже можно работать с созданной бд.

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
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
{ Подготовить данные содержащие информацию о странах мира, данные оформить
в виде записи, содержащей следующие поля: Страна, Столица, Часть мира,
Население, Площадь. Создать программу записей подготовленных данных
во внешний файл, и программу обработки этого файла выполняет
следующие команды:
1 Выводит на экран введенные данные.
2 Добавляет записи в начало или конец файла.
3 Удаляет все данные о стране, найменивання которой задан с клавиатуры и
выводит на экран обновленное содержимое файла.
4 Сортировка названия столиц по алфавиту.
5 Список стран, площадь которых превышает 500 000 км квадратных }
 
uses
  crt;
type
  geo=record
    country:string[80];
    capital:string[64];
    continent:string[32];
    population:int64;
    area:real;
  end;
 
var
  geo_bd : file of geo;
  my_geo : geo;
  choice : integer;
 
procedure output_rec;
begin
  clrscr;
  writeln('Страны мира:');
  reset(geo_bd);
  while not eof(geo_bd) do
    begin
      read(geo_bd,my_geo);
      with my_geo do
        begin
          write(country,' ');
          write(capital,' ');
          write(continent,' ');
          write(population);
          write(area:16:2);
        end;
      writeln;
    end;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
  closefile(geo_bd);
end;
 
procedure append_rec;
begin
  clrscr;
  writeln('Добавление записи в базу данных "Страны мира":');
  reset(geo_bd);
  with my_geo do
    begin
      write('Название страны:');     readln(country);
      write('Название столицы:');    readln(capital);
      write('Название континента:'); readln(continent);
      write('Население:');           readln(population);
      write('Площадь:');             readln(area);
    end;
  seek(geo_bd,filesize(geo_bd));
  write(geo_bd,my_geo);
  writeln;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
  closefile(geo_bd);
end;
 
procedure delete_rec;
var
  n,i : integer;
  s : String;
  t : geo;
begin
  clrscr;
  writeln('Удаление записи из базы данных "Страны мира":');
  write('Введите название столицы: '); readln(s);
  i:=0;
  n:=-maxint;
  Reset(geo_bd);
  while not eof (geo_bd) do
    begin
      read(geo_bd,t);
      inc(i);
      if t.capital=s then
        begin
          n:=i;
          break;
        end;
    end;
  if (filesize(geo_bd)<n) or (n<0) then
    begin
      writeln('В файле нет такой записи');
      closefile(geo_bd);
      writeln;
      writeln('Нажмите Enter для перехода в главное меню.');
      readln;
      exit;
    end;
  seek(geo_bd,n-1);
  for i:=n-1 to filesize(geo_bd)-2 do
    begin
      seek(geo_bd,i+1);
      read(geo_bd,t);
      seek(geo_bd,i);
      write(geo_bd,t);
    end;
  seek(geo_bd,filesize(geo_bd)-1);
  truncate(geo_bd);
  closefile(geo_bd);
  output_rec;
  writeln;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
 
end;
 
procedure sort_rec;
const
  n=100;
var
  geo_arr : array [1..n] of geo;
  num,j,i : integer;
  t : geo;
begin
  clrscr;
  writeln('Страны мира, отсортированные по названиям столиц:');
  i:=0;
  reset(geo_bd);
  while not eof(geo_bd) do
    begin
      read(geo_bd,geo_arr[i+1]);
      inc(i);
    end;
  num:=i;
  for i:=1 to num do
    for j:=i+1 to num do
      if geo_arr[i].capital>geo_arr[j].capital then
        begin
          t := geo_arr[i];
          geo_arr[i]:=geo_arr[j];
          geo_arr[j]:=t;
        end;
  for i:=1 to num do
    begin
      with geo_arr[i] do
        begin
          write(country,' ');
          write(capital,' ');
          write(continent,' ');
          write(population);
          write(area:16:2);
        end;
      writeln;
    end;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
  closefile(geo_bd);
end;
 
procedure list_rec;
begin
  clrscr;
  writeln('Страны мира, площадь которых больше 500 000 кв. км.:');
  reset(geo_bd);
  while not eof(geo_bd) do
    begin
      read(geo_bd,my_geo);
      if my_geo.area>500000 then
        begin
          with my_geo do
            begin
              write(country,' ');
              write(capital,' ');
              write(continent,' ');
              write(population);
              write(area:16:2);
            end;
          writeln;
        end;
    end;
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
  closefile(geo_bd);
end;
 
procedure create_bd;
begin
  clrscr;
  writeln('Создание новой базы данных:');
  rewrite(geo_bd);
  with my_geo do
    begin
      write('Название страны:');     readln(country);
      write('Название столицы:');    readln(capital);
      write('Название континента:'); readln(continent);
      write('Население:');           readln(population);
      write('Площадь:');             readln(area);
    end;
  write(geo_bd,my_geo);
  closefile(geo_bd);
  writeln('Нажмите Enter для перехода в главное меню.');
  readln;
end;
 
begin
  clrscr;
  assignfile(geo_bd,'geo.dat');
  { main loop }
  while true do
    begin
      clrscr;
      writeln('Выберите соответствующий пункт меню:');
      writeln('1. Вывод данных.');
      writeln('2. Добавление записи.');
      writeln('3. Удаление записи.');
      writeln('4. Сортировка названия столиц по алфавиту.');
      writeln('5. Список стран, площадь которых превышает 500000 кв. км.');
      writeln('6. Создание новой базы данных.');
      writeln('0. Выход.');
      readln(choice);
      case choice of
        1 : output_rec;
        2 : append_rec;
        3 : delete_rec;
        4 : sort_rec;
        5 : list_rec;
        6 : create_bd;
        0 : exit;
      end; { of case }
    end;
end.

@nafana 99 · 21.10.2014, 21:10 **[ТС]**

Могли би дать ссилку на скачивание данной среди програмированние?

@ZX Spectrum-128 · 22.10.2014, 10:27

Современный компилятор паскаля.
http://freepascal.org/
А если вам нужен именно borland pascal, то вот:
http://pascal.sources.ru/museum/bp7.htm

@nafana 99 · 23.10.2014, 19:54 **[ТС]**

вы не знаете есть такая программа, которая может перевести код с Паскаля на С?

@ZX Spectrum-128 · 23.10.2014, 20:26

http://www.mpsinc.com/pascal.html

@nafana 99 · 30.10.2014, 17:10 **[ТС]**

Можете сделать еще один пункт к задаче:
Вывести список столиц, которые задаются с клавиатуры и начинаются с определенной буквы и находятся в определенной части мира

@ZX Spectrum-128 · 30.10.2014, 17:13

Запрос какой?
Введите континент:
Введите название буквы, с которой начинается название столицы:
Так?

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	[В процессе разработки] SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	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 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

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

Решение

Решение

Решение

@nafana 99 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 33
	16.10.2014, 20:28 [ТС]
	может попытаетесь написать код этой программы буду очень благодарен так как не очень разбираюсь в работе с файлами? очень нужно 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	16.10.2014, 22:29
	Могу сделать. Завтра. На free pascal. Без окон, цветов и прочих красивостей. Строго по заданию. Устроит? Ваш код даже не буду пытаться. С нуля напишу. 0

@nafana 99 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 33
	16.10.2014, 22:59 [ТС]
	хорошо Добавлено через 20 секунд зарание спасибо 0

@nafana 99 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 33
	18.10.2014, 18:08 [ТС]
	а можете эти две программы сложить в одну программу Добавлено через 19 секунд ??? если не сложно 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	18.10.2014, 18:17
	Нет, не сложно. Могу добавить еще один пункт. Но, по условию задачи, это у вас разные программы. Может быть, уточните у преподавателя? 0

@nafana 99 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 33
	18.10.2014, 18:34 [ТС]
	хорошо добавте 0

@nafana 99 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 33
	19.10.2014, 19:41 [ТС]
	можете сделать чтобы вместо этих данных country:='Китай'; capital:='Пекин'; continent:='Азия'; population:=1366023160; area:=9598077; были произвольные данные, которие нужно вводить с клавиатуры? Добавлено через 5 часов 16 минут как сделать так чтобы страны, которые я буду вводить с клавиатуры сразу помещало в таблицу? 0

@nafana 99 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 33
	20.10.2014, 22:54 [ТС]
	извините пожалуйста , программа не заносит данние у файл. Как ето сделать? 0

@nafana 99 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 33
	21.10.2014, 21:10 [ТС]
	Могли би дать ссилку на скачивание данной среди програмированние? 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	22.10.2014, 10:27
	Сообщение было отмечено nafana 99 как решение Решение Современный компилятор паскаля. http://freepascal.org/ А если вам нужен именно borland pascal, то вот: http://pascal.sources.ru/museum/bp7.htm 1

@nafana 99 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 33
	23.10.2014, 19:54 [ТС]
	вы не знаете есть такая программа, которая может перевести код с Паскаля на С? 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	23.10.2014, 20:26
	http://www.mpsinc.com/pascal.html 0

@nafana 99 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 33
	30.10.2014, 17:10 [ТС]
	Можете сделать еще один пункт к задаче: Вывести список столиц, которые задаются с клавиатуры и начинаются с определенной буквы и находятся в определенной части мира 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	30.10.2014, 17:13
	Запрос какой? Введите континент: Введите название буквы, с которой начинается название столицы: Так? 0