Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2007, 04:19   #1
sunny19
Новичок
Джуниор
 
Регистрация: 04.06.2007
Сообщений: 1
По умолчанию [pascal]создать линейный список из элементов файла

всем привет!
задача:
написать программу на паскале , которая: существует файл, который состоит из целых чисел. Написать подпрограмму для создания списка из элементов файла
если можно, то с комментами
Очень-очень надеюсь на вашу помощь!
p.s.:вот я что-то мудрила , но оно не работает....догадываюсь, что потому как бред...
Код:
program five;
type
sp=^elem;
elem=record
info:real;
next:sp;
end;
procedure plus(n:real;last,p:sp);
begin
new(p);
p^.info:=n;
p^.next:=nil;
last^.next:=p;
last:=p;
write(p^.info,' ');
end;
 var
beg,last,p:sp;
f:file of real;
n:real;
begin
assign(f,'D:/5.txt');
reset(f);
read(f,n);
beg:=nil;
last:=nil;
new(p);
p^.info:=n;
p^.next:=nil;
beg:=p;
last:=p;
while not(eof(f)) do
begin
read(f,n);
plus(n,last,p);
end;
end.

Последний раз редактировалось sunny19; 04.06.2007 в 04:21.
sunny19 вне форума Ответить с цитированием
Старый 25.06.2007, 20:33   #2
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 24.06.2007
Сообщений: 351
Подмигивание Ох, не люблю я динамику

Код:
{НЕ связанная динамика}
program variant1;
uses crt;
const max_n=100;
type
din=array [1..max_n] of ^integer;
var
a:din;
t,i:integer;
begin
clrscr;
randomize;
writeln('VVEDITE N');
readln(n);
write('a{');
assign(f,'elem.txt');
reset(f);
while not eof(f ) do begin
i:=i+1;
new(a[i]);
readln(f,t);
a[i]^:=t;
write(a[i]^,' ');
end;
writeln('}');
close(f);
readkey;
end.

{Связанная динамика}
program variant2;
uses crt;
const max_N=100;
type
ptr=^din;
din=record
inf:integer;
link:ptr;
end;
var
p:ptr;
zap:array [1..max_n] of ptr;
t,i:integer;
begin
clrscr;
assign(f,'elem.txt');
reset(f);
while not eof(f) do begin
i:=i+1;
new(zap[i]);
zap[i]^.inf:=t;
write(zap[i]^.inf,' ');
end;
close(f);
readkey;
end.
Я не маюсь бездельем, я от него тащусь!
Tayfun вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кольцевой линейный список Seafulf Паскаль, Turbo Pascal, PascalABC.NET 7 16.11.2013 20:02
Линейный двунаправленный список Seg_62 Паскаль, Turbo Pascal, PascalABC.NET 4 28.08.2008 21:02
Составить линейный список, Среда Delphi Kreaman Помощь студентам 1 11.06.2008 19:54
Линейный список Black_Ak24 Паскаль, Turbo Pascal, PascalABC.NET 2 04.01.2008 15:00