Организация повторений в Паскале презентация

Содержание

Найди ошибки: Program new Uses crt; Var a, b, c integer Begin clrscr Readln(a,b); C:=a*a+b*b Wreteln(c); End.

Слайд 1Организация повторений
в Паскале

Слайд 2Найди ошибки:
Program new
Uses crt;
Var a, b, c integer
Begin
clrscr
Readln(a,b);
C:=a*a+b*b
Wreteln(c);
End.

Слайд 3Выполните счёт по блок-схеме для чисел: 11, 18, 21

Х = 11

18 21
Р =



Слайд 4Виды циклов

Слайд 5
For i:= a1 to a2 do
begin

тело цикла
end;

i - параметр цикла, выполняет роль счетчика;
a1 - начальное значение счетчика;
a2 - конечное значение счетчика.





Слайд 6i,1,n
Действие 1
Действие 2
i,1,n
Действие 1
Действие 2
FOR i:=1 TO N DO BEGIN

действие1;
действие2;
END;

FOR i:=1 TO N DO действие1;
действие2;

Блок-схема цикла с параметром

Виды циклов

Слайд 7I. Цикл с параметром
Выполняется заранее определенное количество раз.
FOR – для
TO –

до
DO - выполнить

ДЛЯ i:=1 ДО N ВЫПОЛНЯТЬ действие;

FOR i:=1 TO N DO действие;

FOR i:=1 TO N DO BEGIN
действие1;
действие2;
END;

FOR i:=N DOWNTO 1 DO действие;

Виды циклов

если переменная i убывает

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

если в теле цикла одно действие

Слайд 9Найти сумму 4 произвольных чисел

Слайд 10В операторе For ... значение счетчика может не только увеличиваться, но

и уменьшаться.

Условие выполнения тела цикла: i ≥ a1.
Тело цикла будет выполнено a2 – a1 + 1 раз.

Слайд 11Примеры
Выполнение цикла-фрагмента программы:
For i:=14 downto 10 do write(i:3);
Выведет на экран

последовательность чисел в виде:

14 13 12 11 10

Если переменная-счётчик имеет символьный char тип, то оператор
For ch:=‘a’ to ‘e’ do write (ch:2);
Выведет на экран последовательность букв в виде:

a b c d e


Оператор
For ch:=‘e’ to ‘a’ downto write (ch:2);
Выведет на экран последовательность букв в виде:

e d c b a

Слайд 12Правила
Оператор for используется для организации циклов с фиксированным, заранее известным

числом повторений;
Количество повторений определяется начальным и конечным значением переменной-счётчика.
Переменная-счётчик должна быть порядкового типа: чаще integer, реже – char, boolean и т.д.
Начальное и конечное значение должны быть константами и должны принадлежать к одному и тому же типу.
Параметр цикла for может изменяться(увеличиваться или уменьшаться) каждый раз при выполнении тела цикла только на единицу. Если нужен другой шаг изменения параметра, предпочтительнее циклы repeat или while

Слайд 13Задача 1. Написать программу, которая вычисляет сумму положительных из n введённых

с клавиатуры чисел.

Слайд 14Program summa;
Var i, n, x: integer;
Begin
Writeln (‘ввести количество чисел’);

Readln(n);
s :=0;
For i := 1 to n do
Begin
Writeln(‘ввести число’);
Readln(x);
If x > 0 then s := s + x;
End;
Writeln (‘сумма >0 =‘, s);
Readln;
End.

Слайд 15Program KWADRAT;
Uses crt;
Var kw, y: integer;
Begin
Clrscr;
For y:=1 to 10 do
Begin

kw:= sqr(y);
Writeln (y:3,kw:5);
End;
Writeln;
For y:=10 downto 1 do
Begin
kw:=sqr(y);
Writeln (y:3,kw:5);
End;
Readln;
End.

Задача 2. Вывести на экран значение y2 (y=1,2,…,10) в возрастающем и убывающем порядке



Слайд 16Правильно записаны фрагменты под номерами 1 и 4. Во фрагментах 2

и 3 в операторах тела цикла производится изменение значение счетчика цикла.

Значение счетчика цикла может использоваться в выражениях, входящих в операторы тела цикла, но изменение значения счетчика цикла этими операторами недопустимо.

Слайд 17Задача 3.Среди всех двузначных чисел найти те, сумма цифр которых равна

n (0

Program Chisla;
uses crt;
var n, i, k, p1, p2:integer;
begin
clrscr;
k:=0;
writeln (‘Ввести n’);
readln (n);
for i:=10 to 99 do
begin
p1:=i div 10;
p2:= i mod 10;
if (p1+ p2) =n then
begin
writeln (i);
k:=k+1;
end;
end;
writeln (‘Количество чисел’, k);
readln;
end.

Слайд 18Сколько раз будет выполнено тело цикла?
for i:= –5 to 5

do тело цикла;
for i:= 6 to 2 do тело цикла;
for i:= 3 to 3 do тело цикла;
for i:= 3 downto 4 do тело цикла;
for i:= 3 downto 1 do тело цикла;


Слайд 19Задача 4.
Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности

дробных чисел. Количество чисел должно задаваться во время работы программы.


Слайд 20WHILE (УСЛОВИЕ ИСТИННО) DO
BEGIN
действие1;
действие2;


END;

II. Цикл с предусловием
Может не выполнится ни разу.
Выполняется пока условие истинно.

WHILE – пока
DO – выполнять

ПОКА (УСЛОВИЕ ИСТИННО) ВЫПОЛНЯТЬ
НАЧАЛО
действие1;
действие2;
КОНЕЦ;

Виды циклов

Слайд 21

Тело цикла выполняется,
пока условие
Чтобы не было

зацикливания, переменные,
входящие в условие, должны
изменяться в теле цикла.

Слайд 22WHILE (УСЛОВИЕ ИСТИННО) DO
BEGIN
действие1;
действие2;


END;

условие

Действие 1

Действие 2

да

нет

WHILE (УСЛОВИЕ ИСТИННО) DO
действие1;
действие2;

условие

Действие 1

Действие 2







да

нет






Виды циклов

Слайд 23Выполните счёт по блок-схеме для чисел : 5, 9, 12
Х =

5 9 12
Р =



Слайд 24
Задача 4 .Вычислить сумму ряда чисел 2+4+6+…+1000.

Program sum;

var a, s: integer;
Begin
writeln (‘ вычисление суммы ряда’);
a:=0; s:=0;
while a<1000 do
begin
a:=a+2; s:=s+a
end;
writeln (‘сумма ряда равна s=‘, s);
end.

Слайд 25Задача 5. Найти количество цифр в введенном с клавиатуры числе (n

> 0).

. . .
Write(‘n=‘);
Readln(n);
m := n; k :=0;
While m <> o do
Begin
m := m div 10;
k := k +1;
End;
Writeln (‘количество цифр в числе‘, n, ‘=‘, k);
Readln;
End.


Постройте блок-схему решения данной задачи

Слайд 26Задача 6.
Вычислить сумму ряда чисел
Program sum;

var a, s: integer;
Begin
writeln (‘ вычисление суммы ряда’);
a:=0; s:=0;
while a<600 do
begin
a:=a+1; s:=s+1/a
end;
writeln (‘сумма ряда равна s=‘, s);
end.


Постройте блок-схему решения данной задачи

Слайд 27III. Цикл с постусловием
Выполняется всегда хотя бы один раз.
Выполняется пока условие

ложно.

REPEAT – повторять
UNTIL – до тех пор

ПОВТОРЯТЬ
действие1;
действие2;
ДО ТЕХ ПОР (ПОКА УСЛОВИЕ ЛОЖНО);

REPEAT
действие1;
действие2;
UNTIL (ПОКА УСЛОВИЕ ЛОЖНО);

Виды циклов

Слайд 29Задача 7. Найти количество цифр в введенном с клавиатуры числе (n

> 0).
Решим эту задачу с оператором Repeat ...

. . .
Write(‘n=‘);
Readln(n);
m := n; k :=0;

Repeat
m := m div 10;
k := k +1;
Until m = 0;
Writeln (‘количество цифр в числе‘, n, ‘=‘, k);
Readln;
End.

Операторные скобки (begin ... end)
здесь не нужны;

2. Тело цикла выполнится хотя бы раз независимо от условия.


Постройте блок-схему решения данной задачи

Слайд 30Построить таблицу значений функции y = 3 sin x + cos

2x на интервале [-1 ; 1] с шагом Δх = 0,1.


Задача 8 .

Program n1;
Uses Crt;
var x,y,dx:real;
begin
ClrScr;
x:= -1;
dx:=0.1;
repeat
y:= 3*sin(x) + cos(2*x);
writeln ('x= ',x:7:5,' y= ',y:7:5);
x:=x+dx;
until (x>1);
end.

Расчетные задачи на циклы


Постройте блок-схему решения данной задачи

Слайд 31Задача 8.
Построить таблицу значений функции y = 1/х на интервале [-1;

1] с шагом 0,1

Program n1;
Uses Crt;
var x,y,dx:real;
begin
ClrScr;
x:= -1;
dx:=0.1;
repeat
if (x<>0) then begin
y:= 1/x;
writeln ('x= ',x,' y= ',y:7:5);
end;
x:=x+dx;
until (x>1);
end.

Расчетные задачи на циклы


Постройте блок-схему решения данной задачи и выполните её на компьютере

Слайд 32Задание 9. Сформулируйте условие задачи, для которой составлена следующая программа
Program n4;
Uses

Crt;
var i,n:integer;
a,s,sr:real;
Begin
ClrScr;
write('N=');readln(n);
s:=0;
for i:=1 to n do begin
write( ‘ Введи [ ‘ , i , ‘ ] = ‘ );Readln(a);
s:=s+a;
end;
sr:=s/n;
writeln(‘sr= ',sr:10:5)
end.

Расчетные задачи на циклы


Слайд 33Задача 10.
Дано целое число N (N>0). Используя один цикл найти

сумму
1+ 1/2 + 1/3 +…+1/N

Program n1;
Uses crt;
var s:real;
i,n:Integer;
begin
Clrscr;
Write(‘Введи n=');Readln(n);
s:=0;
For i:=1 to N do s:=s+1/i;
writeln('s=',s:10:5);
End.

Расчетные задачи на циклы

Слайд 34 program dogadka; uses crt; var   k, s, n : integer; begin clrscr ;      writeln( 'Введите K'

);   readln (k);    s:=0;    n:=1; repeat    s :=s+n*n;    n := n+1; until  s > k; writeln  ('N= ', n : 3,  '   s= ' ,  s : 5 ); readln; end.

Задание 11. Сформулируйте условие задачи, для которой составлена следующая программа


Слайд 35Пример задачи
III. С использованием цикла "С параметром".
Program Ex3; Var A :

Integer; S : Longint; Begin
S:=0; For A:=1 To 100 Do S:=S+A*A; Writeln(S)
End

Пример.
Найти сумму квадратов всех натуральных чисел от 1 до 100.
Решим эту задачу с использованием всех трех видов циклов

I. С использованием цикла "Пока".
Program Ex1; Var A : Integer; S : Longint; Begin
A:=1; S:=0; While A<=100 Do Begin
S:=S+A*A; A:=A+1
End; Writeln(S)
End.

II. С использованием цикла "До".
Program Ex2; Var A : Integer; S : Longint; Begin
A:=1; S:=0; Repeat
S:=S+A*A; A:=A+1
Until A>100; Writeln(S)
End.

Слайд 36Program n10;
Uses crt;
var i,s:Integer;
begin
Clrscr;
s:=0;
For i:=2

to 100 do if (i mod 2 = 0) then s:=s+i;
writeln('s=',s:10);
End.


Задание 12. Постройте по данной программе блок-схему решения задачи и сформулируйте её условие

Слайд 37
Вопросы

Слайд 38Задача 13. Собрать код программы, которая выводит «столбиком» все целые числа

от 20 до 35.

Задача 14. В 1998 году на счету было 10 долларов, каждый год сумма увеличивалась на 11%, через сколько лет на счету будет 100 долларов.





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

Экономия водоснабжения 197
ООО Главземпроект (Москва) представляет программу СМЕТА-2012 172
Интеграция библиотечных и архивных информационных систем 221
Мороженое 532
Педсовет “Современный урок- как основа эффективного и качественного образования3 ноября 2011 года 273
Шаблон. Название темы 228

Обратная связь

Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое ThePresentation.ru?

Это сайт презентаций, докладов, проектов, шаблонов в формате PowerPoint. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами с другими пользователями.

Для правообладателей

Яндекс.Метрика