VPF::[Pascal] Односвязный Список - Форум программистов

mishamusha

Дата 20.4.2014, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 29.10.2013

Репутация: нет
Всего: нет

Всем привет, у меня стоит задание: Описать процедуру ввода, вывода списка, рекурсивную процедуру (функцию), что определяет, сколько раз входит данный элемент в однонаправленных список L. Ну так вот я составил процедуры ввода и вывода прошу помогите с рекурсивной процедурой. Спасибо!

Program Spisok;

Код


uses
  crt; 
type
  Tinf=integer; 
  List=^TList;  
  TList=record 
    data:TInf; 
    next:List;   
  end;
 

procedure AddElem(var spis1:List;znach1:TInf);
var
  tmp:List;
begin
  if spis1=nil then 
  begin
    GetMem(spis1,sizeof(TList)); 
    tmp:=spis1;
  end
  else 
  begin
    tmp:=spis1;
    while tmp^.next<>nil do
      tmp:=tmp^.next;
    GetMem(tmp^.next,sizeof(TList));
    tmp:=tmp^.next;   
  end;
  tmp^.next:=nil; 
  tmp^.data:=znach1; 
end;
 

procedure Print(spis1:List);
begin
  if spis1=nil then
  begin
    writeln('Список пуст.');
    exit;
  end;
  while spis1<>nil do
  begin
    Write(spis1^.data, ' ');
    spis1:=spis1^.next
  end;
end;

begin
  Spis:=nil;
  repeat
Writeln('1) Добавить элемент.');
    Writeln('2) Вывод списка.');
 ch:=readkey;
    case ch of
      '1':begin
            write('Введите значение добавляемого элемента: ');
            readln(znach);
            AddElem(Spis,znach);
          end;
      '2':begin
            clrscr;
            Print(Spis);
            readkey;
          end;

mishamusha

Дата 20.4.2014, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 29.10.2013

Репутация: нет
Всего: нет

26 просмотров, ну пожалуйста хоть кто-то отзовитесь плиз

v4v4n

Дата 23.4.2014, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 26.9.2008

Репутация: 2
Всего: 4

Код


function Count(spis1:List; znach1:TInf):integer;
begin
    if spis1=nil then Count:=0
    else if spis1^.data=znach1 then Count:=Count(spis1^.Next,znach1)+1 
        else Count:=Count(spis1^.Next,znach1);
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »