Составление и реализация алгоритмов с ветвлением и повторением. - презентация

1 Составление и реализация алгоритмов с ветвлением и повторением

2 «Мы почитаем всех нулями, А единицами себя».

3 Кому принадлежат эти строки?

4 К реке подошли шестьдесят солдат. Им нужно переправиться через реку. Рядом с берегом плавают два мальчика в лодке. Но лодка такая маленькая, что она может поднять только двух мальчиков или одного солдата. Как солдатам переправиться через реку и вернуть лодку мальчикам?

5

6 Каким алгоритмическим структурам соответствуют указанные блок схемы:

7 Какое значение получит переменная Z в результате выполнения следующего алгоритма ?

8 Пример 1. Составить программу, которая вычисляет сумму вводимых с клавиатуры целых чисел до ввода отрицательного числа и выводит на экран значение вычисленной суммы Program Pr1; Var sum, a: integer; Begin Sum:=0; Write(Введи первое число); Readln(a); While a>=0 do Begin Sum:=sum+a; Write(введи следующее число); Readln(a); End; Writeln(Sum=,sum); End.

9 Пример 2. Составить программу, которая вычисляет произведение n первых натуральных чисел и выводит на экран значение вычисленного произведения. Program Pr2; Var i,pr, n: integer; Begin Write(n=); Readln(n); pr:=1; For i:=1 to n do pr:=pr+I; Writeln(pr=,pr); End.

10 Пример 3. Program Pr3; Var a,p,i,n: integer; Begin Write(a=); Readln(a); Write(n=); Readln(n); p:=1; For i:=1 to n do p:=p*a; Writeln(p=,p); End.