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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
работа со списками Паскаль
Задание:
Создать и заполнить список целыми числами. Найти минимальный и максимальный элементы списка; подсчитать количество мин. и макс. элементов в списке; вывести на экран индексы мин. и макс. элементов;вывести на экран индексы первого и последнего вхождений мин. и макс.

Карта для контры (Counter Strike 1.6)
Карту делал сам. Ваши комментарии помогут исправить ошибки на карте. Ну карта что-то типа меншен.

Архив со шпорами по мат. анализу, линейной алгебре и аналитической геометрии
МЕГА-пак шпор по Высшей математики. В этом архиве Вы точно найдете то, что Вам необходимо.

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

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

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


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

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


код кнопки:


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


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

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

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

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