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

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

Меню сайта

Советуем...

Карта для контры (Counter Strike 1.6)

Текстовые файлы Паскаль

SchoolBoy 5

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

Опрос

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

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

код кнопки:

Файлы

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

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

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

Дата добавления: 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.

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