Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Нарисовать путь грибника по координатам

Imports System

Imports System.Windows.Forms

Imports System.Drawing

Imports System.IO

Public Class frmFile

Dim X(), Y() As Integer

Dim N As Integer = 1

Dim picDTrack As Graphics

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

Dim path As String = "mushroomer.txt" ' имя файла

Dim fileinfo = New FileInfo(Path) ' объявляем новый экземпляр файла

Dim InProbel As Integer = 0

lstXY.Items.Clear() ' очистка ListBox

Dim streamreader As StreamReader = fileinfo.OpenText() ' Открываем файл для чтения

Dim sText As String = "" ' Строка текста в файле

Dim p As String = " " ' Разделитель чисел (пробел)

sText = streamreader.ReadLine()' Читаем строку из файла

Do

ReDim Preserve X(N), Y(N) ' Увеличиваем размер массива

InProbel = sText.IndexOf(p) 'Определяем место расположения символа p (пробела)

X(N) = Convert.ToUInt16(sText.Substring(0, InProbel)) 'Координата X от начала строки до пробела

Y(N) = Convert.ToUInt16(sText.Substring(InProbel + 1, sText.Length - InProbel - 1)) 'Координата Y после пробела до конца строки

lstXY.Items.Add(Convert.ToString(X(N)) + " " + Convert.ToString(Y(N))) 'Запись в ListBox для контроля

N = N + 1 'Увеличение счетчика на 1

sText = streamreader.ReadLine()

Loop Until sText = ""

End Sub

Private Sub btnDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDraw.Click

picDTrack = picTrack.CreateGraphics()

Dim greenPen = New Pen(Color.Green)

Dim i As Integer

Dim X1 As Integer = X(1)

Dim Y1 As Integer = Y(1)

For i = 2 To N - 1

picDTrack.DrawLine(greenPen, X1, Y1, X(i), Y(i))

X1 = X(i)

Y1 = Y(i)

Next

End Sub

End Class

Задание 2

По городу шел Робот из точки с координатами (X1,Y1) в точку с координатами (X2,Y2), преодолевая множество препятствий. При каждом повороте бортовая ЭВМ Робота фиксировала координаты точки поворота. Написать программу, которая по заданной последовательности координат Робота, находящихся во входном файле input.txt, изобразит путь Робота и подсчитает количество поворотов налево.

Задание 3

В текстовом файле school.txt даны наименования школ и их адреса (в качестве разделителя используется точка с запятой). Написать программу, которая после ввода с клавиатуры наименования школы выдаст на экран ее адрес.

Контрольная работа №1

Задание 1.

Составить алгоритм, при помощи которого можно вычислить значение данной функции при любом значении X (действительное число). В случае, если функция при данном значении X не определена, вывести ответ «функция не определена».

Задание 2.

Составьте алгоритм, в ходе выполнения которого на форме будет нарисован график улитки Паскаля в полярных координатах. Для преобразования полярных координат в декартовые используйте формулы: , . Параметр K вводится через объект «Окно редактирования».

Задание 3.

Составьте алгоритм, в ходе выполнения которого будет найден самых длинноногих школьников в классе. Значения параметров приведены в следующей таблице.