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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Примеры решений задач по теории вероятностей
В этом документе собраны Задачи и их решения по теории вероятностей по основным темам.

Я. Б. Зельдович и И. М. Яглом - Высшая математика для начинающих
Я. Б. Зельдович и И. М. Яглом - Высшая математика для начинающих.

Учебник формата djvu. Для просмотра необходим, к примеру, WinDjView

Очень хороший учебник, понятно все описано, с примерами. Советую.

Методичка И. В. Семушин ЧИСЛЕННЫЕ МЕТОДЫ АЛГЕБРЫ
Методичка И. В. Семушин ЧИСЛЕННЫЕ МЕТОДЫ АЛГЕБРЫ

Первая часть текста (разд. 2–7) содержит необходимые теоретические сведения и задания на 6 лабораторных проектов по основным те- мам линейной алгебры. Во второй части (разд. 8–9) приведены задачи, контрольные задания и рабочая программа курса. Для студентов, изучающих численные методы по программе под- готовки в области математики, экономики и управления, естественных или технических наук по специальностям: 010101 – Z Математика
, 010501 – Прикладная математика и информатика P, 010503 – b Математическое обеспечение и администрирование информационных систем , 210400 – Телекоммуникации0, 230200 – B Информационные системы, 230301 – Моделирование и исследование операций в организационно- технических системах&, 080801 – 8Прикладная информатика (по областям)
, 090105 – Комплексное обеспечение информационной безопасности автоматизированных систем: и другим

Плавное увел./уменьш. картинки и перемещение UCOZ
Щелкая на картинке, она увеличится, можно перемещать по экрану. Если нажать еще раз, картинка снова уменьшиться. Скрипт для UCOZ


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

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


код кнопки:


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


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

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

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

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