ОДНОСВЯЗНЫЕ СПИСКИ Опции

[Toni_]

Задача. Разработайте программу слияния двух односвязных упорядоченных по не убыванию линейных списков в один упорядоченный список.

Вобщем вот до чего я дошел. Народ вопрос как сделать так чтобы я вводил по 1 элементу? а не водил скока я хочу вести елементов..... Помогите кто чем может

Program spisok_PR_15;
uses crt;
type link=^item;
	 item=record
	 data:integer;
	 ref:link;
	 end;

var px,py:link;  n,i:integer; a:^integer; ch:char;

Procedure vivod;
begin
While py<>nil do {Vivod spiska}
begin
write(py^.data,' ');
py:=py^.ref
end;
end;
begin

repeat
clrscr;
writeln('1.Sosdadim 1 spisok');
writeln;
writeln('2.Sosdadim 2 spisik');
writeln;
writeln('3.Soedinim spiski');
writeln;
writeln('4.Vivod 1 spiska');
writeln;
Writeln('0.Exit');
Readln(ch);
Case ch of

#49:   {1}
begin
px:=nil;
  {sozdanie spiska, Также я тут задаю количество вводимых элементо, 
  как сделать так чтобы я вводил по 1 элементу}
Writeln('Kolichestvo vvodimix elementov');
Read(n);
For i:=1 to n do
begin
New(py);
Read(a^);
py^.data:=a^;
py^.ref:=px;
px:=py;
{end;}
end;

#52:  {4 }
begin
While py<>nil do {Vivod spiska}
begin
write(py^.data,' ');
py:=py^.ref
end;
readkey;
end;
end
until ch=#48; {0}
end. 

Сообщение отредактировано: Lapp - 4.01.2011 7:07

[Lapp]

Вобщем вот до чего я дошел.

Неплохо )).
Но все же выкладывай компилирующийся код, если он есть. Мне пришлось каскомментировать один end. Кроме того, я причесал код (отформатировал) и убрал совершенно непонятное "a", которое не было аллоцированно и крэшило прогу (к счастью, оно оказалось совершенно ненужным)). Вот, "до чего я дошел" :

Program spisok_PR_15;
uses crt;
type
  link= ^item;
	item= record
	  data: integer;
	  ref: link;
	end;

var
  px,py: link;
  n,i: integer;
  ch: char;

Procedure vivod;
begin
  While py<>nil do {Vivod spiska} begin
    write(py^.data,' ');
    py:=py^.ref
  end;
end;

begin
  repeat
    clrscr;
    writeln('1.Sosdadim 1 spisok');
    writeln;
    writeln('2.Sosdadim 2 spisik');
    writeln;
    writeln('3.Soedinim spiski');
    writeln;
    writeln('4.Vivod 1 spiska');
    writeln;
    Writeln('0.Exit');

    Readln(ch);
    Case ch of
      '1': begin
        px:=nil;
          {sozdanie spiska, Также я тут задаю количество вводимых элементо,
          как сделать так чтобы я вводил по 1 элементу}
        Writeln('Kolichestvo vvodimix elementov');
        Read(n);
        For i:=1 to n do begin
          New(py);
          Read(py^.data);
          py^.ref:=px;
          px:=py;
        end;
      end;
      '4': begin
        While py<>nil do begin {Vivod spiska}
          write(py^.data,' ');
          py:=py^.ref
        end;
        readkey;
      end;
    end
  until ch='0'
end.

Народ вопрос как сделать так чтобы я вводил по 1 элементу? а не водил скока я хочу вести елементов..... Помогите кто чем может

Тебе и не снилось, что мы можем. Ты только говори яснее.
Что значит "по 1 элементу"? То есть прекращать ввод по какому-то признаку?
Самое простое - выбрать какое-то число, как признак окончания ввода (например, 0). Но тогда в твой список невозможно будет ввести это число.
Второй способ: вводить не число, а строку, и переводить эту строку в число в программе. Тогда можно будет прекращать ввод по вводу слова "end" (или любого другого).
Третий способ: вводить посимвольно, составлять строку и переводить ее в число. Тогда можно будет сделать окончание ввода по нажатии, например, Esc.
Четвертый и последний способ довольно простой (проще 2 и 3). Он содержит некоторый трюк. Можно отключать проверку ошибок ввода - а точнее - брать ее на себя. И выходить из цикла ввода по ошибке. Тогда для выхода нужно просто ввести любой нецифровой символ (например, A или q, или ф..). Делается примерно так:

Stop:=false;
repeat
  Write('Введите очередной элемент: ');
  {$I-} ReadLn(x); {$I+}
  if IOResult=0 then begin
    {тут добавление элемента в список}
  end
  else Stop:=true
until Stop;

Попробуй и спрашивай, что непонятно.

PS
Еще, просьба к тебе: используй теги code=pas