В. К. Никишев «Лабораторный практикум по современным языкам программирования Visual Studio »
|
Скачать 0.52 Mb.
|
VB.NET   P  ublic Class Form4Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim x, y As Double x = Val(TextBox1.Text) y = (x * x + 2 * x - 3 + (x + 1) * (Math.Sqrt(x * x - 9)) / (x * x - 2 * x - 3 + (x + 1) * (Math.Sqrt(x * x - 9)))) TextBox2.Text = Str(y) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim a, b, c As Double a = Val(TextBox3.Text) b = Val(TextBox4.Text) c = a + b TextBox5.Text = Str(c) End Sub End Class Лабораторная работа 3 Вычисление сложных арифметических выражений 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 button1_Click(object sender, EventArgs e) { // ввод данных double a = Convert.ToDouble(textBox1.Text); double b = Convert.ToDouble(textBox2.Text); double x = Math.Tan(a); double y = Math.Tan(b); double z1=(Math.cos(x)-Math.cos(y)); double z2=(Math.sin(x)-Math.sin(y)); double x=(Math.pow(z1,2)-Math.pow(z2,2)) //вывод результата textBox3.Text = textBox3.Text + " z= " + Convert.ToString(c) + "\n ";  } }  private void button2_Click(object sender, EventArgs e) { double a = Convert.ToDouble(textBox1.Text); double z = (1/((1+a*a+a)/(2*a+a*a)+2-((1-a+a*a)/(2*a-a*a)))*(5*a-2*a*a));  textBox4.Text = textBox4.Text + Convert.ToString(z);private void выходToolStripMenuItem_Click(object sender, EventArgs e) { Close(); } private void решениеToolStripMenuItem_Click(object sender, EventArgs e) { Form2 f2 = new Form2(); Form1.ActiveForm.Hide(); f2.Show(); } private void петровГеоргийToolStripMenuItem_Click(object sender, EventArgs e) { } }} Язык программирования С++ Вычисление сложного арифметического выражения     1-я форма #pragma once #include "Form2.h" #include "Form3.h" #include "Form4.h" namespace wsvc { using namespace System; using namespace System::ComponentModel; using namespace System::Collections; using namespace System::Windows::Forms; using namespace System::Data; using namespace System::Drawing; } #pragma endregion private: System::Void label1_Click(System::Object^ sender, System::EventArgs^ e) { } private: System::Void button3_Click(System::Object^ sender, System::EventArgs^ e) { Form2^ gForm2 = gcnew Form2; gForm2->Show(); gForm2->Visible = true; } private: System::Void button4_Click(System::Object^ sender, System::EventArgs^ e) { Close(); } private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) { Form3^ gForm3 = gcnew Form3; gForm3->Show(); gForm3->Visible = true; } private: System::Void button2_Click(System::Object^ sender, System::EventArgs^ e) { Form4^ gForm4 = gcnew Form4; gForm4->Show(); gForm4->Visible = true; } };} Основная форма #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; 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); }};} Язык программирования VB.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 Лабораторная работа 4 Вычисление суммы ряда. Консольный вариант Цель занятия: Изучить структуру программ, основные операторы С#.NET для. вычисления суммы ряда. Получить навыки работ по составлению простейших программ для вычисления суммы ряда в консольном варианте. Условие: Вычислить сумму ряда s=(1+1/1) + (1+1/ 2) +....+ (1+1/n)"); using System.Linq; using System.Text; namespace ConsoleApplication1 { class Program { static void Main(string[] args) { string str; Console.WriteLine("\n\n\n\n\n\n\n\n " + " Программа сумма ряда"); Console.WriteLine( " Вычислить сумму ряда s=(1+1/1) + (1+1/ 2) +....+ (1+1/n)"); Console.WriteLine(" \n Выполнил Никишев "); Console.ReadKey(); Console.ReadLine(); Console.Clear(); Console.WriteLine("Введите число n."); int n = int.Parse(Console.ReadLine()); // Console.WriteLine("Вы ввели: " + a); // Console.WriteLine("Введите число b."); // int b = int.Parse(Console.ReadLine()); // Console.WriteLine("Вы ввели: " + b); // int c=a+b; // Console.WriteLine("результат с=: " + c); double s=0; for(int i=1;i<=n;i++) { double a=(1+1/Math.Pow(i,i)); s = s + a; } Console.WriteLine("результат S=: " + s); //Console.WriteLine("результат s=: {0:F9}" , s.ToString ()); Console.WriteLine("\n нажми Enter для выхода из программы"); str = Console.ReadLine(); Console.ReadKey(); //Console.ReadLine(); } } } Программа на языке С++  #  include "stdafx.h"#include "iostream" #include #include #include #include using namespace std; char newline; int _tmain(int argc, _TCHAR* argv[]) { system("cls"); setlocale(LC_CTYPE,"Russian");//Перевод на русский язык cout<<"\n\n\n\n\n\n\n\n\t\t Лабораторная работа по программированию"; cout<<"\n\n\n\n\n\n\n\n\t\t Тема: Вычисление суммы ряда"; cout<<"\n\n\n\n\t\t\t\t\t Выполнил :"; cout<<"\n\t\t\t\t\t профессор кафедры компьютерных технологий"; cout<<"\n\t\t\t\t\t Никишев Вячеслав Константинович"<<"\n\n\n\n\n\n\n"<< system("pause"); system("cls"); cout<<"\n\n Условие:" << endl; cout<< "Вычислить сумму s=(1+1/1) + (1+1/ 2) +....+ (1+1/n)"; "<<"\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"< system("pause"); system("cls"); char t; int k,i; double s,p; cout<<"Введите количество членов ряда\n"; cin>>k; do { t=0; s=0; system("cls"); for (int i=1;i { s=s+(1+p/i); } cout<<"s="<< s< cout<<"\n"; getch(); cout<<"\n"; cout<<"Повторить? (y/n) "; cin>>t; system("cls"); } while (t=='y'); } VB.NET  Словесный алгоритм: 1. Титульный лист ( тема, условие задачи, автор,кнопка Начало); 2. Если кнопка Начало включена, то переход на 3, иначе на 1; 3. Ввод n ( текстовое окно); 4. Организация цикла от i=1 до n; 5. Вычисление a=(-1) ^ (i + 1) / (i * (i + 1)) 6.Вычислить выражение s=s+a 7. Если i>n, то переход на 8, иначе на 5 8. Вывод результата вычисления s Module Module1 Dim x, k As Integer Dim s As Double Dim str As String Sub Main() Dim k As Integer Console.WriteLine() Console.WriteLine(« ГОУ ВПО ЧГПУ им. И. Н. Ульянова») Console.WriteLine() Console.WriteLine() Console.WriteLine(« Лабораторная работа по программированию «) Console.WriteLine(« на тему “Вычисление суммы ряда”») Console.WriteLine() Console.WriteLine() Console.WriteLine(« Выполнил: студент МиИ-3а Сергеев Н. И.») Console.WriteLine(« Проверил: профессор информатики Никишев В. К.») Console.WriteLine() Console.WriteLine() Console.WriteLine() Console.WriteLine() Console.WriteLine(« Нажмите любую клавишу») Console.ReadKey() Console.Clear() str = «g» s = 1 Do Until str = «» Console.Clear() Console.WriteLine(«Введите число “n”») x = Console.ReadLine() For k = 1 To x s = s * (1 + 1 / Math.Pow(k, x)) Next Console.WriteLine(s) Console.WriteLine() Console.WriteLine(«повторить?(нажмите клавишу)») str = Console.ReadLine() Loop End Sub End Module   Лабораторная работа5: Вычисление суммы ряда. Windows-проект. Язык программирования с# Условие: Задача 1. Вычислить сумму ряда  )Задача 2. Вычислить сумму ряда с заданной точностью  Блок-схема алгоритм     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 WindowsFormsApplication23 { public partial class Form3 : Form { public Form3() { InitializeComponent(); } // Кнопка задание 1 private void button1_Click(object sender, EventArgs e) { int n = Convert.ToInt16(textBox1.Text); double s=0; for(int i=1;i<=n;i++) { double a=(1+1/Math.Pow(i,i)); s = s + a; } textBox2.Text = Convert.ToString(s); } private void button2_Click(object sender, EventArgs e) { Form1 f1 = new Form1(); Form3.ActiveForm.Hide(); f1.Show(); }  }} 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 WindowsFormsApplication23 { public partial class Form6 : Form { public Form6() { InitializeComponent(); } // Кнопка вычислить private void button1_Click(object sender, EventArgs e) { double x = Convert.ToDouble(textBox1.Text); double eps = Convert.ToDouble(textBox2.Text); int n = 0; double a = Math.Pow(-1, n + 1)*Math.Pow(x, 2 * n + 1) /(2 * n + 1); double s = 0; while (Math.Abs(a) >= eps) { n = n + 1; a = Math.Pow(-1, n + 1) * Math.Pow(x, 2 * n + 1) / (2 * n + 1); s = s + a; } textBox3.Text = Convert.ToString(s); textBox4.Text = Convert.ToString(n); } // Кнопка возврат private void button2_Click(object sender, EventArgs e) { Form1 f1 = new Form1(); Form6.ActiveForm.Hide(); f1.Show(); } } } Программа в среде VC++.NET  #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) { int n = Convert::ToInt32(textBox1->Text); double s=0; int i; double r,p; p=1; for(int i=1;i<=n;i++) { r=1+p/i; s=s+r; } //label2->Text = Convert::ToString(cal->z); label2->Text = Convert::ToString(r); textBox3->Text = Convert::ToString(s); }};} Программа на VB.NET     Public Class Form4 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Form5.Show() Me.Hide() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form1.Show() Me.Hide() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, n As Integer, p, s As Single n = Val(TextBox1.Text) p = 1 : s = 0 For i = 1 To n s = s + Math.Sin(i) p = p * (i / s) Next TextBox2.Text = p End Sub End Class Public Class Form5 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, p, t As Single, n As Integer s = 0 n = 1 t = Val(TextBox1.Text) p = Math.Pow(-1, n) / Math.Pow(n, 2) s = s + p Do Until Math.Abs(p) < t n = n + 1 p = Math.Pow(-1, n) / Math.Pow(n, 2) s = s + p Loop TextBox2.Text = Str(s) TextBox3.Text = Str(n) TextBox4.Text = Str(Math.Abs(s - Math.Pow(Math.PI, 2) / 12)) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form1.Show() Me.Hide() End Sub End Class Задания к теме Сумма ряда   Лабораторная работа 6. Одномерные массивы. Консольный вариант Цель занятия: Изучить структуру программ, основные операторы С#.NET для в ввода, преобразования и вывода одномерного числового массива. Получить навыки работ по составлению простейших программ в консольном варианте.  Программа на языке программирования С# Массивы using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace ConsoleApplication3 { class Program { static void Main(string[] args) { String й = "Да"; while (й == "Да") { Console.WriteLine("\n\n\n\n\n\n\n\n " + " одномерные массивы в консольном варианте "); Console.WriteLine(); Console.WriteLine("Условие : Создать массив, получить массивы положительных и отрицательных чисел"); Console.WriteLine(); Console.WriteLine(" Выполнил профессор Никишов В.К."); Console.WriteLine(); Console.WriteLine(); Console.ReadKey(); Console.Clear(); // int[] для_конструктора = new int[25]; Console.WriteLine("Введите размерность массива :"); int n = int.Parse(Console.ReadLine()); int[] mas = new int[25]; int j; Random rnd = new Random(); string s = ""; for (int i = 0; i < n; i++) { mas[i] = rnd.Next(-20, 20); s = s + mas[i].ToString() + " "; // } Console.WriteLine(" Исходный массив"); Console.WriteLine(s + " "); int[] masP = new int[25]; j = 0; s = ""; for (int i = 0; i < n; i++) { if (mas[i] > 0) { masP[j] = mas[i]; s = s + masP[j].ToString() + " "; j++; } } Console.WriteLine(" Массив из положительных чисел"); Console.WriteLine(s + " "); j = 0; s = ""; for (int i = 0; i < n; i++) { if (mas[i] < 0) { masP[j] = mas[i]; s = s + masP[j].ToString() + " "; j++; } } Console.WriteLine(" Массив из отрицательных чисел"); Console.WriteLine(s + " "); s = ""; int[] a = new int[25]; for (int i = 0; i < n; i++) { s += a[i].ToString() + " "; Console.ReadKey(); Console.WriteLine("Повторить программу ? Да/Нет "); й = Console.ReadLine(); Console.Clear(); } } } 2-я программа. Создать одномерный массив. Вычислить мах число, вывести последний положительный элемент. Ввести числа А В и вывести элементы массива, которые не входят в диапазон введенных чисел. using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace laba5_m_ { class Program { static void Main(string[] args) { string str; Console.WriteLine("\n\n\n\n\n\n\n\n " + " Программа одномерные массивы"); Console.WriteLine("Создать одномерный массив размерностью n. Вычилить максимальное число, последнее положительное число."); Console.WriteLine(" Ввести числа А В и вывести элементы массива , которые не входят в диапазон чисел А В "); Console.WriteLine(" \n Выполнил Никишев "); Console.ReadKey(); Console.ReadLine(); Console.Clear(); Console.WriteLine("Введите число n."); int n = int.Parse(Console.ReadLine()); int[] mas = new int[n]; Random rnd = new Random(); for (int i = 0; i < mas.Length; i++) { mas[i] = rnd.Next(-5, 11); } Console.WriteLine("Исходный массив: "); for (int i = 0; i < mas.Length; i++) Console.Write(mas[i] + " "); Console.WriteLine(); double a, b; Console.Write("Введите А: "); a = double.Parse(Console.ReadLine()); Console.Write("Введите В: "); b = double.Parse(Console.ReadLine()); int max = mas.Max(); Console.WriteLine("Максимальное число: {0}\n",max); int index=0; for (int i = 0; i < mas.Length; i++) { if (mas[i] > 0) index = i; } Console.WriteLine("Последние положительное число: {0}\n",mas[index]); int sum=0; for (int i = 0; i <= index; i++) { sum = sum+mas[i]; } Console.WriteLine("Сумма: {0}\n",sum); for (int i = 0; i < mas.Length; i++) { if ( Math.Abs(mas[i])>=a && Math.Abs(mas[i]) <= b) { mas[i] = 0; } } Boolean tmp=false; for (int i = mas.Length - 1; i >= mas.Length/2; i--) { if (mas[i] != 0) { for (int j = 0; j <= mas.Length / 2; j++) { if (mas[j] == 0) { mas[j] = mas[i]; mas[i] = 0; } } } } for (int i = 0; i < mas.Length; i++) Console.Write(mas[i] + " "); Console.ReadKey(); Console.WriteLine("\n нажми Enter для выхода из программы"); str = Console.ReadLine(); Console.ReadKey(); //Console.ReadLine(); } }} Программа С++ #include "stdafx.h" #include #include #include #include #include using namespace std; int _tmain(int argc, int n, int k, _TCHAR* argv[]) { setlocale( LC_ALL,"Russian" ); cout << "28 вар.Одномерные массивы. Консольный вариант. Выполнил Никишев Вячеслав Константинеович\n"; cout << "Введите n - размерность массива, но меньше 25\n"; k=0; n=0; while (k==0) { cin >> n; if (n>25) {printf("Задана размерность массива, превышающая норму, пожалуйста введите заного размерность массива меньше 25\n"); } else if (n<=0) {printf("Задана размерность массива меньше 1, пожалуйста введите размерность массива меньше 25, но больше 0\n"); } else k=1; } printf("Введена размерность массива n =%d\n", n); int a[25]; srand(time(NULL)|clock()); for (int i=1;i<=n;i++) {//cin >> a[i]; a[i]=-10+(rand()%(20)); } printf("Исходный массив\n"); for (int i=1;i<=n;i++) { cout << a[i] << " "; } printf("\nМассив из положительных чисел\n"); for (int i=1;i<=n;i++) {if (a[i]>0) cout << a[i] << " "; } printf("\nМассив из отрицательных чисел\n"); for (int i=1;i<=n;i++) {if (a[i]<0) cout << a[i] << " "; } printf("\nМассив из нулей\n"); for (int i=1;i<=n;i++) {if (a[i]==0) cout << a[i] << " "; } cout << "\n"; system("pause"); return 0; }  Программа на языке vb.net Module Module1 Dim x, i, n As Integer Dim a, b, c, m As Double Dim s(100) As Integer Dim str As String Sub Main() Console.WriteLine() Console.WriteLine() Console.WriteLine(" ЧГУ им. И. Н. Ульянова") Console.WriteLine() Console.WriteLine() Console.WriteLine(" Лабораторная работа по программированию ") Console.WriteLine(" на тему ' Одномерные массивы'") Console.WriteLine() Console.WriteLine() Console.WriteLine(" Выполнил: студент МиИ-3а Сергеев Н. И.") Console.WriteLine(" Проверил: профессор информатики Никишев В. К.") Console.WriteLine() Console.WriteLine() Console.WriteLine() Console.WriteLine() Console.WriteLine() Console.WriteLine() Console.WriteLine(" Нажмите любую клавишу") Console.ReadKey() Console.Clear() str = "g" Do Until str = "" Console.Clear() ' randomaze() Console.WriteLine("Введите число 'n'") n = Console.ReadLine() For i = 1 To n s(i) = Int(Rnd(1) * 21 - 10) Next i For i = 1 To n Console.WriteLine(s(i), "") ' Console.WriteLine() Next i ' c = a + b Console.WriteLine() Console.WriteLine("повторить? (нажмите клавишу)") str = Console.ReadLine() Loop End Sub End Module Лабораторная работа 7.Одномерные массивы.Windows проекты Язык программирования с#   using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Windows.Forms; namespace WindowsFormsApplication3 { public partial class Form2 : Form { public Form2() { InitializeComponent(); } int[] mas = new int[25]; int[] mas1 = new int[25]; private void button1_Click(object sender, EventArgs e) { int n = Convert.ToInt16(textBox1.Text); Random rnd = new Random(); int[] mas = new int[25]; for (int i = 1; i < n + 1; i++) { mas[i] = rnd.Next(-20, 41); mas1[i] = mas[i]; textBox2.Text = textBox2.Text + " " + Convert.ToString(mas[i]); } // int[] mas1 = new int[25]; // int j; // string s = ""; for (int i = 1; i < n-1; i++) { for (int j = i + 1; j < n; j++) { if (mas1[i] > mas1[j]) { int d = mas1[j]; mas1[j] = mas1[i]; mas1[i] = d; } } } for (int i = 1; i < n; i++) textBox3.Text = textBox3.Text + " " + mas1[i]; for (int i = 1; i < n-1; i++) { for (int j = i + 1; j < n; j++) { if (mas1[i] < mas1[j]) { int d = mas1[j]; mas1[j] = mas1[i]; mas1[i] = d; } } } for (int i = 1; i < n; i++) textBox4.Text = textBox4.Text + " " + mas1[i]; } private void button2_Click(object sender, EventArgs e) { Close(); } } } Программа на языке VB.NET    Public Class Form2 Dim s(20) As Integer Dim i, j, n, max, min, k As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click n = Val(TextBox1.Text) TextBox2.Text = " " Randomize() For i = 1 To n s(i) = Int(Rnd(1) * 21 - 10) TextBox2.Text = TextBox2.Text + " " + Str(s(i)) Next i End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox3.Text = " " max = -20 min = 20 For i = 1 To n If s(i) > max Then max = s(i) If s(i) < min Then min = s(i) Next i TextBox4.Text = min TextBox5.Text = max k = 0 For i = min To max For j = 1 To n If i <> s(j) Then k = k + 1 Next j If k = n Then TextBox3.Text = TextBox3.Text + " " + Str(i) k = 0 Next i End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Close() End Sub End Class Условие. Создать одномерный массив и выполнить сортировки методом «пузырька» и обмена на языке VB.NET Public Class Form1 Dim M(50) As Integer Dim n As Integer Dim u As Integer Dim i As Integer Dim j As Integer Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Close() End Sub Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click Randomize() textBox2.Clear() n = Val(textBox1.Text) For Me.i = 1 To n M(i) = Int(Rnd() * 100 - 50) textBox2.Text = textBox2.Text + " " + Str(M(i)) Next i For Me.i = 1 To n ' Где конечное число цикла равно количеству чисел в массиве For Me.j = 1 To n - 1 ' конечное число цикла равно количеству чисел в массиве минус один If M(j) > M(j + 1) Then ' Если предыдущие число больше следущего, то u = M(j) ' Запоминаем предыдущие число в переменную u M(j) = M(j + 1) ' Предыдущие число приравниваем следующему M(j + 1) = u ' А следующие число заменяем числом u End If Next j Next i TextBox3.Clear() For Me.i = 1 To n ' Распечатываем весь получившийся массив TextBox3.Text = TextBox3.Text + " " + Str(M(i)) ' На textBox3 Next i End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'Randomize() For Me.i = 1 To n - 1 ' Где конечное число цикла равно количеству чисел в массиве For Me.j = i + 1 To n If M(i) < M(j) Then u = M(i) M(i) = M(j) M(j) = u End If Next j Next i TextBox3.Clear() For Me.i = 1 To n ' Распечатываем весь получившийся массив TextBox3.Text = TextBox3.Text + " " + Str(M(i)) ' На textBox3 Next i End Sub End Class    |
Похожие:
 |
Методические указания для проведения лабораторных занятий по дисциплине... Лабораторные работы выполняются в среде программирования Microsoft Visual Studio 2010 на языке программирования C#. Каждый студент... |
 |
Курсовой проект 3 Тема, которую нам предписано Целью курсовой работы является закрепление теоретического материала, приобретение практических навыков проектирования Windows приложений... |
|
Инструкция пользователя по работе с тестирующим комплексом Visual Testing Studio Инструкция пользователя по работе с тестирующим комплексом Visual Testing Studio/ Игнатова Е. Н., Чехонина С. А |
|
Эксплуатационные материалы лабораторный практикум Эксплуатационные материалы: лабораторный практикум / А. Д. Синегибская. – Братск: БрГУ, 2011. – 65 с |
|
Задачах программирования лабораторный практикум по дисциплине «Системное... Методические указания предназначены для подготовки дипломированных специалистов направления 230100 «Информатика и вычислительная... |
|
Курсовой проект был создан с помощью среды разработки Visual Studio... Разработка приложения для построения динамической изображения трехмерной модели объекта «Паровоз» |
|
Лабораторная работа №7 «Подготовка и проведение тестирования» Изучить методы подготовки и проведения тестирования и получить навыки создания и выполнения тестов в среде ms visual Studio для приложений... |
|
Инструментарий веб-разработчика: Apache, php, Mysql, phpMyAdmin Лабораторный... Инструментарий веб-разработчика: Apache, php, Mysql, phpMyAdmin: Лабораторный практикум по дисциплине «Сети ЭВМ и телекоммуникации»... |
|
Электронных ресурсов Басангова Е. О. Лабораторный практикум “Компьютерная анимация в среде Macromedia Flash” |
|
Название Ссылка Лабораторный практикум по биологии гоу впо уральского Государственного лесотехнического университета |
|
Лекция 1 Молчанов А. Ю. Системное программное обеспечение. Лабораторный практикум: – спб.: Питер, 2005. – 284 с |
|
Языки программирования. Создание программы в языке Visual Basic Экспериментальное исследование тест работы программы выявление ошибок 16 |
|
Глава I. Цифровое представление звуковых сигналов. Ii программы для создания и обработки цифрового звука и создание цор «практикум по работе с программой «fl-studio» |
|
Среднетехнический факультет Лабораторный практикум составлен для проведения лабораторных работ по дисциплине «Технохимический контроль производства» |
|
Лабораторный практикум по дисциплине Лабораторные работы должны выполняться в той последовательности, в которой они приводятся в данной разработке |
|
Уро Тема урока: Язык программирования Visual Basic. Работа с массивами Ввести понятие массива, его размерности. Познакомиться с фиксированными и динамическими массивами, способами их описания |