Правила форума
Прочтите прежде чем задавать вопрос!
Поняв предидущую ошыбочку я переделала темку на:
Задание на Pascal-е:
------------------------------------------------------------------------------------------
"Нужно создать двунаправленный список. Информационую часть
заполнить с помощю random. Создать процедуру которая
будет добавлять 1 елемент после елемента первое поле которого >0.
Информационие поля типу - real+real. Количество елементов в списку - 5"
-------------------------------------------------------------------------------------------
мне тут помогли мемножно но... не до конца (
program SOD_L3;
uses crt;
Type mem=^element;
element=record
inf1:real;
inf2:real;
next:mem;
prev:mem;
end;
var first,list,key,x:mem;
i,c:integer;
begin
clrscr;
randomize;
New(first);
first^.next:=nil;
first^.prev:=nil;
first^.inf1:=random(20);
first^.inf2:=random(20);
x:=first;
for i:=1 to 5 do
begin
New(x^.next);
x:=x^.next;
x^.inf1:=random(20);
x^.inf2:=random(20);
x^.next:=nil;
end;
{--------------------------------------}
writeln(' -Spisok-');
writeln('______________________');
list:=first;
c:=0;
while list^.next <> nil do
begin
c:=c+1;
write('|',c,'|',list^.inf1:6:2);
writeln(' |',c,'|',list^.inf2:6:2,' |');
list:=list^.next;
end;
{-----------------------------------------}
writeln;
for i:=1 to 5 do
begin
while list^.next <> nil do
begin
if list^.inf1>0 then list^.inf2:=-1;
end;
end;
Dispose(list);
readln;
end.
//я очень рада что на форуме есть девочки и
на деюсь и на их помощь :-)
И кстати зайдите в мой фото альбом...
Добавлено через 2 мин.
------------------------------------------------------
Да, может кто-то имеет панятнинькую инфу?
Шлите, буду рада :-)
------------------------------------------------------
