Версия для печати темы

Автор: -Павел- 20.11.2005 18:41

Люди! Здраствуйте! Помогите! Почему-то не хочет работать задача: "Ввести 2 списка. Объеденить. Отсортировать объединённый список.
Вот задача:

program lab1_2;
uses	crt;
type	plist = ^tlist;
	tlist = record
		info: integer;
		link: plist;
	end;
var	first1, posl1, first2, posl2: plist;
	p, k, max: plist;
	s: integer;
	n, i: integer;
procedure vvod (var first, posl: plist);
var s: integer;
begin
	posl:=first;
	write ('Введите следующий элемент: ');
	readln(s);
	while s<>-999 do
		begin
			new(p);
			p^.info:=s;
			p^.link:=posl;
			posl:=p;
			write ('Введите следующий элемент: ');
			readln(s);
		end;
end;
begin
	clrscr;
	first1:=nil;
	vvod (first1, posl1);
	first2:=nil;
	vvod (first2, posl2);
 	p:=posl2;
{Объединение}
	while p<>nil do begin
		if p^.link = nil then begin
			p^.link:=posl1;
			break;
		end;
	    p:=p^.link;
	end;
{Вывод объединённого}
	p:= posl2;
	while p<>nil do begin
		inc (n);
		write (p^.info, ' ');
		p:=p^.link;
	end;
{Сортировка}
  k:= posl2;
  for i:=1 to n do
      begin
	p:=k;
	max:=p;
	while p<>nil do
		begin
			if max^.info < p^.info then max:= p;
			p:=p^.link;
		end;          
	s:=max^.info;
	max^.info:= p^.info;
	p^.info:= s;
	k:=k^.link;
      end;
{Вывод отсортированного}
	writeln;
	p:= posl2;
	while p<>nil do begin
		inc (n);
		write (p^.info, ' ');
		p:=p^.link;
	end;
  	readkey;
end.

Автор: volvo 20.11.2005 18:50

-Павел-, вопрос на засыпку: ты уверен, что они правильно вводятся?

Автор: -Павел- 20.11.2005 18:52

Выводится всё вроде Верно...
Помогите люди! Завтра сдавать уже - хана будет!

Автор: volvo 20.11.2005 19:23

Как-то вот так:

program lab1_2;
uses crt;
type
  plist = ^tlist;
  tlist = record
    info: integer;
    link: plist;
  end;
var
  first1, posl1, first2, posl2: plist;

procedure print(p: plist);
begin
  while p <> nil do begin
    write(p^.info:5);
    p := p^.link
  end;
  writeln;
end;

procedure vvod (var first, last: plist);
var
  s: integer;
  p: plist;
begin

  last := first;
  repeat
    write('Введите следующий элемент: '); readln(s);
    if s <> -999 then begin
      new(p);
      p^.info := s;
      p^.link := nil;

      if first = nil then first := p
      else last^.link := p;
      last := p;
    end;
  until s = -999;

end;

var
  ii, jj, nmin: plist;
  T: integer;

begin
  clrscr;
  writeln('Первый список:');
  first1:=nil; vvod (first1, posl1);
  print(first1);

  writeln('Второй список:');
  first2:=nil; vvod(first2, posl2);
  print(first2);

  writeln('Объединенный список:');
  posl1^.link := first2;
  print(first1);

  { Сортировка ! }
  ii := first1;
  while ii^.link <> nil do begin
    nmin := ii;

    jj := ii^.link;
    while jj <> nil do begin
      if jj^.info < nmin^.info then nmin := jj;
      jj := jj^.link;
    end;

    T := ii^.info;
    ii^.info := nmin^.info;
    nmin^.info := T;

    ii := ii^.link;
  end;
  writeln('Отсортированный список:');
  print(first1);

end.

Автор: Guest 20.11.2005 19:39

Спасибо! щас опробую!

Автор: -Павел- 20.11.2005 19:49

volvo - ты монстр в Pascale... Спасибо огромное - всё работает супер...
Я просто програмёр во Flash (ActionScript) - так что если что надо обращайся!
dogpaul@yandex.ru

З.Ы. Щас эту задачу в лабу оформлю и бдуу длеать "Сортировка списка слиянием" - так что есличё не получиться, прошу о помощи! ;)

Автор: -Павел- 20.11.2005 20:10

2volvo
Слушай! Ты уж извини что дастаю...
Вот если первый список пустой, то ваще он их не объединяет...
Я впрнципе понимаю что что-то в перменных first и posl... а вот что...
Помоги!

Автор: volvo 20.11.2005 20:17

Замени это:

...
  writeln('Объединенный список:');
  posl1^.link := first2;
  print(first1);
...

на это:

...
  writeln('Объединенный список:');
  if first1 = nil then first1 := first2
  else posl1^.link := first2;
  print(first1);
...

Автор: Guest 20.11.2005 20:21

Спасибо! готов просто расцеловать!

Автор: volvo 20.11.2005 20:22

Не надо ...

Автор: buy prescription lasix 40 mg onl 7.11.2021 14:49

Cialis.60mg.Sale

Автор: is gabapentin considered a paink 6.12.2021 18:57

Buy Synthroid Mexico