Программа еа языке 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

Windows проекты

Язык программирования с#

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Text;

using System.Windows.Forms;

namespace massiv

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void menuItem3_Click(object sender, EventArgs e)

{

string sVal = textBox1.Text;

int n = Convert.ToInt16(sVal);

Random rnd = new Random();

// double[] aArray = new double[iValue];

//double[] dArray = new double[iValue];

int[] mas = new int[25];

for (int i = 0; i < n; i++)

{

mas[i] = rnd.Next(-20, 41);

textBox2.Text = textBox2.Text + " " + Convert.ToString(mas[i]);

// Вывод исходного массива в компонент ListBox

listBox1.Items.Add("mas[" +i + "]=" + mas[i]);

}

int[] mas1 = new int[25];

int j = 0;

string s = "";

for (int i = 0; i < n; i++)

{

if (mas[i] > 0) { mas1[j] = mas[i]; s = s + mas1[j].ToString() + " "; j++; }

}

//Вывод положительного массива в компонент TextBox

textBox3.Text = textBox3.Text + " " + s;

j = 0;

s = "";

for (int i = 0; i < n; i++)

{

if (mas[i] < 0) { mas1[j] = mas[i]; s = s + mas1[j].ToString() + " "; j++; }

}

//Вывод отрицательного массива в компонент TextBox

textBox4.Text = textBox4.Text + " " + s;

}

private void menuItem2_Click(object sender, EventArgs e)

{

Close();

}

private void menuItem4_Click(object sender, EventArgs e)

{

//Условие

MessageBox.Show("Сформировать массивы из положительных и отрицательных чисел”);

}

private void menuItem5_Click(object sender, EventArgs e)

{

//Автор

MessageBox.Show("Профессор Никишев В. К.");

}

Программа на языке 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

Тема: Разработка одномерного массива с помощью компонента( класса) ArrayList

Public Class Form2

Dim n, i, t, p, z As Integer

Dim strana, transport As String

Dim x As String

Dim mylist As New ArrayList()

Dim f As Integer

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

n = Val(TextBox1.Text) 'ввод количества предложений

ListBox1.Items.Clear()

mylist.Clear()

For Me.i = 1 To n 'ввод данных

strana = InputBox("введите элемент массива")

'вывод в Listbox

mylist.Add(strana)

ListBox1.Items.Add(Str(i) + " " + mylist.Item(i - 1))

Next

End Sub

Private Sub НазадToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles НазадToolStripMenuItem.Click

Form1.Show()

Me.Hide()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

'добавление нового элемента

strana = InputBox("введите элемент массива")

mylist.Add(strana)

ListBox1.Items.Add(Str(i) + " " + mylist.Item(ListBox1.Items.Count))

i = i + 1

n = n + 1

End Sub

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

ListBox1.Items.Clear()

For Me.i = 1 To n 'сортировка

mylist.Sort()

ListBox1.Items.Add(Str(i) + " " + mylist.Item(i - 1))

Next

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

'удаление элемента

mylist.Remove(mylist.Item(f))

n = n - 1

ListBox1.Items.Clear()

For Me.i = 1 To n

ListBox1.Items.Add(Str(i) + " " + mylist.Item(i - 1))

Next

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

f = ListBox1.SelectedIndex

End Sub

‘поиск

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

x = TextBox2.Text

If mylist.IndexOf(x) >= 0 Then

ListBox1.SelectedIndex = mylist.IndexOf(x)

Else : MsgBox("по вашему запросу ничего не найдено")

End If

End Sub

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

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

End Class

Задания по теме Одномерные массивы

1. Найти сумму положительных элементов массива.

2. Найти сумму всех элементов массива, кратных 5.

3. Найти сумму всех четных элементов массива, стоящих на четных местах.

4. Найти сумму первых пяти элементов массива.

5. Найти сумму элементов с k1 поk2, гдеk1,k2 вводятся с клавиатуры.

6. Найти сумму элементов, больших данного числа А.

7. Найти сумму элементов, принадлежащих промежутку от А до В.

8. Найти номера всех отрицательных элементов массива (вывести их на экран). Если таких элементов нет, то сообщить об этом.

9. Найти номера всех элементов с максимальным значением.

10. Найти количество отрицательных нечетных элементов массива.

11. Сколько элементов массива превосходят по модулю заданное число А?

12. Найти все элементы массива, кратные 3 или 5. Сколько их?

13. Есть ли в данном массиве два соседних положительных элемента? Найти номера первой и последней пары.

14. Есть ли в данном массиве элемент, равный заданному числу? Если есть, то вывести номер одно из них.

15. Изменить знак у максимального по модулю элемента массива.

16. Заменить все четные элементы массива их квадратами, а нечетные – удвоить.

17. Вычесть из положительных элементов элемент с номером k1, а к отрицательным прибавить элементk2, нулевые элементы оставить без изменения.

18. К четным элементам прибавить А, а из элементов с четными номерами вычесть В.

19. Даны два целочисленных массива, состоящие из одинакового числа элементов. Получить третий массив той же размерности, каждый элемент которого равен большему из соответствующих элементов данных массивов.

20. Дан первый член геометрической прогрессии и её знаменатель. Найти первые nчленов этой прогрессии.

21. Получить первые nчисел Фибоначчи, - первые два числа равны 1, а каждое следующее сумме двух предыдущих.

22. Даны два массива. Найти среднее арифметическое элементов каждого и сравнить эти значения.

23. Дан одномерный массив А, состоящий из 2nэлементов. Поменять его половины следующим образом: первый элемент поменять с последним, второй – с предпоследним и т.д.

24. Дан одномерный массив. Переставить в обратном порядке элементы массива, расположенные между минимальным и максимальным.