Практическая работа № 1.3 – вычисление квадратного корня числа

1. Открыть проект, созданный в ходе выполнения работы № 1.1 или № 1.2.

2. Внести необходимые изменения в форму:

· Изменить заголовок окна формы: корень квадратный числа;

· Изменить свойство name формы: example1_3;

· Изменить программный код: вычисление квадратного корня – функция SQR; программный код запишется в виде:

result.Caption=Sqr(Val(chislo.Text))

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить проект и форму с именами Example1_3 или Lab1_3 соответствующими командами из меню file.

Практическая работа № 1.4 – вычисление суммы, разности, произведения и частного 2-х чисел

1. Открыть один из проектов, созданных в ходе выполнения работ №№ 1.1 – 1.3.

2. Внести необходимые изменения в форму (см. рис. 8):

· Изменить заголовок окна формы: сумма, разность, произведение, частное 2-х чисел;

· Изменить свойство name формы: example1_4;

· Добавить на форму объекты: текстовое поле и 8 меток; внести остальные изменения;

· Задать меткам, отображающим результаты вычислений свойства name соответственно: results, resultr, resultp, resultch;

· Задать текстовым полям свойства namechislo1 и chislo2 соответственно;

· Изменить программный код:

results.Caption=Val(chislo1.Text)+Val(chislo2.Text)

resultr.Caption=Val(chislo1.Text)-Val(chislo2.Text)

resultp.Caption=Val(chislo1.Text)*Val(chislo2.Text)

resultch.Caption=Val(chislo1.Text)/Val(chislo2.Text)

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить проект и форму с именами Example1_4 или Lab1_4 соответствующими командами из меню file.

Выполните самостоятельно!

Практическая работа № 1.5 – вычисление значения по формуле

1. Создать новый проект и вычислить: 8*А+(12*В)^^5/С . Макет формы показан на рис. 9.

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

rеsult.Caption=8*Val(chislo1.Text) { в одну строку! }

+(12*(Val(chislo2.Text)))^(5/Val(chislo3.Text))

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить проект и форму с именами Example1_5 или Lab1_5 соответствующими командами из меню file.

Практическая работа № 1.6 – вычисление длины гипотенузы

1. Создать новый проект и вычислить длину гипотенузы по 2-м катетам. Макет формы показан на рис. 10.

2. Программный код для кнопки вычислить приведен ниже:

Dim a, b, c As Single

a=Val(Text1.Text)

b=Val(Text2.Text)

c=Sqr(a^2+b^2)

Label1.Caption=c

4. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить проект и форму с именами Example1_6 или Lab1_6 соответствующими командами из меню file.

Форма отчета: cd-диск, флэш или иной носитель с файлами форм и проектов работы № 1; текстовый файл с изображениями форм и текстами программных кодов.