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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


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

Пильщиков - Сборник упражнений по языку Паскаль
Очень хороший задачник по языку Паскаль, задачи подобраны очень интересные. Помогает подготовиться к практике.
Вот некоторые решенные задачи

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

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

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

определение ускорения свободного падения (матем. маятник)
ОПРЕДЕЛЕНИЕ УСКОРЕНИЯ СВОБОДНОГО ПАДЕНИЯ С ПОМОЩЬЮ МАТЕМАТИЧЕСКОГО МАЯТНИКА
1. Цель работы: экспериментальное определение ускорения свободного падения при помощи математического маятника
2. Перечень приборов и принадлежностей: лабораторная установка «Математический маятник», секундомер.
3. Материал для изучения:раздел «Гармонические колебания».


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

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


код кнопки:


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


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

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

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

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