Uploaded by lt0686119

Лабораторная работа №6

advertisement
ГБПОУ «Курганский государственный колледж»
Инструкционная карта № 6.
«Оператор цикла»
Оператор цикла с предусловием
Решите задачи:
Задача № 1. Выписать последовательно значения, которые будут
выводиться программой по ходу ее выполнения:
Рrogram pr;
Var I,j: integer;
Веgin
I:=0; j:=0;
Repeat
I := I + 1;
J: = J + 10;
Write (I, j)
Until j> 50;
I: = 0;
J: = 0;
While j < 40 do
Begin
I : = I + 1;
J: = J + 10;
Write (I, J);
end;
end.
Задача № 2. Объяснить, в чем заключается синтаксическая
ошибка(или ошибки) в приведенной программе:
Рrogram пример;
Var k; I; d; s: integer;
Writeln (‘Введите значение к:’);
Readln (k);
For I:= 100 to 300 do
Веgin
D:=2; s:=0;
While d<= I div 2 +1 dо
(IF I mod d = 0 then s:= s + d; d: = d + 1);
If s = k then writeln (I)
Еnd
Еnd.
Задание 3. Дано целое положительное число n. Требуется вычислить n!
(факториал).
Задача № 4. Подсчитывать сумму целых чисел, пока она не станет
равной 100. сколько чисел для этого необходимо?
Оператор цикла с постусловием
Задача № 5.
Какое значение будет принимать переменная у после выполнения
программы:
Заполнить таблицу до конца.
Задание 6. Вычислить сумму последовательности
1+1/2+1/3+1/4+…+1/100.
Programm сумма
Var s:real;
i:integer;
Begin
I:=1; s:=0;
Repeat
S:=s+1/I;
I=i+1
Until i<100;
Writeln(‘сумма=’,s:5:3);
End.
Задание 7.Составить программу, используя цикл с постусловием:
Вычислить квадратные корни из чисел 900, 893, 886,879… до тех пор
пока это можно делать.
Оператор цикла с параметром
Задание 8. Составить программу, которая считает сумму чисел в
интервале от 1 до 100.
Задание 9. Составить программу для нахождения сумму чисел в
интервале от а до b.
Download