Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
рактическое занятие № 9
ПРОГРАММЫ ВЫЧИСЛЕНИЯ СУММЫ И ПРОИЗВЕДЕНИЯ
Цель работы: Приобретение навыков использования операторов FOR, WHILE, REPEAT при составлении циклической программы.
1 ОБЩИЕ СВЕДЕНИЯ
Циклической программой называется такая программа, в которой некоторая последовательность операторов выполняется многократно. Перед выполнением работы необходимо изучить различные схемы организации циклов и операторов FOR, WHILE и REPEAT, с помощью которых они программируются.
Пример 1. Рассмотрим пример вычисления суммы натуральных чисел от 1 до 20.
Программа на языке Pascal имеет вид:
PROGRAM SUM_NAT;
VAR I, SUMMA: INTEGER;
BEGIN
{переменной summa присвоим начальное значение}
SUMMA : = 0;
FOR I := 1 TO 20 DO
SUMMA := SUMMA + I;
WRITELN('СУММА РАВНА ', SUMMA):
END.
Первая строка в разделе операторов — комментарий, заключенный в фигурные скобки. Оператор summa := 0 – начальное значение переменной summa равно нулю.
Затем идет цикл со счетчиком. В примере тело цикла выполняется 20 раз, и каждый раз к значению переменной summa прибавляется значение переменной — счетчика i.
Следующая строка реализует вывод результата на экран. Для этого в программах на языке Паскаль используются операторы вывода WRITE и WRITELN. Вначале выводится символьная строка. Текст, выводимый на экран, заключается в одиночные кавычки '...'. Затем выводится численное значение — summa.
Последние две буквы в имени процедуры WRITELN означают, что после того, как вывод закончен, курсор переходит на начало следующей строки.
Пример 2. Вычислить произведение N натуральных чисел.
Составим программу с использованием всех возможных циклов.
1. Программа с использованием оператора FOR.
PROGRAM PRIMER1;
VAR K,N,Y:INTEGER;
BEGIN
WRITE('ВВЕДИТЕ ЗНАЧЕНИЕ N');
READLN(N);
Y:=1;
FOR K=1 TO N DO
Y:=Y*K;
WRITE('ЗНАЧЕНИЕ ПРОИЗВЕДЕНИЯ РАВНО',Y)
END.
2. Программа с использованием оператора WHILE.
PROGRAM PRIMER2;
VAR K,N,Y:INTEGER;
BEGIN
WRITE('ВВЕДИТЕ ЗНАЧЕНИЕ N');
READLN(N);
Y:=1;
K:=1;
WHILE K<=N DO
BEGIN
Y:=Y*K;
K:=K+1;
END;
WRITE('ЗНАЧЕНИЕ ПРОИЗВЕДЕНИЯ РАВНО',Y)
END.
3.Программа с использованием оператора REPEAT.
PROGRAM PRIMER3;
VAR K,N,Y:INTEGER;
BEGIN
WRITE('ВВЕДИТЕ ЗНАЧЕНИЕ N');
READLN(N);
Y:=1;
K:=1;
REPEAT
Y:=Y*K;
K:=K+1;
UNTIL K>N
WRITE('ЗНАЧЕНИЕ ПРОИЗВЕДЕНИЯ РАВНО',Y)
END.
2 ВОПРОСЫ ДОПУСКА
– Как записывается и работает оператор FOR?
– Для организации каких циклов применяется оператор FOR?
– Как записывается и работает оператор REPEAT?
– В чем отличие оператора WHILE от оператора REPEAT?
3.1 Составьте программы на языке программирования Pascal, используя все возможные виды циклов.
Варианты заданий
|
1 |
2 |
3 |
|
4 |
5 |
6 |
|
7 |
8 |
9 |
|
10 |
11 |
12 |
|
13 |
14 |
15 |
|
16 |
17 |
18 |
|
19 |
20 |
21 |
|
22 |
23 |
24 |
|
25 |
26 |
27 |
|
28 |
29 |
30 |
3.2 Оформите отчет по работе по следующему образцу:
1. Определение исходных данных: _________________
2. Определение результатов: _________________
3. Описание переменных: _________________
4. Программа на языке Pascal: _________________
_________________
…
5. Тестирование программы: _________________
4 КОНТРОЛЬНЫЕ ВОПРОСЫ
1 Какие операторы используются для организации циклических программ?
2 Какие изменения нужно внести в программу вычисления суммы, чтобы получить программу вычисления произведения?