Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 19.10.2014, 17:16   #1 (permalink)
MAXI
Member
 
Регистрация: 22.08.2013
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Задача. Pascal

Перенести в конец непустого списка L его первый элемент.
MAXI вне форума   Ответить с цитированием

Старый 19.10.2014, 17:16
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Не стоит торопиться, давайте сначала изучим похожие топики

Pascal, задача
Задача. Pascal

Старый 19.10.2014, 18:40   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,167
Сказал(а) спасибо: 9
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 9811
По умолчанию

type PRec=^TRec;
TRec= record
mint: integer;
mnext: PRec;
end;
var L:PRec;
procedure InitL(ai: integer);
var p:PRec;
begin
New(p);
p^.mint:=ai;
p^.mnext:=L;
L:=p;
end;
procedure AddL;
var p1,p2:PRec;
k:integer;
begin
if Assigned(L) then
begin
p1:=L;
p2:=p1;
While Assigned(p1^.mnext) do
begin
p2:=p1;
p1:=p1^.mnext;
end;
end;
k:=p1^.mint;
p2^.mnext:=nil;
Dispose(p1);
InitL(k);
end;
procedure PrintL;
var q:PRec;
begin
q:=L;
While Assigned(q) do
begin
Write(q^.mint:4);
q:=q^.mnext;
end;
end;
var i: integer;
begin
L:=nil;
for i:=1 to 10 do
InitL(i);
PrintL;
Writeln;
AddL;
PrintL;
Readln;
end.

Последний раз редактировалось Евгений; 19.10.2014 в 18:48
Евгений вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 21:09.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.