Алгоритмическая структура «ветвление»

Составить блок-схему алгоритма и программу на языке Visual Basic for Application

Задача № 2. Ввести с клавиатуры число х

и определить положительное оно или отрицательное.

Постановка задачи.

Дано: x.

Найти:y.

Связь: y = x, если x > 0.

в противном случае y = -x

П рограмма на VB for Application:

Sub prog2()

Dim x, y As Integer

x = CInt(InputBox("Значение х =", "Ввод числа х"))

If x > 0 Then

y=x

Else

y=-x

End If

MsgBox ("Значение y =" + CStr(y))

End Sub

Составить блок-схему алгоритма и программу на языке Visual Basic for Application

Задача № 3. Найти площадь большего круга.

Постановка задачи.

Дано: r1, r2 - радиусы круга

Найти: S – площадь круга

Связь:

Если r1 > r2, то S =3,14r1²,

в противном случае S =3,14 * r2²

Ограничений нет

Программа на VB for Application:

Sub prog3()

Dim r1, r2, S As Single

r1 = CSng(InputBox("ввод r1"))

r2 = CSng(InputBox("ввод r2"))

If r1 > r2 Then

S = 3.14 * r1 * r1

Else: S = 3.14 * r2 * r2

End If

MsgBox ("площадь большего круга" + CStr(S))

E nd Sub

Составить блок-схему алгоритма и программу на языке Visual Basic for Application

Задача № 4. вычислить Y = X .

Постановка задачи.

Дано: x – значение аргумента.

Найти:y- значение функции.

Связь: если x  0, то y = x,

в противном случае y = -x

Программа на VB for Application:

Sub prog4()

Dim x, y As Integer

x = CInt(InputBox("Значение х=", "Введи значение х"))

If x >= 0 Then

y = x

Else

y = -x

End If

MsgBox ("Значение y =" + CStr(y))

End Sub

Алгоритмическая структура «выбор»

Составить блок-схему алгоритма и программу на языке Visual Basic for Application

З

Программа на VB for Application:

Sub prog5()

Dim x, s As Integer

x = CInt(InputBox("Введи значение х"))

If x < 0 Then

MsgBox ("S=-1”)

Else

If x = 0 Then

MsgBox ("S=0”)

Else

MsgBox ("S=1”)

End If

End If

End Sub

адача № 5.

Постановка задачи

Дано: число Х.

Найти: S.

Связь:

Если x < 0, то S= -1,

в противном случае, если х=0, то

S=0, в противном случае S=1.

Самостоятельное задание

Задача № 6. Составить программу определения большей из площадей двух фигур – квадрата или круга. Вывести на экран название большей фигуры и значение ее площади.

Дано:

а – сторона квадрата

r - радиус круга

Найти:

Sa – площадь квадрата

Sr – площадь круга

Сравнить вычисленные значения площадей и вывести значение большей из площадей на экран.

Связь:

Если Sa >Sr, то Sa = a²,

в противном случае Sr = 3,14r².

Ограничений нет.

Таблица 1. Основные типы данных (переменных) в Visual Basic

Тип данных	Возможные значения	Размер (байтов)	Прис-тавка к имени	Диапазон	Суффикс
Byte	Целые числа	1	byt	от 0 до 255
Integer	Целые числа	2	int	от -32768 до 32767	%
Long	Целые числа двойной длины	4	lng	от -2147483648 до 2147483647	&
Single	Десятичные числа одинарной точности	4	sng	от -3.402823E+38 до -1.401298E-45 и от 1.401298E-45 до 3.402823E+38	!
Double	Десятичные числа двойной точности	8	dbl	от -1.79769313486232E+308 до -4.9406564584127E-324 и от 4.9406564584127E-324 до 1.79769313486232E+308	#
Boolean	Логические числа	2	bln	True или False
String	Строка символов	1+1 на символ	str	от 0 до 65536 символов	$
Currency	Числа в денежном формате	8	cur	от –9223372036685477.5808 до 9223372036685477.5807	@
Date	Дата		dtm	от 01.01.100 до 31.12.9999
Object	Ссылки на любой объект	4	obj	любой определенный объект
Array		Определяется количеством и размером элементов
Variant	Любые значения	Определяется записанными данными	vnt	любой встроенный тип данных

1. Н.В. Макарова «Информатика и ИКТ. Учебник 10 класс (Базовый уровень)», ООО «Питер Пресс», ОАО «Московские учебники», 2008 г.

2. Н.В. Макарова «Информатика и ИКТ» Учебник 11 класс (Базовый уровень)», ООО «Питер Пресс», ОАО «Московские учебники», 2008 г

3. Угринович Н.Д. «Информатика и ИКТ» Учебник для 10 класса (Профильный уровень), 4-е издание, М., БИНОМ, Лаборатория знаний, ОАО «Московские учебники», 2008 г.

4. М.Д. Князева. «Алгоритмика. От алгоритма к программе» Кудиц-Образ. Москва. 2006.

5. ПЭВМ IBM Pentium, Windows XP, Microsoft Offise, Microsoft Excel, встроенный в Microsoft Excel язык программирования Visual Basic for Application.

11