Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364139
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62791)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21319)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21692)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8692)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3462)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20644)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Курсовая работа: Разработка в среде Turbo pascal программы, нахождения минимального элемента двумерного массива

Название: Разработка в среде Turbo pascal программы, нахождения минимального элемента двумерного массива
Раздел: Рефераты по информатике
Тип: курсовая работа Добавлен 16:40:19 16 мая 2011 Похожие работы
Просмотров: 296 Комментариев: 12 Оценило: 2 человек Средний балл: 5 Оценка: неизвестно     Скачать

АЛЬМЕТЬЕВСКИЙ ГОСУДАРСТВЕННЫЙ

НЕФТЯНОЙ ИНСТИТУТ

КАФЕДРА ИНФОРМАТИКИ

СТРЕЛКИ В БЛОКСХЕМЕ РАССТАВЬ САМ РУЧКОЙ, ПОСМОТРИ В ПРЕДЫДУЩЕЙ РАБОТЕ.

КУРСОВАЯ РАБОТА

ПО ДИСЦИПЛИНЕ «ИНФОРМАТИКА»

РАЗДЕЛ:АЛГОРИТМИЧЕСКИЙ ЯЗЫК PASCAL

НА ТЕМУ:

«РАЗРАБОТКА В СРЕДЕ TURBO PASCAL ПРОГРАММЫ, нахождения минимального элемента двумерного массива»

Выполнил студент: Сафаров Р. Р.

Группы:69-13 Вт

Проверил: Садриева Л.М.

АЛЬМЕТЬЕВСК 2010 год

Оглавление

1. Постановка задачи. 3

2. Описание алгоритма решения задачи графическим способом. 4

3. Разработка программы на языке программирования. 5

3.1. Описание блоков укрупненной схемы алгоритмов на языке программирования. 5

3.2. Текст программы. 9

4. Литература. 14

1.Постановка задачи.

Задан двухмерный массив целых чисел. Найти минимальны элемент среди минимальных элементов столбцов двухмерного массива целых чисел. Столбец, в котором находятся найдены минимальный элемент, упорядочить по возрастанию. Для отладки программы элементы двухмерного массива сформировать с помощью генератора случайных чисел.

Исходным данными являются элементы двухмерного массива, которые должны быть созданы по условию задачи с помощью генератора случайных чисел Random. Функция Random без параметра формирует вещественные числа в диапазоне [0;1). Так как по условию задачи элементами массива должны быть целые числа, то воспользуемся формулой Random(b-a+1)+a, которая будет выдавать случайные целые числа из диапазона [a,b].

В результате решения задачи будет найден минимальный элемент среди минимальных элементов столбцов двухмерного массива. Столбец, содержащий найденный минимальный элемент должен быть упорядочен по возрастанию. Для сортировки(упорядочивания) столбца массива по возрастанию используем алгоритм сортировки обменом.

В программе решаются 4 подзадачи:

1. Заполнение двумерного массива

2. Поиск минимального элемента в каждом столбце

3. Поиск минимального элемента среди найденных минимальных элементов столбцов

4. Сортировка столбца с минимальным элементом

5. Вывод преобразованного массива

2. Описание алгоритма решения задачи графическим способом.


3.Разработка программы на языке программирования.

3.1. Описание блоков укрупненной схемы алгоритмов на языке программирования.

Как оговаривалось в постановке задачи, ввод элементов двумерного массива будем осуществлять с помощью генератора случайных чисел. Возьмем, к примеру, интервал от -5 до 15. Тогда, используя формулу Random(b-a+1)+a, получим Random(21)-5. Таким образом, каждый очередной элемент массива будет представлять собой целое число из диапазона [-5,15] и выводится на экран. Цикл работает до достижения переменной i значения n, то есть до конца массива.

Представим алгоритм поиска минимального элемента в каждом столбце двумерного массива. Для хранения значения минимума столбца возьмем переменную minst, для хранения его номера в массиве –imin.

Так как поиск элемента в массиве должен осуществляться по столбцам, то он должен быть организован как внешний цикл. Зафиксировав номер столбца min:=a[1,j], начинаем перебирать элементы построчно: i:=2,n,1. когда все строки будут рассмотрены, в результате сравнения их друг с другом, будет найден самый наименьший элемент. Этот элемент выведем на экран.

После того, как будет найден минимальный элемент в столбце, с помощью условия mist<min находим минимальный элемент среди минимальных элементов столбцов. Таким образом, в каждом прохождении цикла запоминается значение min:=minst и номер элемента imin:=j, который будет меньше всех предыдущих. Как только будут рассмотрены все элементы массива, значение минимального элемента и его номера будут выведены на экран.

Для сортировки столбца массива используем алгоритм сортировки обменом. Метод основан на том, что весь массив просматривается с конца и в том случае, если из двух соседних элементов «нижний» элемент меньше, чем «верхний», элементы меняются местами. Таким образом, самый меньший элемент оказывается ближе к началу массива. Отсюда и одно из названий метода «пузырьковая» сортировка. Особенностью данного метода является сравнение, а затем, если нужно, и перестановка соседних элементов.

После сортировки выводим полученный массив на экран. Вывод элементов двумерного массива осуществляется при помощи цикла с параметром.

3.2. Текст программы .

program variant_73;

uses crt;

const n=20;

var a,b: array [1..n] of integer;

m,j,i,k,r:integer;

begin

clrscr;

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

randomize;

for i:=1 to n do begin

a[i]:=random(100)+1;

write(a[i]:4); end;

writeln;

writeln('введите к');

readln(k);

{формирование нового массива}

m:=0;

for i:=1 to n do

if a[i] mod 10 =k then begin m:=m+1; b[m]:=a[i]; end;

writeln('новый массив');

for i:=1 to m do begin

write(b[i]:4);

end;

{упорядоченный массив}

for i:=1 to m do

for j:=1 to m do

if b[j]<b[i] then begin r:=b[i];

b[i]:=b[j];

b[j]:=r;

end;

writeln;

writeln('упорядоченный по убыванию массив');

for i:=1 to m do

write(b[i]:4);

readln;

end.

4.Литература.

1.Фаронов В.В. Pascal.Учебный курс.-м.:Издательство «Нолидж»,1998г.

2.Дарахвелидзе П.,Макаров Е.Программирование в Pascal 4.-спб.:БХВ-СПб.,1999.

3. Шпак Ю.А. Turbo Pascal 7.0 на примерах Издательство "Юниор",М- 2003, 498 с.

4. Потопахин В.В. Turbo Pascal: решение сложных задач. Издательство "БХВ-Петербург", 2006, 208 с.

.

Приложение

1

I:=I+1


M:=0

I:=1

M:=M+1

B[M]:=A[I]

I:=I+1


I:=1


I:=I+1

I:=1

J:=1


B[I]:=B[J]

B[J]:=R

J:=J+1

I:=I+1

I:=I+1


I:=I+1

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Olya02:59:06 27 августа 2019
.
.02:59:05 27 августа 2019
.
.02:59:05 27 августа 2019
.
.02:59:04 27 августа 2019
.
.02:59:03 27 августа 2019

Смотреть все комментарии (12)
Работы, похожие на Курсовая работа: Разработка в среде Turbo pascal программы, нахождения минимального элемента двумерного массива

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(260021)
Комментарии (3518)
Copyright © 2005-2020 BestReferat.ru support@bestreferat.ru реклама на сайте

Рейтинг@Mail.ru