Помощь студенту ⁄ Файлы ⁄ лабы на Паскале ⁄ работа со списками Паскаль
03 Декабря 2025, Среда 18:59 >>> Качественная веб-разработка <<<	18:59

Главная Файлы Статьи Форум Связь

Меню сайта

Советуем...

Механика, колебания и волны, молекулярная физика - Савельев И.В.

CMS A4Lи (создания аватарок)

Шпоры по Теории Информации (ТИ)

Шпоры, бомбы по моделированию

Опрос

Сотрудничество

Поставьте себе на сайт и сообщите мне

код кнопки:

Файлы

Главная » Файлы » Учебные материалы » лабы на Паскале

работа со списками Паскаль

Название: работа со списками Паскаль
Категория: лабы на Паскале
Формат файла: *.pas
Размер: 1.8 Kb
Просмотров: 6913
Загрузок: 2081

Дата добавления: 01 Июня 2009, 12:35
Теги:информатика, файл, Программирование, списки, процедуры, паскаль, функции, ссылка, готовые лабы, индексы

Поделиться:

Скачать:

Скачать работа со списками Паскаль бесплатно и без регистрации

Внимание! Если ссылка не работает, файл не найден или просто возникают какие-либо вопросы, напишите об этом, пожалуйста, мне на почту: xdypx@yandex.ru. В письме достаточно указать ссылку на эту страницу и описание проблемы или свой вопрос.

Описание:
Задание:
Имеется файл. Содержимое файла поместить в список в обратном порядке.

Пример:
содержимое файла: 123456789
полученный список: 987654321

Исходный код:
Program spiski;
uses crt;
Type
TElement=^element;
Element=record
a:char;
next:TElement;
End;

var Q,last,head:TElement; m,j,c:integer;

Procedure add(var last:TElement; k:char);
var Q:TElement;
Begin
new(Q);
   Q^.a:=k;
   Q^.next:=nil;
   last^.next:=Q;
   Last:=Q;
End;

{proverka nali4iya faila}

procedure proverka(filename:string);
var f:text;
Begin
{$I-}
Assign(f,filename);
reset(f);
{$I+}
if ioresult<>0 then Begin textcolor(204); writeln('ERROR FILE!!!'); readln; halt; End;
End;

{vivod faila na ekran}

procedure printfile(filename:string);
var f:text;
    a:string;
Begin
Assign(f,filename);
reset(f);
while not eof(f) do
Begin
   readln(f,a);
   textcolor(12);
   writeln(a);
End;
close(f);
End;

{====sozdanie spiska====}

procedure createhead(var head,last:TElement);
Begin
new(head);
head^.next:=nil;
last:=head;
End;

{====vivod na ekran spiska====}

procedure print(head:TElement);
var Q:TElement; l:integer;
Begin
new(q);
Q:=head^.next;
while Q<>nil do
Begin
   write(Q^.a,'-->');
   Q:=Q^.next;
End;
writeln;
End;

{====vipoln9Iet...====}

procedure poisk(filename:string;head:TElement);
var Q,O,p:TElement; F:file of char; b:char; i:integer;
Begin
new(Q);
Assign(f,filename);
reset(f);
Q:=head^.next;
for i:=filesize(f)-1 downto 0 do
begin
   seek(f,i);
   read(f,b);
   add(last,b);
end;
   writeln;
close(f);
End;

BEGIN
clrscr;
writeln('1 ------HA4AJlO---------');
proverka('c:\myfile.txt');
writeln('2 -----------Fail imeetsya--------');
printfile('c:\myfile.txt');
writeln('3 -------------sozdanie spiska------');
createhead(head,last);
writeln('4 ------------vipolnenie-------');
poisk('c:\myfile.txt',head);
writeln('5 -----------vivod spiska-------');
print(head);

writeln;

readln;
END.

Комментарии: