|
2. Разработать алгоритм нахождения гипотенузы и площади прямоугольного треугольника. Записать в виде блок-схемы. Реализовать алгоритм на языке программирования.
Решение:
Реализация на языке VB.NET (приложение Windows Forms: 2 текстовых поля, кнопка и 2 надписи для вывода результата)
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A As Double
Dim B As Double
Dim C As Double
Dim S As Double
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
C = Math.Sqrt(A ^ 2 + B ^ 2)
S = A * B / 2
Label1.Text = C
Label2.Text = S
End Sub
End Class
Билет 18
2. Построение алгоритма и его реализация в среде учебного исполнителя Чертежник.
Напишите программу для чертежника, рисующую следующий узор: сторона равна 20.
Решение:
Программа_Узор
{
повтори (4)
{
квадрат;
}
}
квадрат
{
опусти_перо;
вектор (0,20);
вектор (20,0);
вектор (0,-20);
вектор (-20,0);
подними_перо;
вектор (20,20);
}
Билет 20
2. Разработать алгоритм нахождения суммы всех целых чисел от 1 до n. Записать в виде блок-схемы. Реализовать алгоритм на языке программирования.
Решение:
Ввод n |
Начало |
i(1,n) |
S = S + i |
Конец |
Ввод n |
Реализация на языке VB.NET (консольное приложение)
Module Module1
Sub Main()
Dim i, N, S As Integer
Console.Write("N = ")
N = Val(Console.ReadLine())
For i = 1 To N
S = S + i
Next
Console.Write("S = " & S.ToString())
End Sub
End Module
ИНСТРУКЦИЯ
По технике безопасности при проведении государственной итоговой аттестации
Дата добавления: 2015-01-30; просмотров: 50 | Поможем написать вашу работу | Нарушение авторских прав |