2.1 Лабораторная работа №2
Тема: Вычисление сложных арифметических выражений
Windows вариант
Условие: Разработать проект для вычисления выражения
Язык программирования С#
Программа
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace WindowsFormsApplication3
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
// кнопка начало
private void button1_Click(object sender, EventArgs e)
{
Form4 f4 = new Form4();
Form1.ActiveForm.Hide();
f4.Show();
}
//кнопка выход
private void button2_Click(object sender, EventArgs e)
{
Close();
}
// кнопка условие
private void button3_Click(object sender, EventArgs e)
{
Form2 f2 = new Form2();
Form1.ActiveForm.Hide();
f2.Show();
}
// кнопка автор
private void button4_Click(object sender, EventArgs e)
{
Form3 f3 = new Form3();
Form1.ActiveForm.Hide();
f3.Show();
}
private void label7_Click(object sender, EventArgs e)
{
}
}
}
Язык программирования С++
#pragma endregion
private: System::Void button2_Click(System::Object^ sender, System::EventArgs^ e) {
}
private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
}
private: System::Void button2_Click_1(System::Object^ sender, System::EventArgs^ e) {
this->Close();
}
private: System::Void button1_Click_1(System::Object^ sender, System::EventArgs^ e) {
double x = Convert::ToDouble(textBox1->Text);
double y = Convert::ToDouble(textBox2->Text);
double c=0;
//Class1 ^cal = gcnew Class1();
//cal->sum(x,y);
double z=(Math::Sqrt(Math::Sin((x + y)) + Math::Cos(x) * (x + y)) / (x + Math::Pow(y,4) * Math::Exp(x + y)));
//c = a + b;
//label2->Text = Convert::ToString(cal->z);
label2->Text = Convert::ToString(z);
textBox3->Text = Convert::ToString(z);
}
};
}
Язык программирования 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