Решение задач ?с использованием ?операторов цикла

ГБОУ СПО «Тверской политехнический колледж»

Тема урока

Решение задач с использованием операторов цикла

Преподаватель

Кудрявцева Е.Ю.

2015

«Обучение написанию программ расширяет кругозор, помогает лучше думать и создаёт способ мышления, ориентирующий вас на вещи, которые помогают во всех областях»

Билл Гейтс

Тема урока

Решение задач с использованием операторов цикла

План урока

• Повторение
• Самостоятельная работа

• тестирование практическая работа на компьютере
• тестирование
• практическая работа на компьютере

ПОВТОРЕНИЕ

write( a ) ;

процедура вывода значения переменной;

на экран

write( , , …. ) ;

4 -1

write( , , , … ) ;

a b c

вывод с последующим переводом строки

write Ln ( a ) ;

ПОВТОРЕНИЕ. ОПРЕДЕЛИТЬ РЕЗУЛЬТАТ.

ПРОГРАММА

РЕЗУЛЬТАТ

x := 4 ;

write Ln ( x ) ;

x

write Ln ( ) ;

4

write Ln ( x , x+x , x ) ;

48x

4

'

'

x

'

'

ПОВТОРЕНИЕ. ОПРЕДЕЛИТЬ РЕЗУЛЬТАТ.

ПРОГРАММА

РЕЗУЛЬТАТ

k := 1 ;

k := k + k ;

k := k * 3 ;

write Ln ( k = , k ) ;

k =6

6

1

2

' '

ПРОГРАММА

РЕЗУЛЬТАТ

Program k1 ;

end .

var k : integer ;

begin

ОШИБКА

?

k := 3 ;

write Ln ( ‘ k = ‘ , k ) ;

k = 3

5 x :=499 x := 5=5 ? ? " width="640"

Определите тип переменной

?

?

integer

real

x :=2

string

x := - 2

x := 6,5

x := ‘Ура’

x := 6.0

x :=300

boolean

x := -6.0

x := ‘три

x := 25

x :=499

x := 5=5

?

?

3 real n : ; integer var k : ; s : ; string y : ; boolean s := ‘ Да ‘ ; n := 1.2 ; k := 3 ; end . " width="640"

ПРОГРАММА

Program k2 ;

begin

y := 53

real

n : ;

integer

var k : ;

s : ;

string

y : ;

boolean

s := ‘ Да ‘ ;

n := 1.2 ;

k := 3 ;

end .

Определить тип переменной

k := 5

k := 5.0

integer

k := –5

real

k := 6 * 3

integer

k := 6/2

integer

real

k := 6.2 * 3

k := 8.2 / 4

real

k := ‘ Да ‘

real

string

ПРОГРАММА

РЕЗУЛЬ-ТАТ

Program k4 ;

var n : integer ;

begin

read ( n ) ;

end .

5

Базовые структуры алгоритмов:

Линейный алгоритм.

Структура следования

Разветвляющийся алгоритм.

Структура ветвления

Условие

Команда 1

НЕТ

Команда 2

ДА

Серия 2

Серия 1

. . .

Команда N

Следование   –

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

Ветвление (выбор ) –

в зависимости от заданных условий, выбирается одно возможных действий.

Цикл -

это многократное выполнение одинаковой последовательности действий.

• цикл с известным числом шагов цикл с неизвестным числом шагов (цикл с условием) бесконечный цикл
• цикл с известным числом шагов
• цикл с неизвестным числом шагов (цикл с условием)
• бесконечный цикл

Программа

Алгоритм

program p2;

begin

writeln('Ошибка');

writeln('Ошибка ');

writeln('Ошибка');

…………… ..

writeln('Ошибка'); writeln('Ошибка');

end.

начало

i := 0;

да

i = 100?

конец

нет

Ошибка

i := i + 1;

Циклические алгоритмы

Цикл

Цикл

с параметром

с послеусловием

Цикл

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

Циклические операторы на Паскале

3. Цикл

1. Цикл

с предусловием (пока)

с постусловием (до)

2. Цикл

с параметром

нет

да

нет

да

WHILE x DO s:=s+x ;

REPEA T n:=n+1 UNTIL f

Оператор после do

повторяется до тех пор,

пока логическое условие

истинно

16

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

используется в том случае, когда число шагов цикла точно не определено ,

выход из цикла осуществляется по какому-либо условию.

Нет

условие

Да

Операторы

тела цикла

ВЫХОД ИЗ ЦИКЛА

1 s:=s+1; write( ‘ ==== ‘ ) 6 " width="640"

Структура цикла с предусловием

Тело цикла содержит только одно действие

ДЕЛАТЬ

УСЛОВИЕ ИСТИННО

ПОКА

КОМАНДА

While условие do команда ;

1 = 1

write(123)

5 1

s:=s+1;

write( ‘ ==== ‘ )

6

Структура цикла с предусловием

Тело цикла содержит НЕСКОЛЬКО действий

While условие do

begin

команда_1;

команда_2;

…………… .

команда_n;

end ;

тело цикла

СКОЛЬКО РАЗ БУДЕТ ВЫПОЛНЯТЬСЯ ЦИКЛ

Program k5;

var x : integer;

Begin

x := 1 ;

while x = 1 do

begin

writeln( x );

x := x + 1 ;

end;

End .

Program k6;

var x : integer;

Begin

x := 1 ;

while x 10 do

writeln( x );

End .

Будет выполняться БЕСКОНЕЧНО

Будет выполняться 1 РАЗ

СКОЛЬКО РАЗ БУДЕТ ВЫПОЛНЯТЬСЯ ЦИКЛ

Program k6;

Program k5;

var x : integer;

var x : integer;

Begin

Begin

x := 0 ;

while x 3 do

x :=1;

while x

begin

begin

writeln( x );

writeln( x );

x := x +1;

end;

x := x - 1 ;

End .

end;

End .

4 раза

НИ РАЗУ

Структура цикла с параметром

Переменная i возрастает

выполнять

Для

до

FOR i:=n TO k DO действие ;

Переменная i убывает

FOR i:=n DOWNTO k DO действие;

FOR i:=1 TO 6 DO

BEGIN

действие1;

действие 2 ;

END;

В теле цикла несколько

действий

Определить значения переменной

FOR R:=1 TO 10 DO

R = 1, 2, 3, 4,5,6,7,8,9,10

FOR i:= -2 TO 3 DO

i = -2, -1, 0, 1, 2, 3

FOR i:=10 TO 50 DO

i = 10, 11, 12, …..50

FOR i:=8 DOWNTO 2 DO

i = 8, 7, 6, …..2

Рассчитать силу тока I от электрического сопротивления проводника R=10, 11, ..60 Ом , при заданном значении эл. напряжения

220

220

U

U

=

Program Y1;

Var :integer; : real;

Begin

:= ;

for := to do

begin

I := U / R ;

write ( ‘ ‘ , , ‘ ‘ , );

end.

End.

I

, R

U

60

10

R

?

?

?

I =

I

R =

R

Задание

1) Пройти тест

Рабочий стол\40 кабинет\ Тесты

1) Паскаль ABC . Типы переменных

2) Паскаль ABC . Назначение операторов

2) Практическая работа на компьютере

Составить программы решения задач