Язык программирования V B.NET

 

 

 

 

 

 

Public Class Form1

Private Sub УсловиеToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УсловиеToolStripMenuItem.Click

   Form3.Show()

End Sub

 

Private Sub Задача1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Задача1ToolStripMenuItem.Click

   Form4.Show()

End Sub

 

Private Sub Задача2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Залача2ToolStripMenuItem.Click

   Form5.Show()

End Sub

 

Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click

   Close()

End Sub

 

Private Sub ЗадачиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗадачиToolStripMenuItem.Click

 

End Sub

 

Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

 

End Sub

End Class

 

Public Class Form4

   

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

   Close()

End Sub

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   Dim x, y As Double

   x = Val(TextBox1.Text)

   y = ((Math.Sin(8 - 2 * x) + Math.Exp(1 - x / 4)) / (Math.Log10(2 + 2 * x) + Math.Tan(2 * x - 8))) * (6 - x)

   TextBox2.Text = Str(y)

End Sub

End Class

 

Public Class Form5

Dim n, i As Integer

Dim k, l, s As Double

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal go As System.EventArgs) Handles Button1.Click

   n = Val(TextBox1.Text)

   k = 0

   l = 0

   s = 0

   For i = 1 To n

       k = k + Math.Cos(i)

       l = l + Math.Sin(i)

       s = s + k / l

   Next i

     TextBox2.Text = Str(s)

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

   Close()

End Sub

 

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

 

End Sub

End Class

 

Задания для выполнения лабораторных работ по вычислению арифметических выражений

 

Лабораторная работа № 1

 

 

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

 

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

 

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

, где

 

1. Вычислить значение выражения по формуле

, где

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

, где

 

1. Вычислить значение выражения по формуле

, где

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

, где

1. Вычислить значение выражения по формуле

 , где

1. Вычислить значение выражения по формуле

, где

1. Вычислить значение выражения по формуле

, где

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

1. Вычислить значение выражения по формуле

1. По заданным сторонам a, b, c треугольника найти его углы. Выразить углы в градусах и радианах (теорема косинусов: )

 

Лабораторная работа №1  

Тема: Условия и циклы

Консольный вариант

---

Дата добавления: 2018-02-18; просмотров: 890; Мы поможем в написании вашей работы!

Поделиться с друзьями:

---

---

Мы поможем в написании ваших работ!