Алгоритм и комплекс программных средств для инженерного расчета

Министерство образования и науки РФ

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

Тульский государственный университет

Горно-строительный факультет

Курсовая работа

по дисциплине: Информатика

на тему: Алгоритм и комплекс программных средств для инженерного расчета

Тула, 2012

Задание на курсовую работу по дисциплине «Информатика»

Создать приложения в интегрированной среде Borland Delphi для решения следующих задач:

. Из данного натурального числа удалить все цифры А. А задается.

. Дан массив натуральных чисел из n элементов, заполненный случайным образом числами из промежутка [-100;100].

а)Удалить из него все максимальные элементы.

б)Вставить максимальное значение элементов массива перед всеми элементами, в записи которых есть цифра 1.

в).Переставить последние три и средние три элемента местами, сохраняя порядок их следования(количество элементов -нечетное).

Введение

В курсовой работе решаются две задачи -задача составления массива и удаления, нахождения и перестановки в нем элементов, и задача в которой происходит преобразование числа. В ходе выполнения курсовой работы создано приложение в интегрированной среде Borland Delphi, которое решает обе эти задачи. Решения задач основаны на использовании процедур. Для организации многократного исполнения набора инструкций <#"606960.files/image001.gif"> 

Рис. 1. Блок-схема алгоритма выполнения задачи по преобразованию числа А.

Особенности разработки программы и процедур и их описание.

Создадим новое приложение (рис.2)

Рис. 2. Создание нового приложения

Сохраним созданное приложение. На главную форму поместим компоненты :Текстовые окна: Edit1, Edit2-в которые вводятся данные задачи, и Edit3 в который будет выводиться преобразованное число. Кнопка:Button1 приводящая в действие преобразование, и Label1,Label2,Label3 для названия текстовых окон (для удобства все переименуем). (рис.3)

Рис. 3. Отображение элементов задачи.

После чего зададим действие кнопке Buton1-"Убрать цифру" и напишем это действие.(рис.4)

Рис. 4. Код действия для кнопки Button1.

Результат выполнения процедуры показан на рис. 5.

Рис. 5. Числа задавались в ручную.

Задача 2.

Формулировка задачи

. Дан массив натуральных чисел из n элементов, заполненный случайным образом числами из промежутка [-100;100].

а)Удалить из него все максимальные элементы.

б)Вставить максимальное значение элементов массива перед всеми элементами, в записи которых есть цифра 1.

в).Переставить последние три и средние три элемента местами, сохраняя порядок их следования(количество элементов -нечетное).

массив число элемент удаление

Методика решения задачи

В курсовой работе разработана программа, которая реализует поставленную задачу. Решение задачи основано наиспользовании процедур:

·        Button1Click- процедура выполняющая генерацию одномерного массива чисел с числом элементов n;

·        Button2Click-процедура выполняющая удаление максимального элемента массива и вывод нового массива;

·        Button3Click - процедура выполняющая вставку максимального элемента массива перед всеми элементами массива в которых есть цифра 1;

·        Button4Click - процедура выполняющая перестановку местами последних трёх элементов массива и средних трех элементов;

Структурная схема алгоритма и его описание

Алгоритмическое решение задачи представлен в виде алгоритма ввода числа n; алгоритма вывода одномерного массива с количеством элементов n; алгоритма нахождения максимального элемента массива; алгоритма удаления максимального элемента из массива; алгоритма вывода преобразованного массива; алгоритма нахождения в массиве чисел в которых есть цифра 1;алгоритма вставки максимального элемента перед числами с цифрой 1; алгоритма вывода преобразованного массива; алгоритма нахождения трёх последних элементов массива; алгоритма нахождения трёх средних элементов массива; алгоритма замены местами трех последних элементов и трёх средних; алгоритма вывода преобразованного массива.

Блок-схема алгоритма решения задачи показана на рис. 6. Она состоит из 4-х схем.

Рис.6 Блок схема второй задачи.

1. Первая схема содержит в себе 9 блоков: 1 блок запускает алгоритм;2 блок с помощью функции Randomize устанавливает генератор случайных чисел;3 блок содержит функцию StrToInt которая конвертирует строку с элементами; В блоке 4 с помощью функции Setlength число (n) элементов массива; в блоке 5 f начало массива приравнивается к нулю; Блоки 6,7,8 содержат формулу построения массива с функциями Round позволяющей округлять числа с плавающим знаком ,и Random генерирующей случайные числа на промежутке [-100;100] ,после чего командой InttoStr выводится массив размерностью n. Блок 9 завершает алгоритм.

. Вторая схема содержит в себе 13 блоков: 1 блок запускает алгоритм; блок 2 содержит в себе функцию Max выводящую максимальное значение; блоки 3,4,5,6 ,7 содержат в себе алгоритм нахождения максимального элемента массива i; блоки 8,9,10,11,12, содержат алгоритм удаления максимального числа из массива i,после чего с помощью команды InttoStr выводит регенерированный массив; блок 13 завершает алгоритм действия.

3. Третья схема включает в себя 14 блоков: Блок 1 запускает алгоритм действия; Блок 2,3,4,5,6,7 содержат алгоритм нахождения максимального элемента массива; Блок8,9,10,11,12,13 содержат алгоритм вывода максимального элемента перед элементами массива с цифрой 1,и выводят регенерированный массив i; Блок 14 завершает алгоритм действия.

. Четвертая схема содержит 13 блоков: Блок 1 запускает алгоритм; Блок 2 содержит условие массива, говорящее о том что массив должен содержать не менее 9 чисел, количество элементов должно быть кратно 3 и не кратно 2;

Блок 3,4,5,6,7,8,9 содержат алгоритм который находит средние три элементы и последние три после чего ставит средние три в конец а последние три на место средних; Блок 10 проверяет массив; Блок 11,12 выводят массив с помощью команды InttoStr; Блок 13 завершает алгоритм программы.

Особенности разработки программы и процедур и их описание.

Создадим новое приложение (рис.7)

(рис.7)

Сохраним созданное приложение. На главную форму поместим компоненты : Edit1 в который вводится число элементов массива, Button1 генерирует массив с числом элементов n в Edit2, Button2 генерирует массив в Edit3 удаляя из него максимальный элемент, Button3 генерирует массив в Edit4 вставляя максимальный элемент перед элементами с цифрой 1, Button4 генерирует массив и выводит в Edit5 переставляя местами средние три элемента массива с последними. (рис.8)

Рис.8:Сохранённая форма программы для решения задачи с одномерным массивом.

Зададим код для действия кнопки "Генерация" (рис.9)

Рис.9

Зададим код для действия кнопки "Удалить максимальные" (рис.10)

Рис.10

Зададим код для действия кнопки"Вставить максимальное значение" (рис.11)

Зададим код для кнопки "Перестановка" (рис.12)

Рис.12.

Результат выполнения процедуры показан на рис.13

Рис.13.

Заключение

В курсовой работе решаются две задачи - задача составления массива и удаления, нахождения и перестановки в нем элементов, и задача в которой происходит преобразование числа.

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

Список использованной литературы

1. Гофман В.Э., Хомоненко А.Д. Delphi. Быстрый старт. - СПб.: БХВ Петербург, 2003. - 288 с.: ил.

2.      Культин Н.Б. Основы программирования в Delphi 7. - СПб.:БХВПетербург, 2007. - 608 с.: ил.

.        Попов В.Б. Паскаль и Дельфи: учебный курс / В.Б. Попов [и др.]. - М: Питер, 2005. - 576 с.: ил. - (Учебный курс).

.        Фаронов В.В. Delphi. Программирование на языкевысокогоуровня: учебник для вузов / В.В. Фаронов. - М. [и др.]: Питер, 2007. - 640с.: ил. (Учебник для вузов). - Библиогр. в конце кн.

.        Фленов М.Е. БиблияDelphi / М.Е. Фленов. - СПб.: БХВ-Петербург, 2007. - 880с.: ил. + 1опт. диск(CD ROM).

.        Хомоненко А.Д. Delphi 7: [наиболееполноеруководство] / А.Д. Хомоненко [и др.]; подобщ.ред.

Приложение 1

Листинг программы

Задача 1

Unit1;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TEdit;: TEdit;: TButton;: TEdit;: TLabel;: TLabel;: TLabel;Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm1;

{$R *.dfm}TForm1.Button1Click(Sender: TObject);i,k,a,m,code: integer;,a1,s1: string;:= StrtoInt(Edit1.Text);:= StrtoInt(Edit2.Text);(k,s);(a,a1);i:=1 to length(s) dos[i]<>a1 then:=s1+s[i];(s1,m,code);.Text := InttoStr(m);;.

Задача 2

Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TButton;: TButton;: TButton;: TEdit;: TLabel;: TLabel;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm1;Math, StrUtils;

{$R *.dfm}mass: array of integer;: integer;:integer;TForm1.Button1Click(Sender: TObject);i: integer;;:= StrtoInt(Edit1.Text);(mass, N);i:=0 to (N-1) do[i]:=round(sin(random(100))*100);.Text:=Edit5.Text+' '+InttoStr(mass[i]);;;TForm1.Button2Click(Sender: TObject);i:integer;:integer;:= -100;j:=0 to (N-1) domax<mass[j] then max:=mass[j];;i:=0 to (N-1) domass[i]<>max then Edit2.Text:=Edit2.Text+' '+InttoStr(mass[i]);;;TForm1.Button3Click(Sender: TObject);i:integer;:integer;:= -100;j:=0 to (N-1) domax<mass[j] then max:=mass[j];;i:=0 to (N-1) do(AnsiContainsText(InttoStr(mass[i]), '1'))=true then Edit3.Text:=Edit3.Text+' '+InttoStr(max);.Text:=Edit3.Text+' '+InttoStr(mass[i]);;;TForm1.Button4Click(Sender: TObject);num:integer;:integer;:integer;(N>=9) and (((N mod 3)=0) and ((N mod 2)=1)) then:=trunc((N/3)/2)*3;:=mass[num];[num]:=mass[N-3];[N-3]:=cup;:=mass[num+1];[num+1]:=mass[N-2];[N-2]:=cup;:=mass[num+2];[num+2]:=mass[N-1];[N-1]:=cup;i:=0 to (N-1) do.Text:=Edit4.Text+' '+InttoStr(mass[i]);

end;;;.