1. (на 3 балла). Считать значение из файла input и вывести утроенный результат значения файла в файл output и на экран консольного приложения
2. (на 6 баллов). Если на одну чашу весов посадить Дашу, которая весит n кг, и Наташу, которая на 5 кг меньше Даши, а на другую насыпать m кг конфет, то сколько кг конфет придется съесть несчастным, чтобы чаши весов уравновесились?
3. (на 9 баллов). На одном маленьком квадратном острове, длина которого была х м, жили у потерпевших кораблекрушение робинзонов. Выяснить, на сколько квадратных метров меньше пришлось на каждого робинзона после того, как на остров высадился еще один робинзон.
4. (на 12 баллов). Из террариума убежали х гадюк, у кобр и z гюрз. Длина каждой гадюки 1 м, каждой кобры 1м 30 см, а гюрзы 1 м 15 см. Сколько полных метров ядовитых змей убежало из террариума? Какую длину они составляют в сантиметрах?
понедельник, 21 ноября 2011 г.
Разработка линейных программ с текстовыми файлами
В качестве комментария к данному сообщению необходимо отправить комментарии к строкам программы.
Option Strict On
Module Modulel
Sub Main()
Dim fileReader As String, a As Integer
fileReader = My.Computer.FileSystem.ReadAllText("C:\Documents and Settings\Yulia\Рабочий стол\1.txt")
a = CInt(fileReader)
Console.WriteLine(2 * a)
Console.ReadLine()
End Sub
End Module
Option Strict On
Module Modulel
Sub Main()
Dim fileReader As String, a As Integer
fileReader = My.Computer.FileSystem.ReadAllText("C:\Documents and Settings\Yulia\Рабочий стол\1.txt")
a = CInt(fileReader)
Console.WriteLine(2 * a)
Console.ReadLine()
End Sub
End Module
вторник, 15 ноября 2011 г.
Типы данных в VB.Net. Преобразование типов данных.
Числовые типы данных
Преобразования разнотипных значений
В VB .NET предусмотрен режим жесткой проверки типов Option Strict. Чтобы активизировать его, включите следующую команду в начало программы (также можно воспользоваться флажком Strict Type Checking на вкладке Build диалогового окна Project Properties):
Option Strict On
При активизации этого режима (а это следует делать всегда!) VB .NET требует, чтобы любые преобразования типов, которые могут привести к потере данных, выполнялись явно. Например, при преобразовании Single к типу Integer может произойти потеря точности, поскольку тип Integer не позволяет представить весь интервал допустимых значений типа Single. С другой стороны, если потеря данных исключена (скажем, при преобразовании Integer в тип Long или Decimal), VB .NET выполняет преобразование автоматически. В документации VB .NET преобразования без потери данных называются расширяющими преобразованиями (widening conversions)
Функции явного преобразования типов
Функция Описание
CBool Преобразует выражение к типу Boolean
CByte Преобразует выражение к типу Byte
CInt Преобразует выражение к типу Integer с округлением
Clng Преобразует выражение к типу Long с округлением
CSng Преобразует выражение к типу Single
CDate Преобразует выражение к типу Date
СDbl Преобразует выражение к типу Double
CDec Преобразует выражение к типу Decimal
CStr Преобразует выражение к типу String
CChar Преобразует первый символ строки к типу Char
VB .NET выполняет числовые преобразования только в том случае, если преобразуемое число входит в интервал допустимых значений нового типа; в противном случае выдается сообщение об ошибке.
Ниже приведен хрестоматийный пример — преобразование температуры по Цельсию в температуру по шкале Фаренгейта. Мы руководствуемся следующими предположениями:
1. Пользователь завершает ввод текста нажатием клавиши Enter.
2. Все введенные символы воспринимаются методом ReadLine().
3. Пользователь ввел число, поэтому введенный текст преобразуется к числовому типу функцией CDec (конечно, на практике введенные данные следовало бы предварительно проанализировать):
' Преобразование температуры по Цельсию в температуру по Фаренгейту
Option Strict On Module ' Вкючаем опцию жесткой проверки типов
Modulel Sub Main()
Dim cdeg As Decimal ' Описываем переменную, отражающую температуру в Цельсиях
Console. Write("Введите значение в Цельсиях...") ' Вывод сообщения на экран Введите значение в Цельсиях...
cdeg = CDec(Console.ReadLine()) ' Считывание с клавиатуры значения в переменную cdeg преобразованием в тип Decimal
Dim fdeg As Decimal ' Описываем переменную fdeg
fdeg = (((9@ / 5) * cdeg) + 32) ' Инициализируем переменную fdeg и согласно формулы преобразования присваиваем значение
Console.WriteLine(cdeg & " is " & fdeg & " degrees Fahrenheit.") 'Выводим сообщение и результат перевода на экран
Console. ReadLine() 'Задерживаем окно с результатом до нажатия клавиши enter
End Sub
End Module
Обратите внимание на суффикс @ — он гарантирует, что при вычислениях будет использоваться тип Decimal. Если убрать этот суффикс, то при включенной жесткой проверке типов будет выдано сообщение об ошибке!
| Числовой тип | Пояснение | Пример |
|---|---|---|
| Byte | 1-байтовое целое без знака в интервале от 0 до 255 | 5, 17, 255, но не 257 и не 678 |
| Short | 2-байтовое целое со знаком в интервале от -32 768 до 32 767 | 5, 17, 255, но не 32 768 и не 1000000 |
| integer | 4-байтовое целое со знаком в интервале от -2 147 483 648 до 2 147 483 647 | 5, 17, 255, 32 768, 1000000, но не -2 147 483 649 |
| Long | 8-байтовое целое со знаком в интервале от -9 223 372 036 854 775 808 до 9 223 372 036 854 775 807 | 5, 17, 255, 32 768, 1000000, -2 147 483 649, но не 9 223 372 036 854 775 809 |
| Single | 4-байтовое вещественное число | 5, 17,3, -255, 32 768,40 |
| Double | 8-байтовое вещественное число | 5, 17,3, -255, 32 768,40 |
| Decimal | 12-байтовое вещественное число, гарантирующее отсутствие ошибок округления в громадном интервале допустимых значений с 28 значащими цифрами. Формальное определение гласит, что тип Decimal предназначен для хранения чисел с мантиссой в интервале ±79 228 162 514 264 337 593 543 950 335, масштабируемых до произвольного порядка при условии, что количество значащих цифр не превышает 28. | Таким образом, наименьшее число, представляемое типом Decimal, равно ±0.0000000000000000000000000001. |
В VB .NET предусмотрен режим жесткой проверки типов Option Strict. Чтобы активизировать его, включите следующую команду в начало программы (также можно воспользоваться флажком Strict Type Checking на вкладке Build диалогового окна Project Properties):
Option Strict On
При активизации этого режима (а это следует делать всегда!) VB .NET требует, чтобы любые преобразования типов, которые могут привести к потере данных, выполнялись явно. Например, при преобразовании Single к типу Integer может произойти потеря точности, поскольку тип Integer не позволяет представить весь интервал допустимых значений типа Single. С другой стороны, если потеря данных исключена (скажем, при преобразовании Integer в тип Long или Decimal), VB .NET выполняет преобразование автоматически. В документации VB .NET преобразования без потери данных называются расширяющими преобразованиями (widening conversions)
Функции явного преобразования типов
Функция Описание
CBool Преобразует выражение к типу Boolean
CByte Преобразует выражение к типу Byte
CInt Преобразует выражение к типу Integer с округлением
Clng Преобразует выражение к типу Long с округлением
CSng Преобразует выражение к типу Single
CDate Преобразует выражение к типу Date
СDbl Преобразует выражение к типу Double
CDec Преобразует выражение к типу Decimal
CStr Преобразует выражение к типу String
CChar Преобразует первый символ строки к типу Char
VB .NET выполняет числовые преобразования только в том случае, если преобразуемое число входит в интервал допустимых значений нового типа; в противном случае выдается сообщение об ошибке.
Ниже приведен хрестоматийный пример — преобразование температуры по Цельсию в температуру по шкале Фаренгейта. Мы руководствуемся следующими предположениями:
1. Пользователь завершает ввод текста нажатием клавиши Enter.
2. Все введенные символы воспринимаются методом ReadLine().
3. Пользователь ввел число, поэтому введенный текст преобразуется к числовому типу функцией CDec (конечно, на практике введенные данные следовало бы предварительно проанализировать):
' Преобразование температуры по Цельсию в температуру по Фаренгейту
Option Strict On Module ' Вкючаем опцию жесткой проверки типов
Modulel Sub Main()
Dim cdeg As Decimal ' Описываем переменную, отражающую температуру в Цельсиях
Console. Write("Введите значение в Цельсиях...") ' Вывод сообщения на экран Введите значение в Цельсиях...
cdeg = CDec(Console.ReadLine()) ' Считывание с клавиатуры значения в переменную cdeg преобразованием в тип Decimal
Dim fdeg As Decimal ' Описываем переменную fdeg
fdeg = (((9@ / 5) * cdeg) + 32) ' Инициализируем переменную fdeg и согласно формулы преобразования присваиваем значение
Console.WriteLine(cdeg & " is " & fdeg & " degrees Fahrenheit.") 'Выводим сообщение и результат перевода на экран
Console. ReadLine() 'Задерживаем окно с результатом до нажатия клавиши enter
End Sub
End Module
Обратите внимание на суффикс @ — он гарантирует, что при вычислениях будет использоваться тип Decimal. Если убрать этот суффикс, то при включенной жесткой проверке типов будет выдано сообщение об ошибке!
понедельник, 14 ноября 2011 г.
Комплексная практическая работа № 2. «Основи об’єктно-орієнтованого програмування. Робота у середовищі програмування», «Лінійні алгоритми. Введення та виведення даних»
Тестування:
1. В состав основных элементов управления интерфейса Visual Basic входит:
а) окно Результатов;
б) окно Панель инструментов;
в) окно Программный код;
г) панель задач;
д) окно Конструктор форм;
є) окно формул.
2. Среди приведенных понятий укажите объекты Формы, используемые при создании проекта:
а) PictureBox;
б) Name;
в) Label;
г) String;
д) TextBox;
е) Button.
3. Как вы думаете, какие из приведенных записей могут быть операторами присваивания:
а) Sngxyz = 171.543
Intx + inty = ints1 + ints2
б) strA1 = ”126”
в) intA * 3 = intB
г) sngs = sngs + sngt * (snga + 2)
д) lngM = |L|
е) sngb * 2 – 4 * snga * sngc = 0
4. Укажите свойства, которые можно присваивать объектам формы:
а) Dim
б) BackColor
в) Case
г) Name
д) Visible
е) Label
ж) Text
5. Укажите типы числовых переменных, принимающих только целые значения:
а) integer;
б) string;
в) Long;
д) Double;
е) byte;
ж) Single;
з) Boolean.
6. Среди приведенных понятий укажите объекты Формы, используемые при создании проекта:
PictureBox;
Name;
Label;
String;
TextBox;
Button.
7. Как вы думаете, какие из приведенных записей могут быть операторами присваивания:
Код Visual Basic
Sngxyz = 171.543
Intx + inty = ints1 + ints2
strA1 = ”126”
intA * 3 = intB
sngs = sngs + sngt * (snga + 2)
lngM = |L|
sngb * 2 – 4 * snga * sngc = 0
8. Укажите свойства, которые можно присваивать объектам формы:
Dim
BackColor
Case
Name
Visible
Label
Text
9. Среди приведенных записей укажите те, которые могут быть именами переменных:
sngSum
Dim
intX124
B&
inta*a
EK.VED
B4
10. Каково будет значение переменной после выполнения операций присваивания:
intX = 5
intX = intX + intX
а) 5
б) 15
в) 25
г) 10
11. Выбрать последовательность команд, меняющих местами две величины X и Y.
а) X =Y: Y =X
б) X =A: X =Y: A =Y
в) X =Y
г) A =X: X =Y : Y =A
12. Каково будет значение переменной после выполнения операций присваивания:
intX = 3 + Abs(-5)
intX = intX + intX
а) 4
б) 16
в) 9
г) 8
Практична частина
Составить программу вычисления ограды (р) сада прямоугольной формы со сторонами а и b и количества необходимых удобрений (d), если на 1 метр квадратный необходимо k г удобрений.
1. В состав основных элементов управления интерфейса Visual Basic входит:
а) окно Результатов;
б) окно Панель инструментов;
в) окно Программный код;
г) панель задач;
д) окно Конструктор форм;
є) окно формул.
2. Среди приведенных понятий укажите объекты Формы, используемые при создании проекта:
а) PictureBox;
б) Name;
в) Label;
г) String;
д) TextBox;
е) Button.
3. Как вы думаете, какие из приведенных записей могут быть операторами присваивания:
а) Sngxyz = 171.543
Intx + inty = ints1 + ints2
б) strA1 = ”126”
в) intA * 3 = intB
г) sngs = sngs + sngt * (snga + 2)
д) lngM = |L|
е) sngb * 2 – 4 * snga * sngc = 0
4. Укажите свойства, которые можно присваивать объектам формы:
а) Dim
б) BackColor
в) Case
г) Name
д) Visible
е) Label
ж) Text
5. Укажите типы числовых переменных, принимающих только целые значения:
а) integer;
б) string;
в) Long;
д) Double;
е) byte;
ж) Single;
з) Boolean.
6. Среди приведенных понятий укажите объекты Формы, используемые при создании проекта:
PictureBox;
Name;
Label;
String;
TextBox;
Button.
7. Как вы думаете, какие из приведенных записей могут быть операторами присваивания:
Код Visual Basic
Sngxyz = 171.543
Intx + inty = ints1 + ints2
strA1 = ”126”
intA * 3 = intB
sngs = sngs + sngt * (snga + 2)
lngM = |L|
sngb * 2 – 4 * snga * sngc = 0
8. Укажите свойства, которые можно присваивать объектам формы:
Dim
BackColor
Case
Name
Visible
Label
Text
9. Среди приведенных записей укажите те, которые могут быть именами переменных:
sngSum
Dim
intX124
B&
inta*a
EK.VED
B4
10. Каково будет значение переменной после выполнения операций присваивания:
intX = 5
intX = intX + intX
а) 5
б) 15
в) 25
г) 10
11. Выбрать последовательность команд, меняющих местами две величины X и Y.
а) X =Y: Y =X
б) X =A: X =Y: A =Y
в) X =Y
г) A =X: X =Y : Y =A
12. Каково будет значение переменной после выполнения операций присваивания:
intX = 3 + Abs(-5)
intX = intX + intX
а) 4
б) 16
в) 9
г) 8
Практична частина
Составить программу вычисления ограды (р) сада прямоугольной формы со сторонами а и b и количества необходимых удобрений (d), если на 1 метр квадратный необходимо k г удобрений.
среда, 9 ноября 2011 г.
Лабораторная работа № 2. "Разработка линейных программ, осуществляя ввод и вывод в текстовые файлы"
Задания предыдущей лабораторной работы выполнить с текстовыми файлами.
Лабораторная работа № 1"Разработка проектов линейной структуры"
1. Найти силу Всемирного тяготения, между двумя телами, любой массы и на любом расстоянии.
2. Найти пройденный путь при прямолинейном равноускоренном движении, если известны начальная и конечная скорости и ускорение (предусмотреть возможность изменения значений этих величин).
3. Найти пройденный путь при прямолинейном равноускоренном движении, если известны начальная скорость, ускорение и время движения (предусмотреть возможность изменения значений этих величин).
4. Составить программу для нахождения длин диагоналей L и R параллелограмма, по двум смежным сторонам а, в, и углу между ними С (в градусах).
5. Составить программу для нахождения площади S и высоты h параллелограмма, по двум смежным сторонам а, в, и углу между ними С (в градусах).
6. Составить программу для нахождения площади треугольника S и радиуса вписанной окружности r, если известны три стороны треугольника а, в, с.
7. Найти кинетическую энергию тела любой массы, движущегося с любой скоростью.
2. Найти пройденный путь при прямолинейном равноускоренном движении, если известны начальная и конечная скорости и ускорение (предусмотреть возможность изменения значений этих величин).
3. Найти пройденный путь при прямолинейном равноускоренном движении, если известны начальная скорость, ускорение и время движения (предусмотреть возможность изменения значений этих величин).
4. Составить программу для нахождения длин диагоналей L и R параллелограмма, по двум смежным сторонам а, в, и углу между ними С (в градусах).
5. Составить программу для нахождения площади S и высоты h параллелограмма, по двум смежным сторонам а, в, и углу между ними С (в градусах).
6. Составить программу для нахождения площади треугольника S и радиуса вписанной окружности r, если известны три стороны треугольника а, в, с.
7. Найти кинетическую энергию тела любой массы, движущегося с любой скоростью.
Подписаться на:
Сообщения (Atom)