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

Проверка задания 1. Имеется условный оператор: if D10 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(D10) Then Writeln('nлoxo...') Else Writeln('ypa!'). (ДА)

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)

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

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

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

Организовываем цикл с параметром от 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.

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

PRIM2Program prim2; uses crt; DEFINT K,N,P,SCLSVar 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.

Дано натуральное число n (1000

PRIM3 Program Prim3 uses crt; DEFINT A,I, M-N Var n, m, a, i: Integer; Begin CLS Clrscr; Введем четырехзначное целое число INPUTN

Задание 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. Как выглядит оператор цикла с параметром? Как он работает?