Помощничек
Главная | Обратная связь


Археология
Архитектура
Астрономия
Аудит
Биология
Ботаника
Бухгалтерский учёт
Войное дело
Генетика
География
Геология
Дизайн
Искусство
История
Кино
Кулинария
Культура
Литература
Математика
Медицина
Металлургия
Мифология
Музыка
Психология
Религия
Спорт
Строительство
Техника
Транспорт
Туризм
Усадьба
Физика
Фотография
Химия
Экология
Электричество
Электроника
Энергетика

Алгоритм ,, Лабораторная работа 5_3 '' .



Внутренниепеременные:

i , j , k , l , m , na ,kol : цел

VSP[1:20] , A[1:20] , B[1:20]: цел

 

Алгоритм ,,Процедура OBRABOTKA1''

Внутр переменные: i,j,kol: цел

Вход: na

Вывод: VSP[1: l ] , l

Начало

l:=1;

ЦИКЛ - ДЛЯ i от 1 до na

kol:=0;

ЦИКЛ - ДЛЯ j от 1 до na

Если (i<>j) и (A[i]=A[j]) то

kol:=kol+1;

VSP[l]:=kol; l:=l+1;

Кесли

Кцикл

Кцикл

Конец

Алгоритм ,,Процедура OBRABOTKA2''

Внутр. переменные : i,k,j,m: цел ; flag : логич

Вход: na

Вывод: VSP[1: l ] , l

Начало

ЦИКЛ - ДЛЯ i от 1 до na

j:=1;

{Выбор повторяющегося элемента в массиве A}

ЦИКЛ - ПОКА (i=j) или (A[i]<>A[j]) и (j<=na) j:=j+1; Кцикл

Если (i<>j) и (j<=na) то

Flag:=true;

Если k=0 then {Если в массиве B нет ещё элементов}

k:=k+1;

m:=m+1;

B[m]:=A[i];

Кесли

Иначе

m:=1;

{Проверка: есть ли в массиве B уже такой элемент A[i] }

ЦИКЛ - ПОКА (m<=k) и (B[m]<>A[i]) m:=m+1; Кцикл

Если (m<=k) то Flag:=false; Кесли

Если flag то { Если нет A[i] в B }

k:=k+1;

B[k]:=A[i];

Кесли

Кесли

Кцикл

Конец

Алгоритм ,,Основная часть программы ''

Начало

Вывод ('Ковалёв Александр С-11 ');

Вывод ('Вариант 16 Лабораторная работа 5');

Вывод ('Дан целочисленный массив A[1:n].Написать программу, включающую две процедуры с параметрами. В первой процедуре необходимо подсчитать количество повторений каждого элемента массива A. Вторая процедура: Сформировать новый массив, содержащий повторяющиеся элементы массива A. Элементы в новом массиве не повторяются.');

Ввод ('Введите число элементов в массиве = ' );

Ввод (na);

Вывод ('Введите элементы массива : ');

ЦИКЛ - ДЛЯ i от 1 до na

Вывод ('A[',i,'] = ' );

Ввод (A[i]);

Кцикл

OBRABOTKA1(na,A);

Вывод ('Под исходным массивом A выводятся кол-ва повторений каждого эл-та');

ЦИКЛ - ДЛЯ i от 1 до na

Вывод (A[i]);

Кцикл

ЦИКЛ - ДЛЯ l от 1 до na

Вывод (VSP[l]);

Кцикл

OBRABOTKA2 (na,A);

Вывод ('Полученные элементы массива : ');

Если k=0 то Вывод ('отсутствуют , так как повторяющихся элементов в массиве A нет')

Иначе

ЦИКЛ - ДЛЯ m от 1 до k

Вывод (B[m]

Кцикл

Кесли

Конец

 

Для лабораторной работы 5_1

Вычислить значение a по формуле a = n! / ( k! *(n-k)! )

Значение n Значение k Процесс вычисления Результат
Не происходит, так как k>n Нету, так как данные введены не корректно

 

 

Для лабораторной работы 5_2

Кол-во строк и столбцов массива B Элементы Массива В Исходная матрица Минимальные элементы в каждой строке массива Максимальный Из минимальных элементов
3 , 2 , 1 , 4 , 3 , 2 , 5, 6 , - 2 , -5 , -1 , 6 , 7 ,8 ,6 , 10 3 2 1 4 3 2 5 6 -2 -5 -1 6 7 8 6 10 1 , 2 , -5 , 6

 

 

Для лабораторной работы 5_3

Дан целочисленный массив A[1:n].Написать программу, включающую две процедуры с параметрами. В первой процедуре необходимо подсчитать количество повторений каждого элемента массива A. Вторая процедура решает следующую задачу: Сформировать новый массив, содержащий повторяющиеся элементы массива A. Элементы в новом массиве не повторяются.

 

Кол-во эл-тов массива A Эл-ты массива A Эл-ты матрицы A И кол-во повторений эл-тов Полученная эл-ты Массива B
1,2,1,2,1 1 2 1 2 1 2 1 2 1 2 1 2
1 ,2,3,4 1 2 3 4 0 0 0 0 Нет элементов
1,2,1,2,3 1 2 1 2 3 1 1 1 1 0 1 2

 

 

 

 




Поиск по сайту:

©2015-2020 studopedya.ru Все права принадлежат авторам размещенных материалов.