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

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

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

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

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

Pascal

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

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

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 Список стран, площадь которых превышает 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 Список стран, площадь которых превышает 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

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 Список стран, площадь которых превышает 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

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

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

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

Решение

Решение

Решение

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

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

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

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

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

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

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

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

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	22.10.2014, 10:27	16
	Сообщение было отмечено 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 [ТС]	17
	вы не знаете есть такая программа, которая может перевести код с Паскаля на С? 0

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

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

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