Не могу осуществить редактирование записи - Pascal - Ответ 12593998

@Lecras · Регистрация: 12.08.2018

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

Первый пост на форуме,поэтому могу ошибаться как правильно постить.
неведомая куча символов скорее из-за того что использую Turbo Pascal(но в нем же нет копирования текста программы?), а вставил при помощи АВС pascal

Может ли кто помочь реализовать процедуру редактирования? Процедура Redact, сейчас, если что, там просто набор бреда

Pascal

Program Laba;
Uses
  Crt;
Type
  Footplayer=record
    Name:string;
    Number:1..99;
    Team:string;
    Goals:integer;
    Penalty:integer
  end;
  FileSp=file of Footplayer;
  Adr=^Zveno;
  Zveno=record
    Adrcled:Adr;
    Player:Footplayer;
  end;
 
Var
  Adr1:Adr;
  c:char;
  St:String;
  I:integer;
 
{‚лў®¤ в*Ў«Ёжл}
Procedure WriteTab;
begin
  GotoXY(1,1);
  Writeln('ЪДДВДДДДДДДДДДДДДДВДДДДДДДДДВДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДї');
  Writeln('іь і €¬п ЁЈа®Є*   і  Ќ®¬Ґа  і   Ќ*§ў**ЁҐ   і    Љ®«ЁзҐбвў®     і   Љ®«ЁзҐбвў® і');
  Writeln('і  і              і  ЁЈа®Є* і   Є®¬**¤л    і      Ј®«®ў        іива*д*ле ®зЄ®ўі');
  Writeln('ГДДЕДДДДДДДДДДДДДДЕДДДДДДДДДЕДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДґ');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('АДДБДДДДДДДДДДДДДДБДДДДДДДДДБДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДЩ');
end;
 
{ЋзЁбвЄ* Є®¬**¤*®© бва®ЄЁ}
Procedure ClrSt;
var
  I:integer;
begin
  GotoXY(1,21);
  for I:=1 to 80 do write(' ');
  GotoXY(1,21);
end;
 
{‡*Јаг§Є* бЇЁбЄ*}
Procedure LoadSp(Stroka:String;Adres1:Adr);
var
  Spisok:FileSp;
  El:Footplayer;
  Adrzv:Adr;
begin
  Assign(Spisok,Stroka);
  {$I-}
  Reset(Spisok);
  {$I+}
  if IOResult=0 then
      begin
        Adrzv:=Adres1;
        Adrzv^.Adrcled:=Nil;
        while not Eof(Spisok) do
          begin
            read(Spisok,El);
            New(Adrzv^.Adrcled);
            Adrzv:=Adrzv^.Adrcled;
            Adrzv^.Adrcled:=Nil;
            Adrzv^.Player:=El
          end;
        Close(Spisok);
      end
    else
      begin
        ClrSt;
        write(' ”*©« *Ґ ®Ў**аг¦Ґ*. „«п Їа®¤®«¦Ґ*Ёп **¦¬ЁвҐ <Enter>...');
        readln;
        ClrSt;
      end;
end;
 
{ЋзЁбвЄ* бЇЁбЄ*}
Procedure ClrSp;
var
  X,Y,I:integer;
begin
  X:=2;
  Y:=5;
    for I:=1 to 15 do
      begin
        GotoXY(X,Y+(I-1)); write('  ');
        GotoXY(X+3,Y+(I-1)); write('              ');
        GotoXY(X+18,Y+(I-1)); write('         ');
        GotoXY(X+31,Y+(I-1)); write('         ');
        GotoXY(X+51,Y+(I-1)); write('   ');
        GotoXY(X+69,Y+(I-1)); write('   ');
      end;
  GotoXY(1,21)
end;
 
{‚лў®¤ бЇЁбЄ*}
Procedure WriteSp(Adres1:Adr);
var
  X,Y,N:integer;
  Adrzv:Adr;
begin
  ClrSp;
  N:=1;
  X:=2;
  Y:=5;
  Adrzv:=Adres1^.Adrcled;
  while Adrzv<>Nil do
    begin
      GotoXY(X,Y); write(N:2);
      GotoXY(X+3,Y); write(Adrzv^.Player.Name:13);
      GotoXY(X+18,Y); write(Adrzv^.Player.Number:7);
      GotoXY(X+31,Y); write(Adrzv^.Player.Team:6);
      GotoXY(X+51,Y); write(Adrzv^.Player.Goals:2);
      GotoXY(X+69,Y); write(Adrzv^.Player.Penalty:2);
      ClrSt;
      N:=N+1;
      Y:=Y+1;
      Adrzv:=Adrzv^.Adrcled;
      if (((N-1) mod 15)=0) and (Adrzv<>Nil) then
        begin
          write(' „«п Їа®¤®«¦Ґ*Ёп **¦¬ЁвҐ <Enter>...');
          readln;
          Y:=5;
          ClrSp
          end;
    end;
  ClrSt;
end;
 
 
{‚лў®¤ бЇЁбЄ* Ё§ 10}
Procedure WriteSp10(Adres1:Adr);
var
  N,X,Y:integer;
  Adrzv:Adr;
begin
  ClrSp;
  N:=1;
  X:=2;
  Y:=5;
  Adrzv:=Adres1^.Adrcled;
  while Adrzv<>Nil  do
    begin
      GotoXY(X,Y); write(N:2);
      GotoXY(X+3,Y); write(Adrzv^.Player.Name:13);
      GotoXY(X+18,Y); write(Adrzv^.Player.Number:7);
      GotoXY(X+31,Y); write(Adrzv^.Player.Team:6);
      GotoXY(X+51,Y); write(Adrzv^.Player.Goals:2);
      GotoXY(X+69,Y); write(Adrzv^.Player.Penalty:2);
      ClrSt;
      N:=N+1;
      Y:=Y+1;
      Adrzv:=Adrzv^.Adrcled;
      if N>10 then
        begin
          write(' „«п ўлў®¤* ®б*®ў*®© в*Ў«Ёжл **¦¬ЁвҐ <Enter>...');
          readln;
          WriteSP(Adres1);
          break;
          end;
    end;
    ClrSt;
  end;
 
 
 
 
{„®Ў*ў«Ґ*ЁҐ н«Ґ¬Ґ*в*}
Procedure Dobavl(Adres1:Adr);
var
  El:Footplayer;
  Q,Adrzv:Adr;
begin
  Adrzv:=Adres1;
  write(' €¬п ЁЈа®Є*: '); readln(El.Name); ClrSt;
  write(' Ќ®¬Ґа ЁЈа®Є*: '); readln(El.Number); ClrSt;
  write(' Ќ*§ў**ЁҐ Є®¬**¤л: '); readln(El.Team); ClrSt;
  write(' Љ®«ЁзҐбвў* Ј®«®ў: '); readln(El.Goals); ClrSt;
  write(' Љ®«ЁзҐбвў® ива*д*ле ®зЄ®ў: '); readln(El.Penalty); ClrSt;
  New(Q);
  while Adrzv^.Adrcled<>Nil do Adrzv:=Adrzv^.Adrcled;
  Q^.Player:=El;
  Q^.Adrcled:=Adrzv^.Adrcled;
  Adrzv^.Adrcled:=Q;
end;
 
{“¤*«Ґ*ЁҐ н«Ґ¬Ґ*в*}
Procedure Udal(Adres1:Adr);
var
  Q:Adr;
  I,N:integer;
  Adrzv:Adr;
begin
  Adrzv:=Adres1;
  write(' ‚ўҐ¤ЁвҐ *®¬Ґа г¤*«пҐ¬®Ј® н«Ґ¬Ґ*в*:  '); readln(N); ClrSt;
  for I:=1 to (N-1) do Adrzv:=Adrzv^.Adrcled;
  Q:=Adrzv^.Adrcled;
  Adrzv^.Adrcled:=Adrzv^.Adrcled^.Adrcled;
  dispose(Q);
end;
 
{ђҐ¤*ЄвЁа®ў**ЁҐ н«Ґ¬Ґ*в*}
Procedure Redact(Adres1:Adr);
var
  El:Footplayer;
  Q,Adrzv:Adr;
  I,N: integer;
begin
  write(' ‚ўҐ¤ЁвҐ *®¬Ґа аҐ¤*ЄвЁагҐ¬®Ј® н«Ґ¬Ґ*в*:  '); readln(I); ClrSt;
  Write(' ‚ўҐ¤ЁвҐ *®¬Ґа бв®«Ўж* Ё§¬Ґ*Ґ*Ёп (2-6):  '); readln(N); Clrst;
    case N of
  2: begin
   write(' €¬п ЁЈа®Є*: '); readln(El.Name); ClrSt;
   Adrzv^.Player.Name:=El.Name;
 
       end;
  3: begin
   write(' Ќ®¬Ґа ЁЈа®Є*: '); readln(El.Number); ClrSt;
   end;
  4: Begin
   write(' Ќ*§ў**ЁҐ Є®¬**¤л: '); readln(El.Team); ClrSt;
   end;
  5: begin
   write(' Љ®«ЁзҐбвў* Ј®«®ў: '); readln(El.Goals); ClrSt;
   end;
  6: begin
   write(' Љ®«ЁзҐбвў® ива*д*ле ®зЄ®ў: '); readln(El.Penalty); ClrSt;
  end;
end;
end;
 
 
 
{‘®§¤**ЁҐ бЇЁбЄ*}
Procedure NewSp(Adres1:Adr);
var
  Adrzv:Adr;
  Ch:char;
begin
  Adrzv:=Adres1;
  Adrzv^.Adrcled:=Nil;
  Ch:='Y';
  Repeat
    if (Ch='Y') or (Ch='y') then
      begin
        Dobavl(Adrzv);
        Adrzv:=Adrzv^.Adrcled
      end;
    WriteSp(Adres1);
    write(' „®Ў*ўЁвм б«Ґ¤гойЁ© н«Ґ¬Ґ*в ў бЇЁб®Є (Y/N): '); readln(Ch); ClrSt;
  until (Ch='N') or (Ch='n');
end;
 
{‘®еа**Ґ*ЁҐ бЇЁбЄ*}
Procedure SaveSp(Adres1:Adr);
var
  Spisok:FileSp;
  St:String;
  Adrzv:Adr;
begin
  write(' ‡*ЇЁб*вм ў д*©«: '); readln(St); ClrSt;
  Assign(Spisok,St);
  Rewrite(Spisok);
  Adrzv:=Adres1;
  while Adrzv^.Adrcled<>Nil do
    begin
      Adrzv:=Adrzv^.Adrcled;
      write(Spisok,Adrzv^.Player);
    end;
  Close(Spisok);
  write(' ”*©« б®еа**Ґ*. „«п Їа®¤®«¦Ґ*Ёп **¦¬ЁвҐ <Enter>...');
  readln; ClrSt;
end;
 
{10 “бЇҐи*ле ЁЈа®Є®ў}
Procedure Succsess(Adres1:Adr);
var
  Adrzv:Adr;
  El:FootPlayer;
  I:integer;
begin
  repeat
    I:=0;
    Adrzv:=Adres1^.Adrcled;
    while Adrzv^.Adrcled<>Nil do
      begin
        if Adrzv^.Player.Goals<Adrzv^.Adrcled^.Player.Goals then
          begin
            I:=1;
            El:=Adrzv^.Player;
            Adrzv^.Player:=Adrzv^.Adrcled^.Player;
            Adrzv^.Adrcled^.Player:=El;
          end;
        Adrzv:=Adrzv^.Adrcled;
      end;
  until I=0;
 
end;
 
{10 ЁЈа®Є®ў б®ива*д*л¬Ё ®зЄ*¬Ё}
Procedure Unsuccsess(Adres1:Adr);
var
  Adrzv:Adr;
  El:FootPlayer;
  I:integer;
begin
  repeat
    I:=0;
    Adrzv:=Adres1^.Adrcled;
    while Adrzv^.Adrcled<>Nil do
      begin
        if Adrzv^.Player.Penalty<Adrzv^.Adrcled^.Player.Penalty then
          begin
            I:=1;
            El:=Adrzv^.Player;
            Adrzv^.Player:=Adrzv^.Adrcled^.Player;
            Adrzv^.Adrcled^.Player:=El;
          end;
        Adrzv:=Adrzv^.Adrcled;
      end;
  until I=0;
end;
 
 
 
{‚лў®¤ ¬Ґ*о}
Procedure WriteM;
begin
  gotoXY(1,23);
  writeln('1 - ‡*Јаг§Ёвм бЇЁб®Є           2 - ‘®еа**Ёвм бЇЁб®Є        3 - ‘®§¤*вм бЇЁб®Є');
  writeln('4 - 10 ‘*¬ле гбЇҐи*ле ЁЈа®Є®ў  5 - “¤*«Ёвм н«Ґ¬Ґ*в         6 - „®Ў*ўЁвм н«Ґ¬Ґ*в');
  write('7 - 10 €Ја®Є®ў б® ива*д*¬Ё     8 - ђҐ¤*ЄвЁа®ў**ЁҐ н«Ґ¬Ґ*в* 9 - ‚ле®¤');
end;
 
{Ћб*®ў**п Їа®Ја*¬¬*}
Begin
 
 
  ClrScr;
  WriteTab;
  WriteM;
  New(Adr1);
  Adr1^.Adrcled:=Nil;
  ClrSt;
  St:='';
  while C<>'9' do
    begin
      write(' ‚лЎҐаЁвҐ ¤Ґ©бвўЁҐ >> '); readln(C); ClrSt;
      case C of
        '1':begin
              write(' ‚ўҐ¤ЁвҐ Ї®«*®Ґ Ё¬п ®вЄалў*Ґ¬®Ј® д*©«*: ');
              readln(St);
              LoadSp(St,Adr1);
              WriteSp(Adr1)
            end;
        '2':SaveSp(Adr1);
        '3':begin
              ClrSp;
              NewSp(Adr1);
              WriteSp(Adr1)
            end;
        '4':begin
              Succsess(Adr1);
              WriteSp10(Adr1);
            end;
        '5':begin
              Udal(Adr1);
              WriteSp(Adr1)
            end;
        '6':begin
              Dobavl(Adr1);
              WriteSp(Adr1)
            end;
        '7':begin
              Unsuccsess(Adr1);
              WriteSp10(Adr1)
            end;
        '8':begin
              Redact(Adr1);
              WriteSp(Adr1)
            end;
      end;
    end;
End.

Вернуться к обсуждению:
Не могу осуществить редактирование записи Pascal

Следующий ответ

Другие темы раздела
Pascal Вывести значения максимального элемента program z1; uses crt; const n=10; m=20; var a:array of integer; i,j:integer; max:integer; str,stl:integer; begin https://www.cyberforum.ru/ pascal/ thread2281642.html	Pascal Подсчитать количество положительных элементов в матрице Всем привет! Помогите решить задачу Разработать алгоритм и написать программу (СИ или Паскаль), которая подсчитает количество положительных элементов в матрице X (10,20). Значения элементов матрицы заданы. Вывести это количество.
Pascal Преобразовать матрицу https://www.cyberforum.ru/ pascal/ thread2281025.html Всем привет. Помогите решить задачу Разработать алгоритм и написать программу (СИ или Паскаль), которая преобразует матрицу X (20,15) таким образом, чтобы строки матрицы были упорядочены по убыванию. Значения элементов матрицы заданы. Вывести матрицу до и после преобразования.	Pascal Вычислить приближенно определенный интервал https://www.cyberforum.ru/ pascal/ thread2280755.html Всем привет! Помогите решить задачу Вычислить приближенно определенный интеграл по формуле прямоугольников или трапеций: I=\int_{0}^{\pi }{\sin }^{2}xdx . Количество разбиений отрезка интегрирования – 10. Разработать алгоритм и написать программу (СИ или Паскаль).
Не проходит компиляцию простейший код Pascal Здравствуйте. У меня есть программа Enlogic, для программирования ПЛК. В ней среди фукциональных блоков есть возможность написать скрипт на паскаль или Cscript. Задача была такая. Есть две переменных. На входе ФБ тип boolean и на выходе тип Integer. И надо что бы выполнялось условие если на входе 0 то и на выходе должен быть 0, если на входе 1 то на выходе должно быть 255. В Enlogic есть...	Pascal Найти корень нелинейного уравнения Всем привет. Помогите решить задачу Привести структурную схему алгоритма и написать программу на языке Си или Паскаль нахождения корня нелинейного уравнения sin 2x=0,3. Граница поиска от 0 до π/2. Решение выполнить одним из методов: методом половинного деления, методом хорд, методом касательных. https://www.cyberforum.ru/ pascal/ thread2280690.html
Pascal Упорядочить строки матрицы. Всем привет. Помогите решить задачу Разработать алгоритм и написать программу (СИ или Паскаль), которая преобразует матрицу X (10,20) таким образом, чтобы строки матрицы были упорядочены по возрастанию. Значения элементов матрицы заданы. Вывести матрицу до и после преобразования. https://www.cyberforum.ru/ pascal/ thread2280636.html	Вычислить произведения и сумму. Pascal Всем привет! Помогите решить задачу Разработать алгоритм и написать программу (СИ или Паскаль) вычисления величины SP=\sum_{\textrm{i}=1}^{4}\prod_{\textrm{j}=1}^{5}({a}_{\textrm{ij}}+\prod_{k=1}^{4}{c}_{k}) . Массивы a и c заданы. Вывести значение SP.
Pascal Разработать алгоритм и написать программу https://www.cyberforum.ru/ pascal/ thread2280621.html Всем привет! Помогите, пожалуйста, решить задачи 1. Задание. Разработать алгоритм и написать программу (СИ или Паскаль) вычисления величины SP=\sum_{\textrm{i}=1}^{4}\prod_{\textrm{j}=1}^{5}({a}_{\textrm{ij}}+\prod_{k=1}^{4}{c}_{k}) . Массивы a и c заданы. Вывести значение SP. 2. Задание. Разработать алгоритм и написать программу (СИ или Паскаль), которая преобразует матрицу X (10,20)...	Pascal Можно ли на Паскале сделать истинный генератор случайных чисел и как? https://www.cyberforum.ru/ pascal/ thread2280487.html Доброго времени суток! У процессора моего компьютера (Intel Core i7 4700MQ), насколько я знаю, есть такая функция - генерировать действительно случайные числа. Но так как я в программировании новичок, я совсем не представляю, как эту функцию использовать и считывать эти числа. А тот стандартный генератор, который есть в Паскале (функция randomize), судя по всему псевдослучайный. Не мог бы кто...
Ошибка выполнения Pascal Много раз сталкивался с таким, что в ABC, Turbo, Free pascal. Есть код: Var a,b,c,d,e: string; Var i,f,h: integer; //Var g: integer:= 1; begin read(f); for i:=1 to f do begin read(a,b,c);	Pascal Оптимизация Доброго времени суток. Программа не проходит по времени выполнения тесты, не знаю даже, как можно ее оптимизировать. Помогите пожалуйста, знающие люди. Var a: array of integer; Var b: array of integer; Var c,d,i,k,g: integer; begin d:= 0; read(c); for i:= 1 to c do https://www.cyberforum.ru/ pascal/ thread2277764.html

Новые блоги и статьи
Всё не так уж и плохо. Hrethgir 25.01.2025 Запустил более-менее сносно регистры в связке с сумматорами. Да - виновата оптимизация от Gowin EDA, дело в том, что Education шифрует нетлист, да и вообще много чего не позволяет. Просто обвязал. . .	Cisco ASA: подробное руководство по настройке и использованию hw_wired 25.01.2025 В сетевой безопасности межсетевые экраны играют критически важную роль в защите корпоративных инфраструктур от постоянно растущего числа киберугроз. Среди множества решений для обеспечения. . .	Cisco Intelligent Services Gateway: руководство по настройке hw_wired 25.01.2025 В сетевых инфраструктурах Cisco Intelligent Services Gateway (ISG) играет ключевую роль в организации и управлении сервисами для конечных пользователей. Этот компонент представляет собой. . .	Использование Go (Golang) в Highload-проектах: преимущества и особенности bytestream 25.01.2025 В мире высоконагруженных систем выбор правильного инструментария играет ключевую роль в успехе проекта. Go (Golang) представляет собой относительно молодой язык программирования, который быстро. . .	Откуда у float лишние цифры в конце дробной части. Представление чисел с плавающей точкой bytestream 25.01.2025 При разработке программного обеспечения часто возникает необходимость работать с вещественными числами, которые содержат дробную часть. В современных компьютерных системах такие числа представляются. . .	Как использовать глобальную переменную в функции в Python bytestream 25.01.2025 В программировании на Python глобальные переменные представляют собой особый тип переменных, которые доступны для использования во всех частях программы, включая различные функции, классы и модули. . . .
Как в цикле обойти все элементы map в Java bytestream 25.01.2025 В разработке на Java одной из наиболее востребованных структур данных является интерфейс Map, который предоставляет эффективный способ хранения и управления парами "ключ-значение". Разработчики. . .	Для чего нужен UserManager.isUserAGoat() в Android и как это использовать bytestream 25.01.2025 В мире Android-разработки существует множество интересных и порой загадочных функций, о которых знают далеко не все разработчики. Одной из таких функций является метод UserManager. isUserAGoat(),. . .	Как обойти масси в JavaScript. Всё о циклах bytestream 25.01.2025 JavaScript представляет собой мощный язык программирования, широко используемый в веб-разработке, где массивы и циклы являются фундаментальными концепциями для эффективной работы с данными. Массив в. . .	Как сделать, чтобы существующая ветка отслеживала удалённую в Git. Связывание локальных и удалённых веток bytestream 25.01.2025 В разработке программного обеспечения системы контроля версий стали неотъемлемой частью процесса создания качественного программного продукта. Эти инструменты позволяют разработчикам эффективно. . .	Как проверить, что файл НЕ существует с помощью Bash bytestream 25.01.2025 В системном администрировании проверка существования файлов является фундаментальной операцией, особенно при написании скриптов на Bash. Правильная обработка ситуаций, когда файл отсутствует,. . .	Как проверить, что строка пустая, неопределена или null в JavaScript bytestream 25.01.2025 При разработке веб-приложений на JavaScript разработчики регулярно сталкиваются с необходимостью проверки строковых значений на различные состояния. Валидация данных является критически важным. . .

	12.08.2018, 22:02