Новости

Карта сайта

Вяземский филиал МГИУ

Научно-исследовательская деятельность

Технологии программирования

Теория по алгоритмам

Языки программирования

Язык моделирования UML

Case-средства

Теория DELPHI

Базы данных в Delphi

Программы на Delphi

Теория PASCAL

ЕГЭ по информатике

Программы на Pascal

Технические средства

Курсовые работы

Дипломные проекты

На заметку

Интерпретатор Пролог

Элементы информационных технологий

Информационные ресурсы Интернет

Фотоальбом

Гостевая книга

Консультации о поступлении

Контакты

Искусственный интеллект

Вычислительные сети

Информационные технологии

Учебные пособия

Конкурсы и олимпиады

Центр тестирования иностранных граждан по русскому языку

Вебинары

ЛОГИКА

Базы данных

Использование информационных и интернет-технологий для развития бизнеса

{LTS}

Упражнение 2 (Одномерные массивы)

Дан массив чисел. Найти, сколько в нем пар одинаковых соседних элементов. PROGRAM PRG4_2; //описываем константу (для определения размерности массива в разделе описания переменных) CONST M = 100; //описываем переменные VAR MAS : ARRAY[1..M] OF INTEGER; //одномерный массив целого типа I, K, N : INTEGER; BEGIN WRITE('ВВЕДИТЕ РАЗМЕР МАССИВА N = '); READLN(N); //вводим размерность массива с клавиатуры К:=0; //присваиваем начальное значение переменной K //организовываем цикл для ввода элементов массива (количество элементов определяется значением переменной N FOR I := 1 ТО N DO BEGIN WRITE('BBEДИTE ЭЛЕМЕНТ МАССИВА'); READLN(MAS[I]); END; //организовываем цикл для определения количества одинаковых пар соседних элементов массива – счетчик цикла принимает значение от 1 до N-1 FOR I := 1 TO N-1 DO IF MAS[I] = MAS[I+1] THEN //определяем одинаковые пары – текущий элемент и следующий за ним соседний элемент, если условие принимает значение True, то значение переменной K увеличиваем на 1 К := K+1; WRITELN('OДИHAKOBЫX ПАР СОСЕДНИХ ЭЛЕМЕНТОВ ', К) //выводим значение переменной k – количество одинаковых пар соседних элементов одномерного массива END. Для решения задачи: - формируем тело программы и описываем переменные (переменные описываются в разделе описания переменных, который начинается с ключевого слова var) – указываем имена переменных и их тип; - вводим длину массива N (используем процедуру READLN), значение элементов массива (используем цикл с параметром, цикл выполняется N раз, т.е. счетчик i принимает значения от 1 до N) и устанавливаем начальное значение К (для подсчета одинаковых пар соседних элементов одномерного массива) – начальное значение равно 0, т.е. до выполнения подсчета считается, что одинаковых пар нет; - последовательно просматриваем элементы (это выполняется в теле цикла с параметром), и если очередной элемент одномерного массива MAS[ I ] равен следующему элементу массива MAS[I +1], то увеличиваем значение переменной К на единицу (К := K+1); - выводим результат (используем процедуру WRITELN) . Переменные: MAS – одномерный массив чисел (элементы массива – это числа целого типа данных, размерность массива равна M, где М – это константа, значение которой равно 100); N – размер одномерного массива, который вводит пользователь с клавиатуры; I – переменная цикла (счетчик) целого типа; К – количество одинаковых пар соседних элементов.

Упражнение 2 (Символьные переменные и строки) Упражнение 3 (Символьные переменные и строки) Упражнение 4 (Символьные переменные и строки) Задачи на тему "Одномерные массивы" Упражнение 1 (Одномерные массивы) Упражнение 3 (Одномерные массивы) Задачи на тему "Двумерные массивы" Упражнение 1 (Двумерные массивы) Упражнение 2 (Двумерные массивы) Упражнение 1, второй способ решения (Двумерные массивы) 

Приглашаем принять участие в круглом столе!

подробнее   >>>

Институт Менеджмента, Экономики и Инноваций начинает набор на курсы повышения квалификации!

подробнее   >>>

Уважемые студенты АНО ВПО ИМЭиИ!

подробнее   >>>

Начинается набор на курсы повышения квалификации!

подробнее   >>>

Приглашаем принять участие в конференциях!

подробнее   >>>

все новости...