Функционально – структурная схема программного продукта

Титульная форма

Постановка задачи: Представить сведения о разработчике и о программном продукте. Рекомендуемый вид формы (см. рис 1)

Рисунок 1Рекомендуемый вид формы

Таблица свойств установленных при проектировании формы

Объект	Свойство	Значение
Form1	Color	clWhite
Caption	‘Разработка информационных систем’
Bordericons	[]
Font.size
Font.name	Monotype Corsiva
Image1	Stretch	True
Picture	\...\001.ipg
Label1	Caption	Приложение разработал студенто второго курса группы ИС2-1 в рамках прохождения учебной практики Иванов Иван Иванович
Wordwrap	True
Button1	Caption	‘Вперед’
Button2	Caption	‘Выход’

Программный код

Объект	Событийно – управляемая процедура
Button1	uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, Menus, StdCtrls,unit2;     procedure TForm1.Button1Click(Sender: TObject); begin form1.Hide;{скрыть form1} form2.Show;{отобразить form2} end;
Button2	procedure TForm1.Button2Click(Sender: TObject); begin close end;

Главная форма

Рекомендуемый вид формы (см. рис 2)

Рисунок 2 Рекомендуемый вид формы

Таблица свойств установленных при проектировании формы

Объект	Свойство	Значение
Form2	Caption	‘Главное меню
Bordericons	[biSystemMenu]
Font.size
Image1	Stretch	True
Picture	\...\002.ipg
MainMenu	Caption

Программный код

Объект	Событийно – управляемая процедура
	uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, jpeg, ExtCtrls,unit3,unit4,unit5,unit6,unit7,unit8;
N11	procedure TForm2.N11Click(Sender: TObject); begin form2.Hide; form3.Show; end;
N21	procedure TForm2.N21Click(Sender: TObject); begin form2.Hide; form4.Show; end;
N31	procedure TForm2.N31Click(Sender: TObject); begin form2.Hide; form5.Show; end;
N51	procedure TForm2.N51Click(Sender: TObject); begin form2.Hide; form6.show; end;
N41	procedure TForm2.N41Click(Sender: TObject); begin form2.Hide; form7.show; end;
N61	procedure TForm2.N61Click(Sender: TObject); begin form2.Hide; form8.show; end;

Линейный алгоритм

Постановка задачи: Даны катеты прямоугольного треугольника. Найти его периметр. Рекомендуемый вид формы (см. рис 3)

Рисунок 3 Рекомендуемый вид формы

Таблица свойств установленных при проектировании формы

Объект	Свойство	Значение
Form3	Caption	‘Линейный алгоритм’
Bordericons	[]
Font.size
	Font.name	Times New Roman
Image1	Stretch	True
Picture	\...\002.ipg
Label1	Caption	‘Даны катеты прямоугольного треугольника. Найти его периметр.’
Wordwrap	True
Label2	Caption	‘Введите длины катетов в соответствующие поля’
Label3	Caption	‘a=’
Label4	Caption	‘b=’
Edit1	Text	‘’
Edit2	Text	‘’
Button1	Caption	‘Вычислить’
Button2	Caption	‘Главное меню’
Enabled	false

Программный код

Объект	Событийно – управляемая процедура
Edit1	procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральные числа для корректной работы программы'); key:=#0; end; end;
Edit2	procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральные числа для корректной работы программы'); key:=#0; end; end;
Button1	procedure TForm3.Button1Click(Sender: TObject); var a,b:integer; p:real; begin If (edit1.Text='') or (edit2.Text='') then ShowMessage(Вы ввели недостаточное количество исходных данных,'+#13+' проверь те ввод данных и нажмите кнопку "Вычислить" ') Else begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); p:= Sqr(a)+sqr(b)+sqrt(sqr(a)+sqr(b)); Showmessage('Ответ'+#13+floatTostrf(p,fffixed,4,2)); button2.Enabled:=true; edit1.Text:=''; edit2.Text:=''; end; end;
Button2	procedure TForm3.Button2Click(Sender: TObject); begin form3.hide; form2.show; end;

Целочисленная арифметика

Постановка задачи: Дано четырехзначное число. Найти число, полученное при прочтении его цифр справа налево. Рекомендуемый вид формы (см. рис 4)

Рисунок 4 Рекомендуемый вид формы

Таблица свойств установленных при проектировании формы

Объект	Свойство	Значение
Form4	Caption	‘Работа с числами’
Bordericons	[]
Font.size
	Font.name	Times New Roman
Image1	Stretch	True
Picture	\...\002.ipg
Label1	Caption	‘Дано четырехзначное число. Найти число, полученное при прочтении его цифр справа налево’
Wordwrap	True
Label2	Caption	‘Введите четырехзначное положительное число’
Edit1	Text	‘’
Button1	Caption	‘Вычислить’
Button2	Caption	‘Главное меню’
Enabled	false

Программный код

Объект	Событийно – управляемая процедура
Form4	procedure TForm4.FormActivate(Sender: TObject); begin ShowMessage('Дано четырехзначное число.'+#13+' Найти число, полученное при прочтении его цифр справа налево '); end;
Edit1	procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральные числа для корректной работы программы'); key:=#0; end; end;
Button1	procedure TForm4.Button1Click(Sender: TObject); var t,c,d,e:byte; a,b:integer; begin if length(Edit1.Text)<>4 then BEGIN Showmessage(‘Вы ввели не четырехзначное число.'+#13+Попробуйте еще раз'); EDIT1.Text:= ' '; edit1.SetFocus; end else begin a:=strtoint(Edit1.Text); t:=a div 1000; c:=a div 100 mod 10; d:=a div 10 mod 10; e:= a mod 10; b:=e*1000+d*100+c*10+t; label4.Caption:='Ответ'+ #13+'полученное число равно '+ intToStr(b); end; button2.Enabled:=true; end;
Button2	procedure TForm4.Button2Click(Sender: TObject); begin form4.Hide; form2.show; end;

Разветвляющийся алгоритм

Постановка задачи: Даны три числа, вывести те из них, которые являются четными. Рекомендуемый вид формы (см. рис 5)

Рисунок 5 Рекомендуемый вид формы

Таблица свойств установленных при проектировании формы

Объект	Свойство	Значение
Form5	Caption	‘Разветвляющийся алгоритм’
Bordericons	[]
Font.size
	Font.name	Times New Roman
Image1	Stretch	True
Picture	\...\002.ipg
Label1	Caption	‘Даны три числа, вывести те из них, которые являются четными.’
Wordwrap	True
Label2	Caption	‘Введите три числа и нажмите кнопку “Вычислить” ‘
Edit1	Text	‘’
Edit2	Text	‘’
Edit3	Text	‘’
Button1	Caption	‘Вычислить’
Button2	Caption	‘Главное меню’
Enabled	false

Программный код

Объект	Событийно – управляемая процедура
Edit1	procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральные числа для корректной работы программы'); key:=#0; end; end;
Edit2	procedure TForm5.Edit2KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральные числа для корректной работы программы'); key:=#0; end; end;
Edit3	procedure TForm5.Edit3KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральные числа для корректной работы программы'); key:=#0; end; end;
Button1	procedure TForm5.Button1Click(Sender: TObject); begin label6.Caption:='Четные числа: '; if StrToInt(edit1.Text) mod 2=0 then label6.Caption:=label6.Caption+ edit1.Text+' '; if StrToInt(edit2.Text) mod 2=0 then label6.Caption:=label6.Caption+ edit2.Text+' '; if StrToInt(edit3.Text) mod 2=0 then label6.Caption:=label6.Caption+ edit3.Text+' '; button2.Enabled:=true; end;
Button2	procedure TForm5.Button2Click(Sender: TObject); begin form5.Hide; form2.show; end;

Циклический алгоритм

Постановка задачи: найти сумму положительных нечетных чисел, меньших 50. Рекомендуемый вид формы (см. рис 6)

Рисунок 6 Рекомендуемый вид формы

Таблица свойств установленных при проектировании формы

Объект	Свойство	Значение
Form7	Caption	‘Циклический алгоритм’
Bordericons	[]
Font.size
	Font.name	times new roman
Image1	Stretch	true
Picture	\...\002.ipg
Label1	Caption	‘Найти сумму положительных нечетных чисел, меньших 50.’
Button1	Caption	‘Вычислить’
Button2	Caption	‘Главное меню’
Enabled	false

Программный код

Объект	Событийно – управляемая процедура
Button1	procedure TForm7.Button1Click(Sender: TObject); var i:byte; s:integer; begin s:=0; i:=1; while i<51 do begin s:=s+i; i:=i+2; end; ShowMessage(Сумма положительных нечетных чисел меньших 50 равна '+ IntToStr(s)); button2.Enabled:=true; end;
Button2	procedure TForm7.Button2Click(Sender: TObject); begin form7.hide; form2.show; end;

Одномерный массив

Постановка задачи: Каждое число Фибоначчи вычисляется как f₁=0, f₂=1, а начиная с третьего по формуле f_n=f_n-1+f_n-2. Составить программу, которая вычисляет n чисел Фибоначчи. Рекомендуемый вид формы (см. рис)

Рисунок 7 Рекомендуемый вид формы

Таблица свойств установленных при проектировании формы

Объект	Свойство	Значение
Form6	Caption	‘Одномерный массив’
Bordericons	[]
Font.size
Font.name	times new roman
Image1	Stretch	true
Picture	\...\002.ipg
Label1	Caption	‘Каждое число Фибоначчи вычисляется как f1=0, f2=1, а начиная с третьего по формуле fn=fn-1+fn-2. составить программу, которая вычисляет n чисел Фибоначчи.’
Label2	Caption	‘Введите количество чисел’
Edit1	Text	‘’
Label3	Caption	‘Последовательность фибоначчи’
Label4	Caption	‘’
Button1	Caption	‘Вычислить’
Button2	Caption	‘Главное меню’
Enabled	false

Программный код

Объект	Событийно – управляемая процедура
Edit1	procedure TForm6.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральное число для корректной работы программы'); key:=#0; end; end;
Button1	procedure TForm6.Button1Click(Sender: TObject); var n:integer; i:byte; f:array of integer; begin label4.Caption:=' '; if strtoint(edit1.Text)=0 then begin showMessage('Введите размерность последовательности); edit1.Text; edit1.SetFocus; end else begin   n:=strtoint(edit1.Text); setlength(f,n); f[0]:=0; f[1]:=1; label4.Caption:=intTostr(f[0])+' '+intTostr(f[1])+' '; for i:=2 to n-1 do begin f[i]:=f[i-1]+f[i-2]; label4.Caption:=label4.Caption+intTostr(f[i])+' '; end; end; Button2.Enabled:=true; end;
Button2	procedure TForm6.Button2Click(Sender: TObject); begin form6.Hide; form2.show; end;

Двумерный массив

Постановка задачи: Дан массив целых чисел. Определить сумму элементов массива больших 30. Рекомендуемый вид формы (см. рис 8)

Рисунок 8 Рекомендуемый вид формы

Таблица свойств установленных при проектировании формы

Объект	Свойство	Значение
Form8	Caption	‘Двумерный массив’
Bordericons	[]
Font.size
Font.name	times new roman
Image1	Stretch	true
Picture	\...\002.ipg
Label1	Caption	‘Дан массив целых чисел. определить сумму элементов массива больших 30.’
Label2	Caption	‘’
Button1	Caption	‘Ввести размерность’
Enabled	false
Button2	Caption	‘Заполнить и вывести элементы массива’
WordWrap	true
Enabled	false
Button4	Caption	‘Обработать элементы массива’
Enabled	False
WordWrap	True
Button5	Caption	‘Главное меню’
StringGrid1	Name	St1
FixedRows
FixedCols
RowCount
ColCount

Программный код

Объект	Событийно – управляемая процедура
	var Form8: TForm8; a:array of array of integer; i, j, n, m:byte; s:integer;
Button1	procedure TForm8.Button1Click(Sender: TObject); begin n:=strtoint(Inputbox('Ввод','Введите количество строк','3')); m:=strtoint(Inputbox('Ввод','Введите количество столбцов','3')); st1.ColCount:=m; st1.RowCount:=n; button2.Enabled:=true; button1.Enabled:=false; setlength(a,n,m); end;
Button2	procedure TForm8.Button2Click(Sender: TObject);   begin   st1.Visible:=true; for i:=0 to n-1 do for j:=0 to m-1 do   begin a[i,j]:=StrToInt(Inputbox('Ввод','Введите очередной элемент','6')); st1.Cells[j,i]:=inttostr(a[i,j]); end; button2.Enabled:=false; button4.Enabled:=true; end;
Button4	procedure TForm8.Button4Click(Sender: TObject); begin Button2.Enabled:=false; s:=0; for i:=0 to n-1 do for j:=0 to m-1 do if a[i,j]>30 then s:=s+ a[i,j]; label2.Visible:=true; label2.Caption:='Сумма элементов массива, больших 30 равна ' + IntToStr(s); end;
Button5	procedure TForm8.Button5Click(Sender: TObject); begin form8.Hide; form2.show; end;

Литература

1. Златопольский, Д.М. Сборник задач по программированию.-2-е изд., перераб. и доп. – СПб.: БХВ-Петербург, 2007.

2. Информатика: Учеб. Пособие для 10-11 кл. общеобразоват. Учреждений/ Л. З. Щауцукова. – М.: Просвещение, 2000.

3. Сборник задач по курсу информатики / под редакцией Л.И. Белоусовой. – М.: Издательство «Экзамен», 2007.

4. Рудаков, А. В. Технология разработки программных продуктов: учебник для студ. сред. проф. Образования / А. В. Рудаков.-М.: Издательский центр «Академия», 2012.

5. Разработка структурной и функциональной схем. Метод пошаговой детализации [Электронный ресурс]/(http://yourmetod.ru) Проверено 04.04.2013