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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Шпора Все формулы по физике
На одном листе А4 размещены почти все основные формулы по физике. Если лень самому делать шпоры, то качайте этот файл.

Mat JV v0.15
 Программа Mat JV предназначена для решения задач линейной алгебры. Основной
особеннстью Mat JV является пошаговое решение задач.

    - Решение системы алгебраических уравнений методом Гаусса.
    - Решение системы алгебраических уравнений по правилу Крамера.
    - Нахождение определителя матрицы.
    - Вычисление математических выражений.

    Решение может быть получено как численно так и в дробном виде.

Шпоры для ЕГЭ 2010 по физике, математике и русскому языку
2 года назад тоже сдавал ЕГЭ. Вот подготовил я к нему шпоры. Удачно списал. Поступил, куда хотел. Теперь в отличном ВУЗе на отличной специальности учусь. Решил поделиться с Вами своими творениями. Шпоры я подредактировал, специально для ЕГЭ 2010. Так что качайте шпоры, списывайте на ЕГЭ и поступайте, куда хотите!!!

Шпора по математике.
В предверии ЕГЭ по математике выкладываю шпору по алгебре. Конечно не весь материал, но помочь поможет.
Графики функций;  таблицы производных и интегралов; таблица синусов, косинусов, тангенсов и котангенсов; тригонометрические уравнения; и другое......



Опрос
Зацените дизайн сайта
Всего ответов: 371

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


код кнопки:


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


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

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

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

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