Без темы
<<  Занятие 5 Занятие 5  >>
Занятие 5
Занятие 5
Проверка задания
Проверка задания
2. Какими будут значения переменных j, k после выполнения условного
2. Какими будут значения переменных j, k после выполнения условного
Цикл с параметром
Цикл с параметром
Цикл с параметром
Цикл с параметром
Составить программу вычисления значения выражения y=1+1/2+1/3+… +1/20
Составить программу вычисления значения выражения y=1+1/2+1/3+… +1/20
Организовываем цикл с параметром от 1 до 20 FOR n=1 TO 20 For n:=1 to
Организовываем цикл с параметром от 1 до 20 FOR n=1 TO 20 For n:=1 to
Вопросы для обсуждения 1. Каким действием можно выделить послед­нюю
Вопросы для обсуждения 1. Каким действием можно выделить послед­нюю
PRIM2 Program prim2; uses crt; DEFINT K,N,P,SCLS Var k,n,pl,p2,s
PRIM2 Program prim2; uses crt; DEFINT K,N,P,SCLS Var k,n,pl,p2,s
Дано натуральное число n (1000<=N<=9999)
Дано натуральное число n (1000<=N<=9999)
QB
QB
Задание
Задание

Презентация: «Занятие 5». Автор: Чернов А.Ф.. Файл: «Занятие 5.ppt». Размер zip-архива: 157 КБ.

Занятие 5

содержание презентации «Занятие 5.ppt»
СлайдТекст
1 Занятие 5

Занятие 5

Цикл с параметром

Цель: Показать сходство и различие цикла с параметром в языках программирования QBasic и Turbo Pascal 7.0.

2 Проверка задания

Проверка задания

1. Имеется условный оператор: if D<>10 Then writeln('ypa!') Else Writeln(' плохо...'); Можно ли заменить его следующими операторами: if D=10 Then Writeln('ypa!') Else Writeln('nлoxo...'); (НЕТ) if Not(D=W) Then Writeln('ypa!') Else Writeln('nлoxo...'); (Да, если W=10 ) if Not(D=10) Then Writeln('плоxo...') Else Writeln('ypa!'); (НЕТ) if Not(D<>10) Then Writeln('nлoxo...') Else Writeln('ypa!'). (ДА)

3 2. Какими будут значения переменных j, k после выполнения условного

2. Какими будут значения переменных j, k после выполнения условного

оператора: QBasic Turbo Pascal 7.0 if j>k Then j = k-2 Else k=k-2 if j>k Then j:=k - 2 Else dec(k,2); если исходные значения переменных равны: j=3, k=5; Ответы: (j=3, к=3) j=3, k=3; (j=3, к=1) j=3, k=2. (j=0, k=2)

4 Цикл с параметром

Цикл с параметром

FOR I=A TO B [STEP h] For <параметр>:=А То В Do <тело цикла> Если h=1, то шаг можно опустить. Оператор цикла с параметром применяют тогда, когда известно число повторений одного и того же действия. Начальное и конечное значения параметра цикла могут быть представлены константами, переменными или арифметическими выражениями.

5 Цикл с параметром

Цикл с параметром

Рассмотрим, как выполняется оператор цикла с параметром вида FOR I=A TO B, For <параметр>:=А То В Do <тело цикла> Сначала вычисляются значения выражений А и В. Если А<=В, то <параметр> последовательно принимает значения, равные А, А+1,..., В-1, В, и для каждого из этих значений выполняется <тело цикла>. Если А>В, то <тело цикла> не будет выполнен ни разу и выполнение цикла с параметром сразу же закончится. Оператор цикла с параметром FOR I=B TO A STEP -1 и For <параметр>:=А DownTo В Do <тело цикла> выполняется аналогичным образом, но значение <параметра> изменяется с шагом, равным -1.

6 Составить программу вычисления значения выражения y=1+1/2+1/3+… +1/20

Составить программу вычисления значения выражения y=1+1/2+1/3+… +1/20

В данном случае целесообразно организовать цикл с параметром, изменяющимся от 1 до 20, то есть шаг изменения параметра равен +1. Обозначим: у — очередное значение суммы дробей; n — параметр цикла. Учитывая это, составим программу: ‘prim1 Program prim1; uses crt; DEFINT N Var n: Integer; DEFSGN Y y: real; Begin CLS clrscr; Задаем начальное значение равное нулю. Y=0 y:=0;

QB

TP

7 Организовываем цикл с параметром от 1 до 20 FOR n=1 TO 20 For n:=1 to

Организовываем цикл с параметром от 1 до 20 FOR n=1 TO 20 For n:=1 to

20 Do begin Находим очередную сумму. Y=Y +1/N y:=y + 1/n; Выводим на экран очередную сумму. ?”Y=”;Y Writeln('y=',y); NEXT End.; End end. Самостоятельное задание. А) Переставьте строки вывода результата за NEXT (End;) Б) Измените цикл с 20 до 1.

8 Вопросы для обсуждения 1. Каким действием можно выделить послед­нюю

Вопросы для обсуждения 1. Каким действием можно выделить послед­нюю

цифру числа? 2. Каким действием можно выделить первую цифру числа? Обозначим: k — это просматриваемое число; p1 — это первая цифра числа k, р2 — это вторая цифра числа k; s — это сумма цифр данного числа k. Чис­ло k будем выписывать только в том случае, когда сумма р1 и р2 будет равна s.

Из чисел от 10 до 99 вывести те, сумма цифр которых равна S(0<S<18).

QB

TP

9 PRIM2 Program prim2; uses crt; DEFINT K,N,P,SCLS Var k,n,pl,p2,s

PRIM2 Program prim2; uses crt; DEFINT K,N,P,SCLS Var k,n,pl,p2,s

Integer; Begin CLS clrscr; Задаем целое число от 10 до 99. INPUT”целое число=“;N Writeln(' целое число n='); Readln(n); Организовываем цикл с параметром FOR K=10 TO 99 For k:=10 To 99 Do Begin Выделяем первую цифру. P1=K \10 P1:=k Div 10; Выделяем вторую цифру .P2=K MOD 10 p2:=k Mod 10; Находим сумму цифр S=P1+ P2 s:=p1+p2; Если сумма цифр равна заданному числу N, то выводим К IF S=N THEN PRINT “k=”;K if s=n Then Writeln(‘k=’,k); NEXT End; END End.

10 Дано натуральное число n (1000<=N<=9999)

Дано натуральное число n (1000<=N<=9999)

Определить, является ли оно палиндромом ("перевертышем"), с учетом четырех цифр. Например, палиндромами являются числа: 2222, 6116, 1441.

Вопросы для обсуждения Дано число п. Каким образом можно построить "перевертыш" данного числа? Сколько переменных необходимо для решения данной задачи? Объясните назначение каждой переменной. Обозначим: п — вводимое число; т — дубликат числа п; а — перевертыш числа п; i — переменная цикла для создания перевертыша.

11 QB

QB

TP

‘PRIM3 Program Prim3 uses crt; DEFINT A,I, M-N Var n, m, a, i: Integer; Begin CLS Clrscr; Введем четырехзначное целое число INPUT”N<=9999”;N Writeln('N<=9999'); Readln(n); Запоминаем введенное целое число и задаем начальное значение перевертыша M=N:A=0 М:=п; а:=0; Организуем цикл с параметром от 1 до 4. FOR I=1 TO 4 For i:=1 To 4 Do; Begin Находим перевертыш числа N. A=A*10+ M mod 10: M=M \ 10 а:=а*10+М Mod 10; m:=m Div 10; NEXT End; Если A=N, то данное число является перевертышем. IF A=N THEN PRINT”DA” If a=n Then Writeln('DA!') ELSE ?”NO” Else Writeln('NO'); END Readln; End

12 Задание

Задание

1. Определить значение переменной S после выполнения следующих операторов: s=0:n=5 For i=2 То n: s=s+100 \ i :next s:=0; n:=5 For i:=2 То n Do s:=s+100 Div i 2. Какие из приведенных операторов правильные и почему? А) FOR I=12 TO 15:S+S+I:NEXT For i:=12 To 15 Do s:=s+i; Б) FOR A=30 TO 20 For a:=30 To 20 Do if А Mod 3=0 Then d=d+1 if a Mod 3=0 Then d:=d+1; NEXT 3. Как выглядит оператор цикла с параметром? Как он работает?

«Занятие 5»
http://900igr.net/prezentacija/pedagogika/zanjatie-5-161895.html
cсылка на страницу
Урок

Педагогика

135 тем
Слайды