Студопедия
Главная страница | Контакты | Случайная страница

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

Билет 17

 

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 | Поможем написать вашу работу | Нарушение авторских прав

1 | 2 | <== 3 ==> | 4 |


lektsii.net - Лекции.Нет - 2014-2025 год. (0.006 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав