Алгоритмические структуры

Сентябрь 7, 2022

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

Содержание

2. Вопросы для повторения: Назовите базовые алгоритмические структуры. Следование, ветвление, цикл Следование – это … линейная последовательность
3. Задание 1 Нарисуйте блок-схемы и напишите на языке программирования Паскаль два варианта алгоритма решения задачи: выбрать
4. Полное ветвление начало ввод a, b c:=a a>b нет вывод c конец да c:=b
5. Полное ветвление начало ввод a, b c:=a a>b нет вывод c конец да c:=b Program max1;
6. Неполное ветвление начало ввод a, b c:=a a>b нет вывод S конец да c:=b
7. Неполное ветвление начало ввод a, b c:=a a>b нет вывод c конец да c:=b Program max2;
8. Задание 2 Нарисуйте блок-схемы и напишите на языке программирования Паскаль два варианта алгоритма решения задачи: выбрать
9. Вложенные ветвления начало ввод a, b,c d:=a a нет вывод d конец да a b d:=c
10. Вложенные ветвления начало ввод a, b,c d:=a a - вывод d конец a b d:=c d:=b
11. Последовательные ветвления начало ввод a,b,c d:=a (a нет вывод d конец да d:=b (b нет да
12. Последовательные ветвления начало ввод a,b,c d:=a (a нет вывод d конец да d:=b (b нет да
13. Задание 3 Для данного натурального числа N требуется вычислить сумму: S=1+1/2+1/3+…+1/N. Постройте блок-схемы и напишите программы,
14. Найти сумму S=1+1/2+1/3+…+1/N с циклом-до начало ввод N S:=0 i:=1 S:=S+1/i i:=i+1 i>N нет вывод S
15. Найти сумму S=1+1/2+1/3+…+1/N с циклом-до начало ввод N S:=0 i:=1 S:=S+1/i i:=i+1 i>N нет вывод S
16. Найти сумму S=1+1/2+1/3+…+1/N с циклом-пока начало ввод N S:=0 i:=1 S:=S+1/i i:=i+1 i нет вывод S
17. Найти сумму S=1+1/2+1/3+…+1/N с циклом-пока начало ввод N S:=0 i:=1 S:=S+1/i i:=i+1 i нет вывод S
18. Задание 4 Какую структуру будет иметь алгоритм решения следующей задачи? Дано целое положительное число N. Если
19. Задание 4 начало ввод N i:=1; S:=0; P:=1 N mod 2=0 нет вывод S конец да
20. Задание 4 var N, i, P, S: integer; begin read(N); i:=1; P:=1; S:=0; if (N mod
22. Скачать презентацию

Слайд 2

Вопросы для повторения:
Назовите базовые алгоритмические структуры.
Следование, ветвление, цикл
Следование – это …
линейная

последовательность действий
Ветвление – это …
выбор одной из двух серий действий с выходом на общее продолжение
Цикл – это …
повторение серии действий по условию

Слайд 3

Задание 1
Нарисуйте блок-схемы и напишите на языке программирования Паскаль два варианта

алгоритма решения задачи: выбрать из двух числовых величин наибольшее значение. Первый вариант – с полным ветвлением, второй вариант – с неполным ветвлением.

Слайд 4

Полное ветвление
начало
ввод a, b
c:=a
a>b
нет
вывод c
конец
да
c:=b

Слайд 5

Полное ветвление
начало
ввод a, b
c:=a
a>b
нет
вывод c
конец
да
c:=b
Program max1;
var a,b,c: integer;
begin
read(a,b);
if (a>b) then c:=a

else c:=b;
writeln('Наибольшее число=',c);
end.

Слайд 6

Неполное ветвление
начало
ввод a, b
c:=a
a>b
нет
вывод S
конец
да
c:=b

Слайд 7

Неполное ветвление
начало
ввод a, b
c:=a
a>b
нет
вывод c
конец
да
c:=b
Program max2;
var a,b,c: integer;
begin
read(a,b);
c:=b;
if (a>b) then c:=a;
writeln('Наибольшее

число=',c);
end.

Слайд 8

Задание 2
Нарисуйте блок-схемы и напишите на языке программирования Паскаль два варианта

алгоритма решения задачи: выбрать из трех числовых величин наименьшее значение. Первый вариант – с вложенными ветвлениями, второй вариант – с последовательными ветвлениями.

Слайд 9

Вложенные ветвления
начало
ввод a, b,c
d:=a
a
нет
вывод d
конец
да
a
b
d:=c
d:=b
d:=c
да
да
нет
нет

Слайд 10

Вложенные ветвления
начало
ввод a, b,c
d:=a
a
-
вывод d
конец
a
b
d:=c
d:=b
d:=c
Program min1;
var a,b,c,d: integer;
begin
read(a,b,c);
if (a

if (a else d:=c
else
if (b else d:=c;
writeln('Наименьшее число=',d);
end.

Слайд 11

Последовательные ветвления
начало
ввод a,b,c
d:=a
(a
нет
вывод d
конец
да
d:=b
(b
нет
да
d:=c
(c
нет
да

Слайд 12

Последовательные ветвления
начало
ввод a,b,c
d:=a
(a
нет
вывод d
конец
да
d:=b
(b
нет
да
d:=c
(c
нет
да
Program min2;
var a,b,c,d: integer;
begin
read(a,b,c);
if (aif (b

and (bif (cwriteln('Наименьшее число=',d);
end.

Слайд 13

Задание 3
Для данного натурального числа N требуется вычислить сумму: S=1+1/2+1/3+…+1/N.
Постройте

блок-схемы и напишите программы, используя два варианта алгоритма: с циклом-до и с циклом-пока.

Слайд 14

Найти сумму S=1+1/2+1/3+…+1/N с циклом-до
начало
ввод N
S:=0
i:=1
S:=S+1/i
i:=i+1
i>N
нет
вывод S
конец
да

Слайд 15

Найти сумму S=1+1/2+1/3+…+1/N с циклом-до
начало
ввод N
S:=0
i:=1
S:=S+1/i
i:=i+1
i>N
нет
вывод S
конец
да
var i, N: integer; S:

real;
begin
readln(N);
S:=0;
i:=1;
repeat
S:=S+1/i;
i:=i+1
until (i>N);
writeln('S=',S:5:3);
end.

Слайд 16

Найти сумму S=1+1/2+1/3+…+1/N с циклом-пока
начало
ввод N
S:=0
i:=1
S:=S+1/i
i:=i+1
i<=N
нет
вывод S
конец
да

Слайд 17

Найти сумму S=1+1/2+1/3+…+1/N с циклом-пока
начало
ввод N
S:=0
i:=1
S:=S+1/i
i:=i+1
i<=N
нет
вывод S
конец
да
var i, N: integer; S:

real;
begin
readln(N);
S:=0;
i:=1;
while (i<=N) do
begin
S:=S+1/i;
i:=i+1;
end;
writeln('S=',S:5:3);
end.

Слайд 18

Задание 4
Какую структуру будет иметь алгоритм решения следующей задачи?
Дано целое положительное

число N. Если N – четное, то вычислить N!=1·2·3·…·N. Если N – нечетное, то вычислить сумму: 1+2+…+ N.
Составьте блок-схему алгоритма решения и опишите его на языке Паскаль.

Слайд 19

Задание 4
начало
ввод N
i:=1; S:=0; P:=1
N mod 2=0
нет
вывод S
конец
да
i<=N
P:=P*i
i:=i+1
i<=N
S:=S+i
i:=i+1
вывод P
да
да
нет
N mod 2<>0
да
нет
нет

Слайд 20

Задание 4
var N, i, P, S: integer;
begin
read(N);
i:=1; P:=1; S:=0;
if (N mod

2 = 0) then begin
while (i<=N) do begin
P:=P*i; i:=i+1; end;
writeln(N,'!=',P);
end;
if (n mod 2 <> 0) then begin
while (i<=N) do begin
S:=S+i; i:=i+1; end;
writeln('1+2+...+',N,'=',S);
end;
end.

Алгоритмические структуры

Содержание

Вопросы для повторения:Назовите базовые алгоритмические структуры.Следование, ветвление, циклСледование – это …линейная

Задание 1Нарисуйте блок-схемы и напишите на языке программирования Паскаль два варианта

Полное ветвлениеначаловвод a, bc:=aa>bнетвывод cконецдаc:=b

Полное ветвлениеначаловвод a, bc:=aa>bнетвывод cконецдаc:=bProgram max1;var a,b,c: integer;beginread(a,b);if (a>b) then c:=a

Неполное ветвлениеначаловвод a, bc:=aa>bнетвывод Sконецдаc:=b

Неполное ветвлениеначаловвод a, bc:=aa>bнетвывод cконецдаc:=bProgram max2;var a,b,c: integer;beginread(a,b);c:=b;if (a>b) then c:=a;writeln('Наибольшее

Задание 2Нарисуйте блок-схемы и напишите на языке программирования Паскаль два варианта

Вложенные ветвленияначаловвод a, b,cd:=aaнетвывод dконецдаabd:=cd:=bd:=cдаданетнет

Вложенные ветвленияначаловвод a, b,cd:=aa-вывод dконецabd:=cd:=bd:=cProgram min1;var a,b,c,d: integer;beginread(a,b,c);if (a

Последовательные ветвленияначаловвод a,b,cd:=a(aнетвывод dконецдаd:=b(bнетдаd:=c(cнетда

Последовательные ветвленияначаловвод a,b,cd:=a(aнетвывод dконецдаd:=b(bнетдаd:=c(cнетдаProgram min2;var a,b,c,d: integer;beginread(a,b,c);if (aif (b

Задание 3Для данного натурального числа N требуется вычислить сумму: S=1+1/2+1/3+…+1/N. Постройте

Найти сумму S=1+1/2+1/3+…+1/N с циклом-до началоввод NS:=0i:=1S:=S+1/ii:=i+1i>Nнетвывод Sконецда

Найти сумму S=1+1/2+1/3+…+1/N с циклом-доначаловвод NS:=0i:=1S:=S+1/ii:=i+1i>Nнетвывод Sконецдаvar i, N: integer; S:

Найти сумму S=1+1/2+1/3+…+1/N с циклом-поканачаловвод NS:=0i:=1S:=S+1/ii:=i+1i<=Nнетвывод Sконецда

Найти сумму S=1+1/2+1/3+…+1/N с циклом-поканачаловвод NS:=0i:=1S:=S+1/ii:=i+1i<=Nнетвывод Sконецдаvar i, N: integer; S:

Задание 4Какую структуру будет иметь алгоритм решения следующей задачи?Дано целое положительное

Задание 4началоввод Ni:=1; S:=0; P:=1N mod 2=0нетвывод Sконецдаi<=NP:=P*ii:=i+1i<=NS:=S+ii:=i+1вывод PдаданетN mod 2<>0данетнет

Задание 4var N, i, P, S: integer;beginread(N);i:=1; P:=1; S:=0;if (N mod

Похожие презентации