Файл: Применение объектно-ориентированного подхода при проектировании информационной системы ( Visual Basic ).pdf

result.StringGrid1.Cells[1,i]:=otvet[i]; {Вывод в таблицу выбранного варианта ответа}

if (otvet[i]='А') then vsegoA:=vsegoA+1; {Увеличение счетчика ответов А}

if (otvet[i]='Б') then vsegoB:=vsegoB+1; {Увеличение счетчика ответов Б}

if (otvet[i]='В') then vsegoV:=vsegoV+1; {Увеличение счетчика ответов В}

end;

result.ItogoA.Caption:='A='+inttostr(vsegoA); {Вывод количества ответов А}

result.ItogoB.Caption:='Б='+inttostr(vsegoB); {Вывод количества ответов Б}

result.ItogoV.Caption:='В='+inttostr(vsegoV); {Вывод количества ответов В}

result.ShowModal; {Показать форму результатов}

close; {Закрыть приложение}

end;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

close; {Закрыть приложение}

end;

end.

Приложение 2

КОД ОБРАБОТЧИКОВ ФОРМЫ ВЫВОДА РЕЗУЛЬТАТОВ ТЕСТИРОВАНИЯ

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, StdCtrls, ComCtrls;

type

Tresult = class(TForm)

StringGrid1: TStringGrid;

Label1: TLabel;

ItogoA: TLabel;

ItogoB: TLabel;

ItogoV: TLabel;

RichEdit1: TRichEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

result: Tresult;

implementation

{$R *.dfm}

procedure Tresult.Button1Click(Sender: TObject);

begin

close; {Закрыть приложение}

end;

end.

Приложение 3

КОД ОБРАБОТЧИКА ВЫЧИСЛЕНИЯ ЗНАЧЕНИЯ ФУНКЦИИ

Private Sub Vichislit_Click()

Dim B, C, X As Double: Rem Исходные переменные

Dim f1, f2, f3, f4: Rem Промежуточные переменные

Const alpha = 2: Rem Константа Альфа

Const bets = 3: Rem Константа Бета

B = Val(TextB.Text): Rem Перевод B в числовой формат

C = Val(TextC.Text): Rem Перевод C в числовой формат

X = Val(TextX.Text): Rem Перевод X в числовой формат

f1 = Cos(Abs(X / B - alpha)): Rem вычисление f1

f2 = 1.3 * Exp(A * Cos(B * X)): Rem вычисление f2

f3 = 1.1 * Log(Abs(beta * X + C)) / Log(3): Rem вычисление f3

f4 = (X ^ 2 + X + C) / Abs(beta + alpha * X): Rem вычисление f4

y = f1 + f2 + f3 + f4: Rem вычисление Y

f1value.Caption = Mid$(f1, 1, 12): Rem вывод значения f1

f2value.Caption = Mid$(f2, 1, 12): Rem вывод значения f2

f3value.Caption = Mid$(f3, 1, 12): Rem вывод значения f3

f4value.Caption = Mid$(f4, 1, 12): Rem вывод значения f4

Yvalue.Caption = y: Rem вывод значения Y

End Sub

Приложение 4

КОД ОБРАБОТЧИКА ВЫЧИСЛЕНИЯ ФУНКЦИИ

Private Sub Zadan2_Click()

Dim alpha, beta, A, B, C As Double: Rem Исходные переменные

Dim X As Double: Rem Переменная цикла

Text2.Text = "": Rem Очистка поля вывода

alpha = Val(TextAlpha.Text): Rem Перевод переменной Альфа в числовой

формат

beta = Val(TextBeta.Text): Rem Перевод переменной Бета в числовой

формат

A = Val(TextA.Text): Rem Перевод переменной A в числовой формат

B = Val(TextB.Text): Rem Перевод переменной B в числовой формат

C = Val(TextC.Text): Rem Перевод переменной C в числовой формат

Text2.Text = Text2.Text & " x y" & vbCrLf: Rem Вывод заголовков

столбцов

For X = -4 To 10 Step 0.7: Rem Изменение аргумента в цикле

If (X < 0) Then y = Cos(Abs(X / B - alpha)): Rem Проверка 1-го условия

If ((X >= 0) And (X < 4)) Then y = 1.3 * Exp(A * Cos(B * X)): Rem

Проверка 2-го условия

If ((X >= 4) And (X <= 6)) Then y = 1.1 * Log(Abs(beta * X + C)) / Log(3):

Rem Проверка 3-го условия

If (X > 6) Then y = (X ^ 2 + X + C) / Abs(beta + alpha * X):

Rem Проверка 4-го условия

Text2.Text = Text2.Text & " " & Str(X) & " " & Str(y) & vbCrLf:

Rem Вывод через пробел всех элементов массива

Next X

End Sub

Приложение 5

КОД ОБРАБОТЧИКА МАССИВА

Private Sub Zadan3_Click()

Dim N As Integer: Rem Размерности массивов

Dim i As Integer: Rem Переменная циклов

Dim SredA As Variant: Rem Среднее массива A

Dim SredB As Variant: Rem Среднее массива B

Dim KolvoA As Integer: Rem Количество подходящих элементов

массива A

Dim KolvoB As Integer: Rem Количество подходящих элементов

массива B

N = Val(TextRazmer.Text): Rem Перевод размерности

массивов в числовой вид

Dim A(100) As Variant: Rem Массив A

Dim B(100) As Variant: Rem Массив B

Text3.Text = "": Rem Очистка поля вывода

SredA = 0: Rem Обнуление суммы подходящих элементов массива A

SredB = 0: Rem Обнуление суммы подходящих элементов массива B

KolvoA = 0: Rem Обнуление количества подходящих элементов

массива A

KolvoB = 0: Rem Обнуление количества подходящих элементов

массива B

Text3.Text = Text3.Text & " Массив А: ": Rem Вывод имени массива

For i = 1 To N: Rem Ввод и обработка массива A

A(i) = InputBox("Введите элемент массива A=")

If (((i / 2) = Int(i / 2)) And (A(i) > -10) And (A(i) < 10)) Then

SredA = SredA + A(i): KolvoA = KolvoA + 1

Next i

For i = 1 To N: Rem Ввод и обработка массива B

B(i) = InputBox("Введите элемент массива B=")

If (((i / 2) = Int(i / 2)) And (B(i) > -10) And (B(i) < 10)) Then

SredB = SredB + B(i): KolvoB = KolvoB + 1

Next i

Text3.Text = Text3.Text & "Массив A: "

For i = 1 To N: Rem Вывод массива A

Text3.Text = Text3.Text & A(i) & " "

Next i

SredA = SredA / KolvoA: Rem Вычисление среднего массива A

Rem Вывод среднего массива A

Text3.Text = Text3.Text & vbCrLf & " Среднее элементов массива A в

интервале (-10,10) = " & SredA & vbCrLf & vbCrLf

Text3.Text = Text3.Text & "Массив B: "

For i = 1 To N: Rem Вывод массива B

Text3.Text = Text3.Text & B(i) & " "

Next i

SredB = SredB / KolvoB: Rem Вычисление среднего массива B

Rem Вывод среднего массива A

Text3.Text = Text3.Text & vbCrLf & " Среднее элементов массива B в

интервале (-10,10) = " & SredB & vbCrLf & vbCrLf

End Sub

1. Фаронов В.В. Программирование на языке высокого уровня. Гриф МО РФ / В.В.Фаронов. – СПб.: Питер, 2012. С.38 ↑

2. Белов В.В. Программирование в Delphi: процедурное, объектно-ориентированное, визуальное / Белов В.В., Чистяков В.И. – М.: Горячая Линия-Телеком, 2009, С.71 ↑

3. Хорев П.Б. Объектно–ориентированное программирование: учебное пособие для студентов учреждений высшего профессионального образования. – М.: Академия, 2011, С.49 ↑

4. Лесневский А.С. Объектно–ориентированное программирование для начинающих / А.С.Лесневский. – СПб.: Бином. Лаборатория знаний, 2012, С.55 ↑

5. Иванова Г.С. Объектно–ориентированное программирование / Г.С.Иванова. – М.: МГТУ им. Баумана, 2012. С.77 ↑

6. Фаронов В.В. Программирование на языке высокого уровня. Гриф МО РФ. – СПб.: Питер, 2012. С.224 ↑

7. Белов В.В. Программирование в Delphi: процедурное, объектно-ориентированное, визуальное / Белов В.В., Чистяков В.И. – М.: Горячая Линия-Телеком, 2009. С.106 ↑

8. Галисеев Г.В. Программирование в среде Delphi 7. Самоучитель / Г.В.Галисеев. – М.: Диалектика, 2012. С.47 ↑

9. Нил Дж. Рубенкинг. Язык программирования Delphi для «чайников». – М.: Диалектика, 2012. С.117 ↑

10. Галисеев Г.В. Программирование в среде Delphi 7. Самоучитель / Г.В.Галисеев. – М.: Диалектика, 2012. С.48 ↑

11. Хорев П.Б. Объектно–ориентированное программирование: учебное пособие для студентов учреждений высшего профессионального образования / П.Б.Хорев. – М.: Академия, 2011. С.112 ↑

12. Фаронов В.В. Программирование на языке высокого уровня. Гриф МО РФ / В.В.Фаронов. – СПб.: Питер, 2012. С.304 ↑

13. Галисеев Г.В. Программирование в среде Delphi 7. Самоучитель. – М.: Диалектика, 2012. С.203 ↑

14. Фаронов В.В. Программирование на языке высокого уровня. Гриф МО РФ / В.В.Фаронов. – СПб.: Питер, 2012. С.301 ↑

15. Иванова Г.С. Объектно–ориентированное программирование. – М.: МГТУ им. Баумана, 2012. С.102 ↑

16. Белов В.В. Программирование в Delphi: процедурное, объектно-ориентированное, визуальное / Белов В.В., Чистяков В.И. – М.: Горячая Линия-Телеком, 2009. С.95 ↑

17. Нил Дж. Рубенкинг. Язык программирования Delphi для «чайников» / Нил Дж. Рубенкинг. – М.: Диалектика, 2012. С.59 ↑

18. Лесневский А.С. Объектно–ориентированное программирование для начинающих / А.С.Лесневский. – СПб.: Бином. Лаборатория знаний, 2012. С.117 ↑

19. Иванова Г.С. Объектно–ориентированное программирование / Г.С.Иванова. – М.: МГТУ им. Баумана, 2012. С.55 ↑

20. Лесневский А.С. Объектно–ориентированное программирование для начинающих / А.С.Лесневский. – СПб.: Бином. Лаборатория знаний, 2012. С.133 ↑

21. Белов В.В., Чистяков В.И. Программирование в Delphi: процедурное, объектно-ориентированное, визуальное.. – М.: Горячая Линия-Телеком, 2009. С.106 ↑

22. Хорев П.Б. Объектно–ориентированное программирование: учебное пособие для студентов учреждений высшего профессионального образования / П.Б.Хорев. – М.: Академия, 2011. С.77 ↑

23. Дарахвелидзе П.Г. Программирование в Delphi 7 / П.Г.Дарахвелидзе, Е.П,Марков. – СПб.: BHV, 2011. С.305 ↑

24. Лесневский А.С. Объектно–ориентированное программирование для начинающих / А.С.Лесневский. – СПб.: Бином. Лаборатория знаний, 2012. С.41 ↑

25. Фаронов В.В. Программирование на языке высокого уровня. Гриф МО РФ / В.В.Фаронов. – СПб.: Питер, 2012. С.61 ↑

26. Лесневский А.С. Объектно–ориентированное программирование для начинающих. – СПб.: Бином. Лаборатория знаний, 2012. С.92 ↑

27. Иванова Г.С. Объектно–ориентированное программирование / Г.С.Иванова. – М.: МГТУ им. Баумана, 2012. С.67 ↑

28. Иванова Г.С. Объектно–ориентированное программирование / Г.С.Иванова. – М.: МГТУ им. Баумана, 2012. С.15 ↑

29. Фаронов В.В. Программирование на языке высокого уровня. Гриф МО РФ / В.В.Фаронов. – СПб.: Питер, 2012. С.98 ↑

30. Культин Н.Б. Основы программирования в Delphi 7. – СПб.: BHV, 2012. С.102 ↑

31. Фаронов В.В. Программирование на языке высокого уровня. Гриф МО РФ / В.В.Фаронов. – СПб.: Питер, 2012. С.103 ↑

32. Фленов М.Е. Библия Delphi. – СПб.: BHV, 2009. С.97–98 ↑

33. Дарахвелидзе П.Г., Марков Е.П, Программирование в Delphi 7. – СПб.: BHV, 2011. С.122 ↑