Вставка нового элемента после указанного

@Andy_Mouse · Регистрация: 14.05.2010

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

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

Pascal

procedure vstavka;
   var i,a,kol,q:integer;
  begin
   assign(MAS,'f.doc');
   reset(MAS);
   clrscr;
   writeln('kolichestvo zapisei');
   readln(kol);
   writeln('posle kakoy vstavlyat');
   readln(q);
       seek(MAS,q);
    for i:=1 to kol do
       begin
        with PMAS do
       begin
         writeln('-------');
         write('god sozdaniya - '); readln(god);
         write('nazvanie - '); readln(name);
         write('stoimost rashodov - '); readln(stoim);
        write(MAS,PMAS);
       end;
    end;

@mss · 10.03.2011, 22:11

Кто такие MAS и PMAS ?

@nuHrBuH · 10.03.2011, 22:15

судя по всему MAS - имя переменной, связаной с файлом, а PMAS - название записи

@Andy_Mouse · 10.03.2011, 22:19 **[ТС]**

MAS: file of pam;
PMAS: pam;
так и есть

@Andy_Mouse · 10.03.2011, 22:25 **[ТС]**

у меня вот такое вот получилось, и дальше затуп пошел, яндекс молчит, гугл разводит лапками, сам ниче надумать немогу, кто подскажет может как сделать(:

@mss · 10.03.2011, 22:33

И всю эту тряхомудию требуется реализовать без использования вспомогательного массива или файла ?

@nuHrBuH · 10.03.2011, 22:59

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

dop - дополнительный файл

Pascal

writeln('posle kakoi poziicii vstavlyat : '); readln(q);
 
for i:= q + 1 to filesize(mas) do
 with PMAS do
     begin
           read(mas,pam);
           write(dop,pam);
      end;
 
seek(mas,q);
 
for i:=1 to kol do
       begin
        with PMAS do
       begin
         writeln('-------');
         write('god sozdaniya - '); readln(god);
         write('nazvanie - '); readln(name);
         write('stoimost rashodov - '); readln(stoim);
        write(MAS,PMAS);
       end;
    end;
 
seek(mas,filesize(mas) );
 
   for i:= 1 do filesize(dop) do
       with pmas do
            begin
                  read(dop, pam);
                   write(mas,pam); 
             end;

Попробуй так, может напутал где-то, головауже не варит...

@Andy_Mouse · 11.03.2011, 07:46 **[ТС]**

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

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	10.03.2011, 22:11	2
	Кто такие MAS и PMAS ? 1

@nuHrBuH 483 / 427 / 205 Регистрация: 04.03.2011 Сообщений: 1,259
	10.03.2011, 22:15	3
	судя по всему MAS - имя переменной, связаной с файлом, а PMAS - название записи 1

@Andy_Mouse 3 / 3 / 2 Регистрация: 14.05.2010 Сообщений: 86
	10.03.2011, 22:25 [ТС]	5
	у меня вот такое вот получилось, и дальше затуп пошел, яндекс молчит, гугл разводит лапками, сам ниче надумать немогу, кто подскажет может как сделать(: 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	10.03.2011, 22:33	6
	И всю эту тряхомудию требуется реализовать без использования вспомогательного массива или файла ? 1

@Andy_Mouse 3 / 3 / 2 Регистрация: 14.05.2010 Сообщений: 86
	11.03.2011, 07:46 [ТС]	8
	хм, тоже вариант, ща попробую чекнуть со вспомогательным массивом, тоесть я как понял, все после q записать в дополнительный массив, ввести поле, а после уже с дополнительного сливать в основной, идея, пасыба)) 0