Помощь студентуФайлылабы на Паскалеработа со списками Паскаль
22 Октября 2017, Воскресенье
18:20
>>> Качественная веб-разработка <<<
18:20
Меню сайта
>Г Л А В Н А Я

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Учебник по Аналитической геометрии Ю.М.Смирнов
Небольшой учебник по Аналитической геометрии. Все описывается вкратце, по понятно. Содержит всего 4 параграфа: 1. Векторы и линейные действия над ними; 2. Линейная зависимость векторов; 3. Базис, репер, координаты векторов и точек; 4. Линейная зависимость в координатах.

Учебник по NVU
Учебник по NVU 1.0. А также неплохой учебник по HTML.

Открыть содержание

Шпора по дискретной математики
Решения задачи по дескретной математике скачать онлайн графы, множества, функции дискретка.

Работа с двоичными файлами и массивами с++
Создать двоичный файл и записать в него n целых чисел. Из файла сформировать массив, записав в него только кратные M значения, расположенные до минимального элемента в файле.


Опрос
Вы учитесь в СУЗе/ВУЗе
Всего ответов: 244

Сотрудничество
Поставьте себе на сайт и сообщите мне


код кнопки:


Связь с админом
395799449
Написать админу
Оставить отзыв


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

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

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

Дата добавления: 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.
Комментарии:
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Разделы новостей
Образование [4]
лабы на Паскале [11]
Шпоры [10]
Учебники [19]
Лабы по физике [3]
Лабы по С++ [7]

Статистика

Яндекс.Метрика


Онлайн всего: 1
Гостей: 1
Пользователей: 0

Все пользователи

Яндекс цитирования Rambler's Top100 Каталог сайтов OpenLinks.RU Каталог сайтов iLinks.RU Каталог сайтов :: Развлекательный портал iTotal.RU Каталог сайтов Bi0 Каталог сайтов Всего.RU