С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Dispersia
0 / 0 / 0
Регистрация: 20.10.2012
Сообщений: 16
1

Заполнить типизированный файл записями о странах

19.02.2014, 15:40. Просмотров 421. Ответов 0
Метки нет (Все метки)

Нужно заполнить типизированный файл записями о странах.
Pascal
1
2
3
4
5
6
7
8
9
10
type zap=record continent,country:string[13];
                area:real;
                population:longint;
                year:integer;
                capital:string[15];
                cap_population:integer
         end;
var i,n, m:integer; ch:char;
f:file of zap;
z:zap;
Добавлено через 9 минут
При выполнении процедуры заполнения в Turbo или Free Pascal не выполняется одна строка read(capital). Т. е строчка, где заполняется столица вообще пропускается и процедура выполняется дальше. Не понимаю вообще в чем дело. Паскаль АВС выполняет нормально. Может кто подскажет. Заранее благодарю. Вот текст процедуры:

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
procedure create;
const
     materik:array[1..5] of string[13]=('Africa', 'Asia','Europe', 'N.America','S.America');
var
   s:string[7];
   ans,j,n:byte;
   i:integer;
begin
     clrscr;
     s:='TIP';
     textcolor(white);
     write('0 - to create baza; 1 - to continue baza');
     readln(n);
     writeln;
          case n of
           0:begin
                 assign(f,'baza.dat');
                 rewrite(f); i:=0;
                 end;
           1:begin
                assign(f,'baza.dat');
                reset(f);
                seek(f, filesize(f));
                i:=filepos(f)
             end ;
                   end;
            repeat
          clrscr;i:=i+1;
          textcolor(magenta);
          writeln('Input record number',i);
          with z do
                begin
                     textcolor(yellow);
                     write('Input name of the contry ');
                     textcolor (white);
                     readln(country);
                     writeln;
                     textcolor (yellow);
                     writeln('Choose your continent: ');
                     textcolor(lightblue);
                     for j:=1 to 5 do
                         writeln(j, ' - ', materik[j]);
                     repeat
                            begin
                            readln(j);
                         if (j>=1) and(j<=5) then  begin continent:=materik[j];
                                                   textcolor(yellow);
                                                   writeln('You have chossen:  ', materik[j]);
                                                   flag:=1;
                                                    writeln
                                                    end
                                             else
                                                   begin writeln('incorrect value, write 1-5'); flag:=0; end;
 
                             end;
                            until flag=1;
                            flag:=0;
                         writeln('Input area, population:');
                         textcolor(white);
                         read(area,population);
                         textcolor(yellow);
                         writeln('Input census year: ');
                         textcolor(white);
                         read(year);
                         textcolor(yellow);
                         writeln('Input the Capital of the country');
                         textcolor(white);
                         read(capital);
                         textcolor(yellow);
                         writeln('Input population  of the capital: ');
                         textcolor(white);
                         read(cap_population);
                         textcolor(yellow);
                         textcolor(lightred);
                         writeln('Dobavleno');
                 end;
                 write(f,z);writeln;
                 textcolor(white);
                 write('0 - exit, 1 - continue');
                 readln(ans);
                 writeln
          until ans=0;
          if ans=0 then menu(10);
          close(f)
end;
Добавлено через 17 часов 55 минут
О, переставила эти строки повыше и все работает
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.02.2014, 15:40
Ответы с готовыми решениями:

Заполнить файл произвольными повторяющимися записями
9 Напечатать и выполнить программу, которая заполняет файл rpt.txt...

Заполнить типизированный файл целыми числами
Заполнить типизированный файл целыми числами из интервала . Поменять местами в...

Заполнить типизированный файл целыми числами
Заполнить типизированный файл целыми числами из интервала . Увеличить вдвое...

Заполнить типизированный файл целыми числами из интервала [-16000; 16000].
Заполнить типизированный файл целыми числами из интервала . Увеличить на 100...

Заполнить типизированный файл целыми числами из интервала [-12000; 12000]. Увеличить вдвое компоненты файла, стоящие после максимального элемента.
Заполнить типизированный файл целыми числами из интервала . Увеличить вдвое...

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

Типизированный файл. Создать файл целых чисел. Определить суммы чисел до локальных минимумов, записав их в новый файл
Пожалуйста, помогите с решением: Создать файл целых чисел. Определить суммы...

Создать типизированный файл из вещественных чисел, записать во второй файл числа первого файла
Помогите пожалуйста написать программу Задача: создать типизированный файл...

Типизированный файл. В новый файл записать все массивы исходного, исключая четвертые элементы
2)копмоненты заданного типизированного файла - массивы, состоящие из пяти...


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

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

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