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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Windows 7 Toolkit 1.8 (полная активация Windows 7)
В связи с большим количеством обращений в поисковик по запросу "активация Windows 7" выкладываю рабочий активатор для Семерки.
Оптимизатор системы Windows 7. Главная функция его - полная активация системы
. Теперь версия системы не будет работать как RC, до определённого времени, а как полноценная многофункциональная система.

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


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

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


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

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


код кнопки:


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


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

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

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

Дата добавления: 01 Июня 2009, 12:47
Теги:индексы, информатика, программирование, списки, процедуры, Паскаль, ФУНКЦИИ, ссылка, готовые лабы
Поделиться:
Скачать:

Скачать работа со списками Паскаль бесплатно и без регистрации


Внимание! Если ссылка не работает, файл не найден или просто возникают какие-либо вопросы, напишите об этом, пожалуйста, мне на почту: xdypx@yandex.ru. В письме достаточно указать ссылку на эту страницу и описание проблемы или свой вопрос.


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

Исходный код:

Program spiski;
uses crt;
Type
TElement=^element;
 Element=record
 a:integer;
 next:TElement;
End;

var Q,last,head:TElement; m,j,c:integer;

{====sozdanie spiska====}

procedure createhead(var head,last:TElement);
Begin
 new(head);
 head^.next:=nil;
 last:=head;
End;

{====zapolnenie spiska=====}

Procedure add(var last:TElement; k:integer);
var Q:TElement;
Begin
  new(Q);
   Q^.a:=k;
   Q^.next:=nil;
   last^.next:=Q;
   Last:=Q;
 End;

{====vivod na ekran spiska====}

procedure print(head:TElement);
var Q:TElement;  l:integer;
Begin
 Q:=head^.next;
 while Q<>nil do
  Begin
   write(Q^.a,'-->');
   Q:=Q^.next;
  End;
 writeln;
End;

{====vipoln9Iet...====}

procedure poisk(head:TElement);
var Q,O:TElement;  max,min,iax,iin,i,p:integer;
Begin
{====poisk min i max zna4enii iz spiska====}
 Q:=head^.next;
 max:=q^.a;
 min:=q^.a;
 while Q<>nil do
  Begin
   if q^.a<min then min:=q^.a;
   if q^.a>max then max:=q^.a;
   Q:=Q^.next;
  End;
 textcolor(9);
 writeln('max= ',max,' | min= ',min);
{====poisk indexov min i max zna4enii povtoreni9I}
 writeln('indexi: ');
 Q:=head^.next;
 i:=1;
 iax:=0;
 iin:=0;
 while q<>nil do
  Begin
   if q^.a=min then Begin iin:=iin+1; textcolor(4); write(i,' '); End;
   if q^.a=max then Begin iax:=iax+1; textcolor(2); write(i,' '); End;
   Q:=q^.next;
   inc(i);
  End;
 textcolor(12);
 writeln;
 writeln('kol-vo max= ',iax,' | kol-vo min= ',iin);

 textcolor(4);
 write('pervoe i poslednee vhozhdenie minimalnogo: ');
 writeln;
 i:=1;
 Q:=head^.next;
 while q^.a<>min do Begin Q:=q^.next; inc(i); End;
 p:=i;
 write(p,' ');
 while q<>nil do
 Begin
  if q^.a=min then p:=i;
  Q:=q^.next;
  inc(i);
 End;
 writeln(p);

 textcolor(2);
 write('pervoe i poslednee vhozhdenie maximalnogo: ');
 writeln;
 i:=1;
 Q:=head^.next;
 while q^.a<>max do Begin Q:=q^.next; inc(i); End;
 p:=i;
 write(p,' ');
 while q<>nil do
  Begin
   if q^.a=max then p:=i;
   Q:=q^.next;
   inc(i);
  End;
 write(p);

End;

{Function DiskFree(Drive : Byte) : Longint;
Function DiskSize(Drive : Byte) : Longint;}

BEGIN
clrscr;
createhead(head,last);
 j:=1;
 textcolor(6);
 write(j,'. ');
 textcolor(9);
 readln(m);
 inc(j);
 if m<>0 then
  Begin
   while m<>0 do
    Begin
     add(last,m);
     textcolor(6);
     write(j,'. ');
     textcolor(9);
     readln(m);
     inc(j);
    End;
   End
 else Begin textcolor(214);Writeln('spisok pust'); readln; Exit; End;
textcolor(13);
print(head);
poisk(head);
readln;
END.

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

Статистика

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


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

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

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