Презентация на тему Основные типы алгоритмических структур

выполняются последовательно одна за другой
БЛОК-СХЕМА
ЛИНЕЙНОГО АЛГОРИТМА
ЛИНЕЙНЫЙ АЛГОРИТМ НА

VISUAL BASIC

НАЧАЛО

ВВОД ДАННЫХ

КОМАНДА ПРИСВАИВАНИЯ 1

. . . . . . .

ВЫВОД ИСКОМЫХ

КОНЕЦ

Dim <СПИСОК ПЕРЕМЕННЫХ> As <ТИП ПЕРЕМЕННЫХ >
Private Sub Form_Load()
<КОМАНДА ВВОДА> (НАПРИМЕР, InputBox)
<КОМАНДА ПРИСВАИВАНИЯ 1>
<КОМАНДА ПРИСВАИВАНИЯ 2>
<КОМАНДА ПРИСВАИВАНИЯ 3>
. . . . . . . . . . . .
<КОМАНДА ПРИСВАИВАНИЯ n>
<КОМАНДА ВЫВОДА> (НАПРИМЕР, MsgBox или Print)
End Sub

ЛИНЕЙНЫЙ АЛГОРИТМ НА QBASIC

Dim <СПИСОК ПЕРЕМЕННЫХ> As <ТИП ПЕРЕМЕННЫХ >
<КОМАНДА ВВОДА> (НАПРИМЕР, Input)
<КОМАНДА ПРИСВАИВАНИЯ 1>
<КОМАНДА ПРИСВАИВАНИЯ 2>
<КОМАНДА ПРИСВАИВАНИЯ 3>
. . . . . . . . . . . .
<КОМАНДА ПРИСВАИВАНИЯ n>
<КОМАНДА ВЫВОДА> (НАПРИМЕР, Print)
End

Program <ИМЯ ПРОГРАММЫ> ;
Var <СПИСОК ПЕРЕМЕННЫХ> : <ТИП ПЕРЕМЕННЫХ> ;
Begin
<КОМАНДА ВВОДА> (НАПРИМЕР, Readln)
<КОМАНДА ПРИСВАИВАНИЯ 1>
<КОМАНДА ПРИСВАИВАНИЯ 2>
. . . . . . . . . . . .
<КОМАНДА ПРИСВАИВАНИЯ n>
<КОМАНДА ВЫВОДА> (НАПРИМЕР, Writeln)
End .

ЛИНЕЙНЫЙ АЛГОРИТМ НА PASCAL

Val(Текст3.Text)
p = (a + b + c) / 2
Метка5.Caption

= Int(Sqr(p * (p - a) * (p - b) * (p - c)))
End Sub

Private Sub Command2_Click()
Текст1.Text = "": Текст2.Text = ""
Текст3.Text = "": Метка5.Caption = ""
End Sub

Пример программы линейного алгоритма

Задание: Составить программу вычисления площади произвольного треугольника по трем известным сторонам a, b, c (по формуле Геррона)

одна или другая серия команд в зависимости от истинности

или ложности условия

ФРАГМЕНТ БЛОК-СХЕМЫ
ВЕТВЯЩЕГОСЯ АЛГОРИТМА

ФРАГМЕНТ ВЕТВЯЩЕГОСЯ АЛГОРИТМА НА QBASIC

УСЛОВИЕ

СЕРИЯ КОМАНД 1

СЕРИЯ КОМАНД 2

да

нет

If <УСЛОВИЕ> then
<СЕРИЯ КОМАНД 1>
Else
<СЕРИЯ КОМАНД 2>
End if

ФРАГМЕНТ ВЕТВЯЩЕГОСЯ АЛГОРИТМА НА VBASIC

ФРАГМЕНТ ВЕТВЯЩЕГОСЯ АЛГОРИТМА НА PASCAL

If <УСЛОВИЕ> then
<СЕРИЯ КОМАНД 1>
Else
<СЕРИЯ КОМАНД 2>
End if

If <УСЛОВИЕ> then
begin
<СЕРИЯ КОМАНД 1>
end
Else
begin
<СЕРИЯ КОМАНД 2>
end;

квадратного уравнения в зависимости от дискриминанта
Private Sub Command1_Click()
a =

Val(Текст1.Text)
b = Val(Текст2.Text)
c = Val(Текст3.Text)
d = b ^ 2 - 4 * a * c
If d > 0 Then
Метка6.Caption = (-b + Sqr(d)) / (2 * a)
Метка7.Caption = (-b - Sqr(d)) / (2 * a)
Else
If d = 0 Then
Метка6.Caption = -b / (2 * a)
Else
Метка6.Caption = "КОРНЕЙ НЕТ"
End If
End If
End Sub

выполняется одна из нескольких последовательностей команд при истинности соответствующего

условия (удобно использовать вместо вложенного ветвления IF)

УСЛОВИЕ 1

СЕРИЯ КОМАНД 1

да

нет

ФРАГМЕНТ БЛОК-СХЕМЫ
АЛГОРИТМА ВЫБОР

УСЛОВИЕ 2

да

нет

СЕРИЯ КОМАНД 2

СЕРИЯ КОМАНД 3

ФРАГМЕНТ АЛГОРИТМА «ВЫБОР »НА QBASIC

Select case <ВЫРАЖЕНИЕ>
Case <ЗНАЧЕНИЯ 1>
<СЕРИЯ КОМАНД 1>
Case <ЗНАЧЕНИЯ 2>
<СЕРИЯ КОМАНД 2>
. . . . . . . . . . .
Case Else
<СЕРИЯ КОМАНД N>
End select

Case <ВЫРАЖЕНИЕ> Of
<ВАРИАНТ1> : <ОПЕРАТОР 1> ;
<ВАРИАНТ2> :<ОПЕРАТОР 2> ;
. . . . . . . . . . .
<ВАРИАНТ N> :<ОПЕРАТОР N-1 >;
Else <ОПЕРАТОР N>
End;

ФРАГМЕНТ АЛГОРИТМА «ВЫБОР »НА PASCAL

Select Case <ВЫРАЖЕНИЕ>
Case <УСЛОВИЕ 1>
<СЕРИЯ КОМАНД 1>
Case <УСЛОВИЕ 2>
<СЕРИЯ КОМАНД 2>
. . . . . . . . . . .
Case Else
<СЕРИЯ КОМАНД N>
End select

ФРАГМЕНТ АЛГОРИТМА «ВЫБОР »НА VBASIC

по количеству ошибок
Private Sub Command1_Click()
fi = Текст1.Text
k = Текст2.Text
sh

= Текст3.Text
n = Текст4.Text
Select Case n
Case 0
Текст5.Text = fi + " " + k + " " + sh + " " + "ОТЛИЧНО"
Case 1
Текст5.Text = fi + " " + k + " " + sh + " " + "ХОРОШО"
Case 2
Текст5.Text = fi + " " + k + " " + sh + " " + "УДОВЛЕТВОРИТЕЛЬНО"
Case Else
Текст5.Text = fi + " " + k + " " + sh + " " + "НЕУДОВЛЕТВОРИТЕЛЬНО"
End Select
End Sub

серия команд (она называется телом цикла) выполняется многократно.
Тело

цикла определяет ЧТО повторять, а заголовок цикла (вид цикла) определяет СКОЛЬКО РАЗ повторять.

ВИДЫ ЦИКЛОВ

Цикл
со счетчиком
(цикл n раз)

Цикл
с условием

Безусловный цикл

Условный цикл

Цикл
с предусловием

Цикл
с постусловием

сколько раз необходимо выполнить цикл.
НЦ ОТ

<НАЧАЛЬНОЕ ЗНАЧЕНИЕ> ДО <КОНЕЧНОЕ ЗНАЧЕНИЕ> ШАГ h
ПОВТОРЯТЬ
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
КЦ

For <СЧЕТЧИК> = <НАЧАЛЬНОЕ ЗНАЧЕНИЕ> to <КОНЕЧНОЕ ЗНАЧЕНИЕ> step <ШАГ>
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
Next <СЧЕТЧИК>

ФРАГМЕНТ АЛГОРИТМА ЦИКЛА n РАЗ НА АЯ (алгоритмическом языке)

ФРАГМЕНТ АЛГОРИТМА ЦИКЛА n РАЗ НА QBASIC

ФРАГМЕНТ АЛГОРИТМА ЦИКЛА n РАЗ НА VBASIC

ФРАГМЕНТ АЛГОРИТМА ЦИКЛА n РАЗ НА PASCAL

For <СЧЕТЧИК> = <НАЧАЛЬНОЕ ЗНАЧЕНИЕ> to <КОНЕЧНОЕ ЗНАЧЕНИЕ> step <ШАГ>
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
Next <СЧЕТЧИК>

For <СЧЕТЧИК> : = <НАЧАЛЬНОЕ ЗНАЧЕНИЕ> to (или downto) <КОНЕЧНОЕ ЗНАЧЕНИЕ> do
begin
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
End;

вывода символов и их кодов (код ASCII)
Dim n As

Integer
Private Sub Command1_Click()
For n = 127 To 32 Step -1
List1.AddItem (n)
List2.AddItem (Chr(n))
Next n
End Sub

необходимо выполнить цикл.
НЦ ПОКА
ПОВТОРЯТЬ

КОМАНД – ТЕЛО ЦИКЛА >
КЦ

Do while <УСЛОВИЕ>
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
Тело цикла выполняется пока условие истинно
Loop

ФРАГМЕНТ АЛГОРИТМА ЦИКЛА с предусловием (условие впереди) НА АЯ (алгоритмическом языке)

ФРАГМЕНТ АЛГОРИТМА ЦИКЛА С ПРЕДУСЛОВИЕМ (2 ВИДА) НА QBASIC
ЦИКЛ С ИСТИННЫМ ПРЕДУСЛОВИЕМ ЦИКЛ С ЛОЖНЫМ ПРЕДУСЛОВИЕМ

Do Until <УСЛОВИЕ>
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
Тело цикла выполняется пока условие
Ложно
Loop

Данный вид цикла может не выполниться ни разу. Ответьте, почему?

While <УСЛОВИЕ> Do
Begin
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
Тело цикла выполняется пока условие истинно
End;

Do Until <УСЛОВИЕ>
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
Тело цикла выполняется пока условие
Ложно
Loop

ФРАГМЕНТ АЛГОРИТМА ЦИКЛА С ПРЕДУСЛОВИЕМ (2 ВИДА) НА VBASIC
ЦИКЛ С ИСТИННЫМ ПРЕДУСЛОВИЕМ ЦИКЛ С ЛОЖНЫМ ПРЕДУСЛОВИЕМ

ФРАГМЕНТ АЛГОРИТМА ЦИКЛА С ПРЕДУСЛОВИЕМ НА PASCAL
ЦИКЛ С ИСТИННЫМ ПРЕДУСЛОВИЕМ

Do while <УСЛОВИЕ>
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
Тело цикла выполняется пока условие истинно
Loop

вычисления количества отрицательных чисел среди шести чисел (каждое число

вводить отдельной командой ввод в цикле)

Dim a As Integer
Private Sub Form_Load()
Show
i = 1: k = 0
Do While i < 7
a = InputBox("введите число")
Print a
If a < 0 Then
k = k + 1
End If
i = i + 1
Loop
Print "Количество отрицательных чисел="; k
End Sub

Dim a As Integer
Private Sub Form_Load()
Show
i = 1: k = 0
Do Until i >= 7
a = InputBox("введите число")
Print a
If a < 0 Then
k = k + 1
End If
i = i + 1
Loop
Print "Количество отрицательных чисел="; k
End Sub

необходимо выполнить цикл.
НЦ
ПОВТОРЯТЬ

ТЕЛО ЦИКЛА >
КЦ ПОКА <УСЛОВИЕ>

Do
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
Тело цикла выполняется пока условие истинно
Loop while <УСЛОВИЕ>

ФРАГМЕНТ АЛГОРИТМА ЦИКЛА с постусловием (условие после) НА АЯ (алгоритмическом языке)

ФРАГМЕНТ АЛГОРИТМА ЦИКЛА С ПОСТУСЛОВИЕМ (2 ВИДА) НА QBASIC
ЦИКЛ С ИСТИННЫМ ПОСТУСЛОВИЕМ ЦИКЛ С ЛОЖНЫМ ПОСТУСЛОВИЕМ

Do
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
Тело цикла выполняется пока условие
Ложно
Loop Until <УСЛОВИЕ>

Данный вид цикла выполнится хотя бы один раз. Ответьте, почему?

ФРАГМЕНТ АЛГОРИТМА ЦИКЛА С ПОСТУСЛОВИЕМ (2 ВИДА) НА VBASIC
ЦИКЛ С ИСТИННЫМ ПОСТУСЛОВИЕМ ЦИКЛ С ЛОЖНЫМ ПОСТУСЛОВИЕМ

ФРАГМЕНТ АЛГОРИТМА ЦИКЛА С ПОСТУСЛОВИЕМ НА PASCAL
ЦИКЛ С ЛОЖНЫМ ПОСТУСЛОВИЕМ

Do
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
Тело цикла выполняется пока условие истинно
Loop while <УСЛОВИЕ>

Do
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
Тело цикла выполняется пока условие
Ложно
Loop Until <УСЛОВИЕ>

Repeat
<СЕРИЯ КОМАНД – ТЕЛО ЦИКЛА >
Тело цикла выполняется пока условие
Ложно
Until <УСЛОВИЕ> ;