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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Лекции и примеры программ на Паскале
В архиве документы *.doc . они содержат краткое вступление о программировании и очень много примеров готовых программ (лаб) на Паскале. В основном приводятся примеры сложных олимпиадных задач, но и в лабах могут тоже такие встречаться.

Crack для AnyLogic
Crack для AnyLogic. Нужно просто заменить файл XJTk.dll.

AnyLogic - программное обеспечение для имитационного моделирования сложных систем и процессов, разработанное российской компанией «Экс Джей Текнолоджис» ( XJ Technologies). Программа обладает графической средой пользователя и использует язык Java для разработки моделей.

AnyLogic представляет собой инструмент имитационного моделирования, объединивший методы системной динамики, "процессного" дискретно-событийного и агентного моделирования в одном языке и одной среде разработки моделей.


Ссылка открывается в новом окне установленного размера
Ссылка открывается в новом окне установленного размера. Подойдет для входа на сайт или удобной для пользователя регистрации.

Матричные вычисления
Программа вычисляет определитель матрицы, ранг матрицы, находит обратную матрицу, решает систему линейных уравнений. Зачем это все вычислять самим, если есть специальные программы :)....


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

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


код кнопки:


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


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

Последовательности Паскаль

Название: Последовательности Паскаль
Категория: лабы на Паскале
Формат файла: *.rar
Размер: 1.2Kb
Просмотров: 3776
Загрузок: 1056

Дата добавления: 18 Августа 2009, 09:26
Поделиться:
Скачать:

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


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


Описание:
Найти число последовательности, у которого количество одинаковых цифр максимально.
Исходный код:

Code
uses crt;
  procedure Maxel(a:longint; var kolod,maxch:integer);
    var vp,b,i0,i1,i2,i3,i4,i5,i6,i7,i8,i9:integer;
        ost:byte;
    begin
       b:=a;
       vp:=0;
       i0:=0;  i5:=0;
       i1:=0;  i6:=0;
       i2:=0;  i7:=0;
       i3:=0;  i8:=0;
       i4:=0;  i9:=0;
       while a<>0 do
        begin
          ost:=a mod 10;
          a:=a div 10;
          case ost of
            0: begin inc(i0); if (i0>vp) then vp:=i0; end;
            1: begin inc(i1); if (i1>vp) then vp:=i1; end;
            2: begin inc(i2); if (i2>vp) then vp:=i2; end;
            3: begin inc(i3); if (i3>vp) then vp:=i3; end;
            4: begin inc(i4); if (i4>vp) then vp:=i4; end;
            5: begin inc(i5); if (i5>vp) then vp:=i5; end;
            6: begin inc(i6); if (i6>vp) then vp:=i6; end;
            7: begin inc(i7); if (i7>vp) then vp:=i7; end;
            8: begin inc(i8); if (i8>vp) then vp:=i8; end;
            9: begin inc(i9); if (i9>vp) then vp:=i9; end;
          end;
           if vp>kolod then
            begin
              kolod:=vp;
              maxch:=b;
            end;
        end;
    end;
    var a:longint;
      maxch,kolod:integer;
   BEGIN
    ClrScr;
    kolod:=0;
    maxch:=0;
    writeln('Vvedite posledovatelnost:');
    readln(A);
    while (A<>99999) do
      begin
        Maxel(A,kolod,maxch);
        readln(A);
      end;
    if maxch=0 then writeln('posled. pusta')
               else writeln('Chislo ravno ',maxch);
    readkey;
   END.
Комментарии:
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Разделы новостей
Образование [4]
лабы на Паскале [11]
Шпоры [10]
Учебники [19]
Лабы по физике [3]
Лабы по С++ [7]

Статистика

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


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

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

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