«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{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 Ц переменна€ цикла (счетчик) целого типа;

  Ц количество одинаковых пар соседних элементов.


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

”пражнение 2 (—имвольные переменные и строки) ”пражнение 3 (—имвольные переменные и строки) ”пражнение 4 (—имвольные переменные и строки) «адачи на тему "ќдномерные массивы" ”пражнение 1 (ќдномерные массивы) ”пражнение 3 (ќдномерные массивы) «адачи на тему "ƒвумерные массивы" ”пражнение 1 (ƒвумерные массивы) ”пражнение 2 (ƒвумерные массивы) ”пражнение 1, второй способ решени€ (ƒвумерные массивы) 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


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

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом