Арифметический оператор цикла (цикл с параметром)

FOR <пар_цик>:= <нач_зн> TO [DOWNTO]<кон_зн> DO <операторы>, где

FOR, TO, DO — зарезервированные слова;

<пар_цик> — параметр цикла (переменная порядкового типа);

<нач_зн> — начальное значение <пар_цик>;

<кон_зн> — конечное значение <пар_цик>;

<операторы> — произвольные операторы языка Turbo Pascal.

Алгоритм работы цикла с параметром следующий:

Вычисляется начальное значение и присваивается параметру цикла.

Если параметр цикла меньше или равен конечному значению, то переход к п.3, иначе оператор заканчивает работу;

выполняются операторы после слова DO;

Параметр цикла изменяется на единицу (увеличивается, если оператор содержит ключевое слово TO и уменьшается, если оператор содержит ключевое слово DOWNTO).

Оператор цикла с предусловием

WHILE <условие> DO <операторы>, где

WHILE, DO — зарезервированные слова;

<условие> — выражение логического типа;

<операторы> — операторы языка Turbo Pascal.

Пока значение выражения <условие> равно TRUE, выполняются <операторы>. Если условие FALSE, то выполнение оператора заканчивается.

Оператор цикла с постусловием

REPEAT <тело_цикла> UNTIL <условие>, где

REPEAT, UNTIL — зарезервированные слова;

<тело_цикла> — операторы языка Turbo Pascal;

<условие> — выражение логического типа.

Оператор выполняется хотя бы один раз. Затем проверяется условие. Если его значение FALSE, то выполняется <тело_цикла>, иначе оператор заканчивает работу.

Варианты

1. Найти сумму целых положительных чисел, кратных 3 и меньших 200.

2. Найти сумму целых положительных четных чисел, меньших 100.

3. Найти сумму целых положительных нечетных чисел, меньших 200.

4. Найти сумму целых положительных чисел, больших 20, меньших 100 и кратных 3.

5. Найти сумму ряда из К слагаемых, общий член которого

6. Найти сумму ряда из К слагаемых, общий член которого

7. Найти сумму ряда из К слагаемых, общий член которого

8. Найти сумму ряда из К слагаемых, общий член которого

9. Найти сумму ряда с точностью e=10-4, общий член которого

10. Найти сумму ряда с точностью e=10-4, общий член которого

11. Найти сумму ряда с точностью e=10-4, общий член которого

12. Найти сумму ряда с точностью e=10-4, общий член которого

13. Найти сумму ряда с точностью e=10-4, общий член которого

14. Найти сумму ряда с точностью e=10-4, общий член которого

 

15. Задана последовательность из N целых чисел. Найти разницу между максимальным и минимальным числом этой последовательности.

16. Задана последовательность из N целых чисел. Найти среднее арифметическое этой последовательности.

17. Задана последовательность из N целых чисел. Найти количество отрицательных и сумму положительных чисел в этой последовательности.

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

19. Задана последовательность, заканчивающаяся 0. Найти среднее арифметическое этой последовательности.

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

21. Задано число К. Определить является ли оно простым (простое число делится только на 1 и само на себя).

22. Задано число К. Определить является ли оно числом Фибоначчи (1, 1, 2, 3, 5, 8, 13...).

23. Задано число N. Сформировать N чисел Фибоначчи (1, 1, 2, 3, 5, 8, 13,...).

24. Задано число N. Сформировать N простых чисел (простое число делится только на 1 и само на себя).

25. Задана последовательность из N целых чисел. Определить сколько чисел принимают наибольшее значение.

Содержание отчета

1. Постановка задачи (общая и конкретного варианта).

2. Алгоритм в виде блок-схемы.

3. Программа на языке Паскаль.

4. Объяснение использования операторов циклов.

 

5. Пример выполнения работы и оформления отчета

Лабораторная работа №2
«Основные операторы языка Паскаль»

1. Вариант 26: Найти сумму ряда из К слагаемых, общий член которого

2. Алгоритм решения задачи

 

3. Программа

Var S,A:Real;

I,K:Integer;

Begin

Writeln(‘введите количество элементов ряда’);

Readln(K);

S:=0;A:=2;

For I:=1 to K do begin

S:=S+A;

A:=1/(exp(2*ln(i))+1/exp(3*ln(i));

End;

Writeln(‘Сумма ряда S=’, S:6:3);

End.

4. В программе использован цикл с параметром (For), т. к. в условии задачи указано количество слагаемых суммы, следовательно, вычисление слагаемого и добавление его к сумме надо повторить К раз.
Лабораторная работа №3
«Работа с массивами»

1. Цель работы:

1) Получение практических навыков при работе с массивами.

2) Знакомство с алгоритмами сортировки.

2. Краткие теоретические сведения:

Понятие массива

Массив – это формальное объединение нескольких однотипных объектов (чисел, символов, строк и т.п.), рассматриваемое как единое целое.

Массив описывается следующим образом:

<имя_типа> = ARRAY [<сп_инд_типов>] OF <тип>,

где ARRAY, OF – зарезервированные слова (массив, из);

<имя_типа> -- правильный идентификатор;

<сп_инд_типов> -- тип-диапазон, с помощью которого компилятор определяет число элементов массива.

<тип> -- любой тип ТР, в том числе и другой массив.

Определить переменную как массив можно непосредственно при описании этой переменной, без предварительного описания типа массива, например:

var f: array [1..12] of integer.

Перебор элементов массива

1) Элементы массива можно обрабатывать по одному элементу, двигаясь от начала массива к его концу (или в обратном направлении):
For I:=1 to N do <обработка a[i]>

2) Элементы массива можно обрабатывать по два элемента, двигаясь с обеих сторон массива к его середине:
I:=1;J:=N;
while I<J do begin
<обработка a[I] и a[J]>;
I:=I+1;J:=J+1;
end;

3) Элементы массива можно обрабатывать по два элемента, двигаясь от начала к концу с шагом 1(т. е. обрабатываются пары элементов a[1]и a[2], a[2]и a[3] и т. д.)
for I:=1 to N-1 do
<обработка a[I] и a[I+1]>

4) Элементы массива можно обрабатывать по два элемента, двигаясь от начала к концу с шагом 2(т. е. обрабатываются пары элементов a[1]и a[2], a[3]и a[4] и т. д.)
I:=1;
while I<N do begin
<обработка a[I] и a[I+1]>
I:=I+2;
end;