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

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

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

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

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

Рисунок 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)

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

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

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

Объект Свойство Значение
Form2 Caption ‘Главное меню
Bordericons [biSystemMenu]
Font.size
Image1 Stretch True
Picture \...\002.ipg
MainMenu Caption Функционально – структурная схема программного продукта - student2.ru

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

Объект Событийно – управляемая процедура
  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)

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

Рисунок 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)

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

Рисунок 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)

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

Рисунок 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)

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

Рисунок 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;

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

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

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

Рисунок 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)

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

Рисунок 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

Наши рекомендации