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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
WinDjView 0.4.3
WinDjView 0.4.3 - программа необходима для просмотра файлов формата djvu. Очень удобная, нет ничего лишнего. Я сам ей пользуюсь. Не требуется установка.

Учебник по Delphi
Хороший учебник по Delphi. Описывается все понятно, подойдет для новичков и профессионалов, если что-то подзабыли.

Электричество - Савельев И.В.
Очень хороший учебник по физике, все подробно и понятно описывается, все темы по Электричеству. Советую качать тем, кто начал учить только за день до экзамена.

кряк и русификатор к CrazyTalk 4.5, CrazyTalk 5, CrazyTalk 6.1
кряк и русификатор к  CrazyTalk 4.5, CrazyTalk 5, CrazyTalk 6.1


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

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


код кнопки:



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

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

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

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

Статистика

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


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

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

Яндекс цитирования Rambler's Top100

Сайт работает с 2008 года