Циклы с предусловием. 3 Циклы с предусловием. Практическая работа 13 Разработка программ с использованием цикла с предусловием

• Название: Практическая работа 13 Разработка программ с использованием цикла с предусловием
• Анкор: Циклы с предусловием
• Дата: 23.03.2023
• Размер: 2.86 Mb.
• Имя файла: 3 Циклы с предусловием.ppt
• Тип: Практическая работа; #1010555

4 Апрель, 2018


Практическая работа №13 «Разработка программ с использованием цикла с предусловием»


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


Основные виды циклов:
Цикл с предусловием – while;
Цикл с постусловием – repeat;
Цикл с заданным количеством повторений (с параметром)– for.


Цикл с предусловием («Пока»)


условие


действие


+


-


Имеет следующий вид:
While <условие> do <оператор>;
Выполняется до тех пор, пока истинно условие, оно проверяется вначале, потом исполняется оператор


Цикл с постусловием («До»)


Имеет следующий вид:
Repeat <группа операторов > Until <условие>;
Условие проверяется в конце цикла. Цикл выполняется до тех пор, пока условие не станет истинным. Особенностью цикла «До» является то, что тело цикла выполняется хотя бы 1 раз


условие


действие


+


-


Цикл с параметром (со счетчиком) («Для»)


Имеет следующий вид:
For i:=начальное значение to конечное значение do… <оператор>;
(параметр цикла меняется от начального значения до конечного с шагом 1)
For i:= начальное значение downto конечное значение do… <оператор>;
(параметр цикла меняется от начального значения до конечного с шагом -1)


действие


+


-


счетчик


1) x:=1;
while x<10 do
x:=x+3;
x:=x+1;
Ответ: x=11


В теле цикла только один оператор, так как нет скобок begin end.
Построим трассировочную таблицу.


Задание 1.


Задание 2.


x:=1;
while x<10 do begin
x:=x+3;
x:=x+1;
end;
В теле цикла только два оператора, так как есть скобки begin end.
.

Задание 3.

Дан фрагмент программы:
x:=1;
while x<>1 do begin
x:=x+3;
x:=x+1;
end;
Построить трассировочную таблицу.

Задание 4.

Дан фрагмент программы:
x:=50;
while x<100 do
begin
x:=x-10;
end;
Построить трассировочную таблицу.

Задание 5.

Составить программу, вычисляющую сумму натурального ряда чисел от 1 до 100.
S = 1+2+3+4+…+100
i      1  2  3  4         100
1 способ: с помощью цикла for
s:=0;
for i:=1 to 100 do s:=s+i;
Параметр i увеличивается автоматически на 1 с каждым шагом.

2 способ: с помощью цикла while

2 способ: с помощью цикла while
Параметр i необходимо увеличивать на 1 в теле цикла.  Также необходимо задать начальное значение параметра
i:=1;
S:=0;
while i<=100 do begin
                                   S:=S+i;
                                   i:=i+1;
                                   end;


Из бочки емкостью 350 литров через сливное отверстие каждую минуту вытекает 3 литра воды. Через какое время бочка опорожнится наполовину.


Начальные значения:
V: = 350, t: = 0;
Операторы цикла:
while v > 175
v: = v – 3; t: = t + 1;


начало


конец


Задание 6.


Составить программу для решения следующей задачи: Ввести целое число n с клавиатуры. Подсчитать сумму всех целых чисел от 1 до n с шагом 3.
S = 1+4+7+10+…+n
i =  1  4  7  10


Задание 7.


Задание 8.


Составить программу для решения следующей задачи: Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амеб будет через 3, 6, 9, 12, … , 24 часа? Вывести результаты таблицей:


Домашнее задание


§15,16 выучить, выполнить работу над ошибками