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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Работа с Турбо Паскалем #2/2
Хороший учебник по языку Паскаль. Очень много полезной информации, все описывается без лишних слов.

Первая часть.

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

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

Программа для работы с матрицами
Эта программа может решать системы линейных уравнений (СЛУ) методами Гауса и Крамера; складывать, вычитать, перемножать матрицы; умножать на число, возводить в степень (находить обратную), транспонировать; находить определитель и ранг матрицы; работает с текстовыми файлами. СПАСИБО АВТОРУ ЭТОЙ ПРОГРАММЫ!


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

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


код кнопки:


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


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

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

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

Дата добавления: 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 Каталог сайтов OpenLinks.RU Каталог сайтов iLinks.RU Каталог сайтов :: Развлекательный портал iTotal.RU Каталог сайтов Bi0 Каталог сайтов Всего.RU