СКАЧАТЬ:
Информатика.
«Простейшие вычисления»
Отчет по лабораторной работе №1.
Задание.
Вычислить и напечатать значение заданной функции.
Задача16:
Задача 66:
Блок схема.
Задача16:Задача 66:
Форма.
Измененные свойства.
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3795
ClientLeft = 60
ClientTop = 450
ClientWidth = 12960
LinkTopic = "Form1"
ScaleHeight = 3795
ScaleWidth = 12960
StartUpPosition = 3 'Windows Default
Begin VB.PictureBox Picture2
Height = 975
Left = 6360
ScaleHeight = 915
ScaleWidth = 5715
TabIndex = 3
Top = 360
Width = 5775
End
Begin VB.CommandButton zadacha66
Caption = "Задача 66"
Height = 1455
Left = 6360
TabIndex = 2
Top = 1680
Width = 5535
End
Begin VB.PictureBox Picture1
Height = 975
Left = 480
ScaleHeight = 915
ScaleWidth = 5115
TabIndex = 1
Top = 360
Width = 5175
End
Begin VB.CommandButton zadacha16
Caption = "Задача 16"
Height = 1455
Left = 240
TabIndex = 0
Top = 1680
Width = 5775
End
End
Текст программы.
Private Sub zadacha66_Click()
a = 7.34
x = 2.57
z = ((x + 3 * a + y) / (2 * x)) ^ 4 - (x / (x + 3 * a - y))
Picture2.Print z
End Sub
Private Sub zadacha16_Click()
b = 3.74
p = 0.25
a = b
x = Sqr(b)
c = x / a - (1 / (a * p)) * Log(Abs(a - b * Exp(p * x)))
Picture1.Print c
End Sub
Результат.