Теоретические основы программирования.

Составные части блок - схем

№ Графическое изображение Описание
1. Ввод и вывод значений переменных (с клавиатуры или из файла, нужно оговаривать)
2. Действия алгоритма (в основном это операторы присваивания)
3. Условие (выполнение алгоритма в зависимости от условия)

Основные алгоритмические структуры, изображенные блок - схемой

Графическое изображение Описание на языке
программирования Gambas 		Примеры использования
в программах
Действие по условию:

 Условный оператор краткой формы:

If условие Then действие

If условие Then д_1: д_2

If условие Then
действие1
действие2
...
End If
 Определение максимального значения из 3-х переменных:

Dim a, b, c, m as integer
a=10
b=30
c=20
m=a
If b>m Then m=b
If c>m Then m=c
Print "максим. знач.=";m
Действие по условию (альтернатива):

Условный оператор полной формы:

If условие Then д_1 Else д_2

If условие Then
Действие1_1
Действие1_2
...
Else
Действие2_1
Действие2_2
...
End If
 Определение максимального значения из 2-х переменных:

Dim a, b, m as integer
a=10
b=30
If a>b Then m=a Else m=b
Print "максим. знач.=";m
Выбор варианта:

Оператор выбора:

Select Case селектор
Case значения_1: действия_1
Case значения_2: действия_2
...
Case значения_n: действия_n
End Select
 Определение дня недели по введенному числу:

Dim nm, ch, dn as integer
'nm - день недели 1-го числа месяца (0-воскресенье, 1-понедельник и т.д.)
nm=2
'ch - число месяца
ch=15
dn=(nm+ch-1) mod 7
Select Case dn
Case 1: Print "понедельник"
Case 2: Print "вторник"
Case 3: Print "среда"
Case 4: Print "четверг"
Case 5: Print "пятница"
Case 6: Print "суббота"
Case 0: Print "воскресенье"
End Select
Выбор варианта с альтернативой:

Оператор выбора с альтернативой:

Select Case селектор
Case значения_1: действия_1
Case значения_2: действия_2
...
Case значения_n: действия_n
Case Else: действия_n+1
End Select

или

Select Case селектор
Case значения_1: действия_1
Case значения_2: действия_2
...
Case значения_n: действия_n
DEFAULT: действия_n+1
End Select
 Определение дня недели по введенному числу:

Dim nm, ch, dn as integer
'nm - день недели 1-го числа месяца (0-воскресенье, 1-понедельник и т.д.)
nm=2
'ch - число месяца
ch=15
dn=(nm+ch-1) mod 7
Select Case dn
Case 1: Print "понедельник"
Case 2: Print "вторник"
Case 3: Print "среда"
Case 4: Print "четверг"
Case 5: Print "пятница"
Case 6: Print "суббота"
Case Else: Print "воскресенье"
End Select
Цикл со счетчиком:

Оператор цикла For:

For i=н_знач to кон_знач step и_пер

команды цикла

Next

i – переменная цикла
н_знач – начальное значение пер. цикла
кон_знач – конечное значение пер. цикла
и_пер – шаг изменения переменной
 Сумма нечетных чисел от 1 до 99:

Dim i, s as integer
'1-й вариант
s=0
for i=1 to 50
s=s+i*2-1
next
Print "Сумма нечетных чисел от 1 до 99 =";s

'2-й вариант
s=0
for i=1 to 99 step 2
s=s+i
next
Print "Сумма нечетных чисел от 1 до 99 =";s
Цикл - пока выполняется условие:

Оператор цикла Do while Loop:

Do while условие
команды цикла
Loop


Оператор цикла While:

While условие
команды цикла
Wend
 Пример:

Dim A, B As Integer
A=0
B=0
while b<5
B=B+1
A=A+B*2+1
wend
Print A
Цикл - пока не выполняется условие:

Оператор цикла Do while Loop:

Do while not(условие)
команды цикла
Loop


Оператор цикла While:

While not(условие)
команды цикла
Wend
 Пример:

Dim A, B As Integer
A=0
B=0
while not(b=5)
B=B+1
A=A+B*2+1
wend
Print A
Цикл – до тех пор, пока условие выполняется:

 Оператор цикла Repeat:

Repeat
команды цикла
Until not(условие)
 Пример:

Dim A, B, C As Integer
A=0
B=0
Repeat
B=B+1
C=C+B*2-1
Until not(B<4)
Print C
Цикл – до тех пор, пока условие не выполняется:

 Оператор цикла Repeat:

Repeat
команды цикла
Until условие
 Пример:

Dim A, B, C As Integer
A=0
B=0
Repeat
B=B+1
C=C+B*2-1
Until B=4
Print C