Создан заказ №1288910
20 июня 2016
Информатика, язык программирования - Бэйсик, 1 курс, онлайн-помощь на экзамене, время решения - 2 часа,
Как заказчик описал требования к работе:
Время экзамена 01.07.16 10:00 утра по московскому времени, время экзамена - 2 часа, экзамен может начаться позже, но продлится также 2 часа.
Прикрепил пример билетов.
(Пример выполнения второго билета, возможно не полностью верный)
1) Private Sub Moshnost(ByVal I As Double, ByVal R As Double, ByRe
f P As Double)
P = I * I * R
End Sub
2) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim R1, R2, R3, P1, P2, P3, I1, I2, I3 As Double
I1 = vvod(TextBox1)
R1 = vvod(TextBox2)
I2 = vvod(TextBox3)
R2 = vvod(TextBox4)
I3 = vvod(TextBox5)
R3 = vvod(TextBox6)
Moshnost(I1, R1, P1)
Moshnost(I2, R2, P2)
Moshnost(I3, R3, P3)
vivodDbl1(P1, TextBox7)
vivodDbl1(P2, TextBox8)
vivodDbl1(P3, TextBox9)
End Sub
это первый номер
1) Private Sub DDD(ByVal x As Double, d As Double)
If x > 2 Then
d = (Log(x)) ^ 2
If d > Sin(x) Then d = Sin(x)
If d > Cos(2 * x ^ 3) Then d = Cos(2 * x ^ 3)
ElseIf x (Abs(x)) ^ (1 / 2) Then
d = Sin(Sin(x)) ^ 3
Else
d = (Abs(x)) ^ (1 / 2)
End If
If d < Tan(x) Then d = Tan(x)
If d < E ^ (-2 * x) Then d = E ^ (-2 * x)
Else
d = Sin(x - 1)
End If
End Sub
2) Private Function YYY(ByVal y As Double, ByVal d As Double) As Double
If d > 0 Then
YYY = d * y
Else
YYY = y
End If
End Function
3) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y, d, h As Double
x = vvod(TextBox1)
y = vvod(TextBox2)
h = vvod(TextBox3)
Do While x 0 Then
sum = sum + A(i)
End If
Next
Summa = sum
End Function
2) Private Sub New(ByRef NewMas() As Double, ByVal A() As Double, ByVal n1 As Integer, ByRef n2 As Integer, ByVal sum As Double)
Dim i As Integer
n2 = 0
For i = 0 To n1 - 1
If sum < A(i) Then
ReDim Preserve NewMas(n2)
NewMas(n2) = A(i)
n2 = n2 + 1
End If
Next
End Sub
3) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim A(), B() As Double
Dim n1, n2 As Integer
vvod(A, n1)
PrintL(A, ListBox1)
NewM(B, A, n1, n2, Summa(A, n1))
PrintL(B, ListBox2)
End Sub
это третье
1)
Private Function KA(ByVal s As String) As Boolean
Dim n, i As Integer
Dim smax, a() As String
KA = False
a = Split(s)
n = 0
For i = 1 To UBound(a)
If Len(a(i)) > n Then n = Len(a(i)) : smax = a(i)
Next
For i = 1 To n - 2
If Mid(smax, i, 2) = "КА" Then KA = True : Exit Function
Next
End Function
2) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim s As String
s = TextBox1.Text
If KA(s) = True Then
TextBox2.text = "Слово КА в самом длинном слове строки есть"
Else
TextBox2.text = "Слова КА в самом длинном слове строки нет"
End If
End Sub
это четверто
подробнее
Заказчик
заплатил
заплатил
200 ₽
Заказчик не использовал рассрочку
Гарантия сервиса
Автор24
Автор24
20 дней
Заказчик принял работу без использования гарантии
23 июня 2016
Заказ завершен, заказчик получил финальный файл с работой
5
Информатика, язык программирования - Бэйсик, 1 курс, онлайн-помощь на экзамене, время решения - 2 часа,.docx
2019-04-17 13:00
Последний отзыв студента о бирже Автор24
Общая оценка
5
Положительно
Все замечательно, с заданием автор справился в срок, выполнив все задачи которые были перед ним поставлены.