Циклический алгоритм икт паскаль пример. Циклические алгоритмы Виды циклов и циклические команды на Паскале

Циклические алгоритмы06.04.2017
Циклические алгоритмы
Виды циклов и циклические
команды на Паскале

Цикл - это многократное
повторение последовательности
действий
Повторяющаяся часть алгоритма
называется ТЕЛОМ ЦИКЛА
Виды циклов
С заданным числом
повторений
Условие выполнения
цикла
С условием
Условие выхода из
цикла

Виды циклов (содержание)
Цикл с предусловием
Практика
Цикл с постусловием
Практика
Цикл с параметрами
Практика
Решение сложных задач

Цикл с предусловием

Практика

условием, и действие, которое необходимо выполнить только
после проверки условия используют цикл в предусловием.


Перед каждым выполнением тела цикла происходит проверка
условия, если результат «истина», то тело цикла выполняется
еще раз, если «ложь», то происходит выход из цикла.
На блок - схеме
Начало цикла
Нет
Условие
ДА
Тело цикла
Конец цикла
В Pascal
While <условие> do
begin
<тело цикла>
end;

Цикл с постусловием

Практика
Если число повторений заранее неизвестно, а задано лишь
условием, и действие, которое необходимо выполнить до
проверки условия используют цикл с постусловием.
В качестве условия используется логическое выражение, тело
цикла – простой или составной оператор.
После каждого выполнением тела цикла происходит проверка
условия, если результат «ложь», то тело цикла выполняется
еще раз, если «истина», то происходит выход из цикла.
На блок - схеме
В Pascal
Repeat
Тело цикла
<тело цикла>
Да
Нет
Условие
Until <условие>;

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

Практика
Цикл с параметром
В случаях, когда число повторений заранее известно
применяется цикл в параметром.
Переменная, задающая число повторений, называется
параметром цикла, либо управляющей переменной.
После каждого выполнения тела цикла управляющая
переменная увеличивается либо уменьшается, цикл
выполняется до тех пора пока она не превысит либо
станет меньше ограничения.
На блок - схеме
В Pascal
For X:=A to B do
X:=A,В,C
Тело цикла
Х – управляющая переменная (параметр цикла)
А – начальное значение Х, В – конечное Х
С – шаг изменения Х
Begin
<тело цикла>
End;
В качестве шага можно использовать
только:
«to» = 1;
«downto» = -1

Пример задачи с использованием цикла с предусловием
Теория

Словесный алгоритм:
Умножать число Х изначально равное 1
заданное число раз (Н) на 3.
начало
Programm Stepen;
Var
H,B,X:integer;
Begin
Writeln(‘Степень?’);
Readln(H);
X:=1;
B:=1;
While B<=H do
Begin
X:=X*3;
B:=B+1;
End;
Writeln (‘Результат’,X);
End.
Pascal
Н
Ввод заданной степени
X:=1
Начальные значения
B:=1
Нет
«В» счетчик степени
B≤H
да
X:=X*3
Умножение на 3
В=В+1
Увеличение счетчика
Х
Вывод получившегося
значения
конец
Блок-Схема
Пояснения

Пример задачи с использованием цикла с постусловием
Теория
ЗАДАЧА: Возвести число 3 в заданную степень
Словесный алгоритм:

Programm Stepen;
Var
H,B,X:integer;
Begin
Writeln(‘Степень?’);
Readln(H);
X:=1;
B:=0;
Repeat
X:=X*3;
B:=B+1;
Нет
Until B>=H;
Writeln (‘Результат’,X);
End.
начало
Н
Ввод заданной степени
X:=1
Начальные значения
B:=0
Умножение на 3
X:=X*3
Увеличение счетчика
В=В+1
Да
B>=H
«В» счетчик степени
Х
Вывод получившегося
значения
конец
Pascal
Блок-Схема
Пояснения

Пример задачи с использованием цикла с параметром
Теория
ЗАДАЧА: Возвести число 3 в заданную степень
Словесный алгоритм:
Умножать число Х изначально равное 1 заданное число раз (Н) на 3.
Programm Stepen;
Var
H,B,X:integer;
Begin
Writeln(‘Степень?’);
Readln(H);
X:=1;
For B:=1 to H do
Begin
X:=X*3;
End;
Writeln (‘Результат’,X);
End.
Pascal
начало
Н
X:=1
B:=1,H,1
X:=X*3
Х
конец
Блок-Схема
Ввод заданной степени
Начальное значение Х=1
Параметры от 1 до Н
Умножение на 3
Вывод получившегося
значения
Пояснения

Выбор цикла зависит от особенностей условия задачи. Только практика подскажет Вам оптимальное решение.

Задача: Начав тренировки, спортсмен в первый день
пробежал 10 км. Каждый день он увеличивал дневную
норму на 10% нормы предыдущего дня.
Какой суммарный путь пробежит спортсмен за 7 дней.
Входные переменные:
d – количество дней
Sd – расстояние за текущий день
Выходные переменные:
S – общий путь

Блок - схема к решению

начало
S:=10
Sd:=10
d:=1
d:=d+1
Sd:=Sd*1.1
S:=S+Sd
нет
D=7
да
s
конец

Программа на Паскале

Цикл «Для»
Цикл «Пока»
Цикл «До»
Program beg;
Program beg;
Program beg;
Var
Var
Var
S,Sd: real;
S,Sd: real;
S,Sd: real;
d:byte;
d:byte;
d:byte;
Begin
Begin
Begin
S:=10;
S:=10;
S:=10;
Sd:=10;
Sd:=10;
Sd:=10;
For d:=2 to 7 do
begin
While d<7 do
begin
Repeat
d:=d+1;
Sd:=1.1*Sd;
d:=d+1;
Sd:=1.1*Sd;
S:=S+Sd;
Sd:=1.1*Sd;
S:=S+Sd;
end;
S:=S+Sd;
until (d=7);
Writeln(‘S=‘,S);
end;
Writeln(‘S=‘,S);
End.
Writeln(‘S=‘,S);
End.
End.

Вопросы для контроля:
1. Каким оператором в Pascal задается цикл с
предусловием
2. Как в цикле в параметром указывать шаг «1» и «-1»
3. По какой ветке происходит выход из цикла с
постусловием
4. Есть ли в цикле с параметром условия
5. Что может быть телом цикла
6. Когда используется цикл с параметрами
Конец

Типы циклов

циклы с параметром for

циклы с предусловием

цикл while с предусловием

цикл repeat - until с постусловием

Цикл с предусловием в Паскале - WHILE

Оператор цикла с предусловием выполняет действия заранее неизвестное число раз. Выход из цикла осуществляется, если некоторое логическое выражение или его результат окажется ложным.

Так как верность логического выражения проверяется в начале, тело цикла может не выполнится ни одного раза.

Структура цикла WHILE

Блок – схема цикла WHILE

оператор

условие

Пример

Задача: Написать программу, которая вычисляет сумму всех четных чисел до 50.

writeln ("Сумма равна: ",sum);

Задача

Написать программу, которая ищет n!.

Цикл с постусловием в Паскале – REPEAT-UNTIL

Этот оператор аналогичен оператору цикла с предусловием, но отличается от него тем, что проверка условия производится после выполнения тела (действий) цикла. Это обеспечивает его выполнение хотя бы один раз в отличие от ранее разобранных циклов.

Обратите внимание на то, что данный оператор цикла предполагает наличие нескольких операторов в теле цикла, то есть можно выполнять несколько действий, поэтому служебные слова Begin и End не нужны.

Структура цикла

REPEAT-UNTIL

Блок – схема цикла REPEAT-UNTIL

оператор

условие

Пример

Задача: Написать программу, которая определяет сумму первой и последней цифр в числе.

a,b,c,d:integer;

writeln("введите число");

writeln(‘Сумма первой и последней цифры равна:‘c);

Задача

Написать программу, которая определяет является ли число простым.

Цикл с параметром в Паскале - FOR

Цикл FOR задаёт условие по которому программа будет работать до его выполнения, допустим нужно n раз зациклить программу, то это легко сделать с помощью данного цикла.

У цикла FOR есть характерная черта - счетчик который обычно обозначается буквой i или j.

В цикле счетчик можно задавать как в прямом (служебное слово to ), так и в обратном порядке (служебное слово downto ).

Структура цикла FOR

FOR i:= n1 TO n2 DO

1 – ая форма записи

FOR i:= n2 DOWNTO n1 DO

2 – ая форма записи

Блок – схема цикла FOR

i:= n1 … n2

Тело цикла

Пример

Задача: Написать программу, которая вычисляет n-ую степень заданного числа.

a, n, i, pr: integer;

writeln (‘Введите число");

writeln (‘Введите степень числа");

for i:= 1 to n do

writeln (‘Степень числа равна’,pr);

Задача

Написать программу, которая находит число P = (1-1/2)(1-1/3)*…*(1-1/n).

N вводится с клавиатуры.

Слайд 1

Исполнитель РОБОТ Циклический алгоритм
Презентация к уроку информатики. 9 класс Тема: Управление и алгоритмы

Слайд 2

FOR i:=1 TO N DO BEGIN действие1; действие2; END;
FOR i:=1 TO N DO действие1; действие2;
1

Слайд 3

2
WHILE (УСЛОВИЕ ИСТИННО) DO BEGIN действие1; действие2; END;
WHILE (УСЛОВИЕ ИСТИННО) DO действие1; действие2;

Слайд 4

3
17 клеточек
12 клеточек

Слайд 5

4
Program N1; var i:integer; Begin For i:=1 to 12 do RobotForw; RobotLeft; For i:=1 to 17 do RobotForw; RobotLeft; For i:=1 to 12 do RobotForw; RobotLeft; For i:=1 to 17 do RobotForw; RobotLeft; end.
Движемся вниз
Движемся вправо
Движемся вверх
Движемся влево
Эта и следующая команды поворачивают в углу робота налево

Слайд 6

5
Если поставить стену, робот в нее врежется и программа остановится

Слайд 7

6
Program N2; var i:integer; Begin While FreeForw do RobotForw; RobotLeft; While FreeForw do RobotForw; RobotLeft; While FreeForw do RobotForw; RobotLeft; While FreeForw do RobotForw; RobotLeft; end.
Пока впереди свободно, выполнить робот вперед.

Слайд 8

Слайд 9

8
Program N3; var i:integer; Begin for i:=1 to 4 do begin While FreeForw do RobotForw; RobotLeft; end; end.
Четыре раза выполнить движение вперед, пока нет препятствия и поворот налево

Слайд 10

9
Четыре раза выполнить движение вперед, пока нет препятствия, и поворот налево

Слайд 11

10
Задания для самостоятельной работы
Задание 1. У левой стены обстановки в произвольном месте ставится препятствие. Робот должен доехать до точки 1 и вернуться в исходное состояние. Примечание: использовать три последовательно соединенных цикла ПОКА
1
1

Слайд 12

11
Задание 2. У левой стены обстановки в произвольном месте ставится груз. Робот должен доехать до груза, взять его перевезти на склад и вернуться в исходное состояние. Примечание: использовать два последовательно соединенных цикла ПОКА

Слайд 13

12
Задание 3. У левой стены обстановки в произвольном месте ставятся пять грузов. Робот должен все грузы перевезти на склад. Примечание: использовать два последовательно соединенных цикла ПОКА, вложенных в цикл с параметром.

Слайд 14

13
Пример 1 Робот находится перед входом в коридор. Необходимо отметить все клетки внутри коридора, и вернуться обратно

Слайд 15

14
Program N7; Begin RobotForw; While not FreeLeft do begin Select; RobotForw; end; RobotBack; While not FreeLeft do RobotBack; end.
Делаем шаг вперед для входа в туннель
Пока слева есть стена, отмечаем клетку и делаем шаг вперед
Возвращаемся обратно в туннель
Пока с лева стена, движемся на шаг назад

Слайд 16

15
Пример 2 Имеются две стены поставленные углом. Длины стен произвольные. Робот находится в углу между стенами (см. рисунок). Необходимо составить программу в которой робот отмечает все клетки на внутренней части стены. Конечное положение робота произвольно.

Слайд 17

16
Program N8; Begin While not FreeRight do begin Select; RobotForw; end; While FreeBack do RobotBack; RobotLeft; While not FreeLeft do begin Select; RobotForw; end; end.
Пока справа не свободно, отмечаем клеточку и делаем шаг вперед.
Возвращаем робота назад
Поворачиваем налево
Пока слева не свободно, отмечаем клеточку и делаем шаг вперед.

Слайд 18

Слайд 19

18
Пример 3 Обстановку перекрывает стена, делящая обстановку на две части. В стене есть проход размером в клетку в произвольном месте. Необходимо составить программу в которой робот находит этот проход и переходит на другую часть обстановки.

Слайд 20

19
Program N9; Begin RobotLeft; While FreeForw do RobotForw; RobotRight; While not FreeLeft do RobotForw; RobotLeft; RobotForw; RobotForw; end.
Поворачиваем робота по направлению к стене.
Движемся вперед пока не упремся в стену
Поворачиваем робота вдоль стены
Движемся вперед пока стена не кончится
Поворачиваем робота в сторону прохода
Делаем два шага вперед, проходим на другую половину обстановки

Цикл с предусловием Если число повторений заранее неизвестно, а задано лишь условием, и действие, которое необходимо выполнить только после проверки условия используют цикл в предусловием. В качестве условия используется логическое выражение, тело цикла – простой или составной оператор. Перед каждым выполнением тела цикла происходит проверка условия, если результат «истина», то тело цикла выполняется еще раз, если «ложь», то происходит выход из цикла. На блок - схемеВ Pascal begin end; Условие Тело цикла Нет Практика Начало цикла Конец цикла ДА While do

Цикл с постусловием Если число повторений заранее неизвестно, а задано лишь условием, и действие, которое необходимо выполнить до проверки условия используют цикл с постусловием. В качестве условия используется логическое выражение, тело цикла – простой или составной оператор. После каждого выполнением тела цикла происходит проверка условия, если результат «ложь», то тело цикла выполняется еще раз, если «истина», то происходит выход из цикла. На блок - схемеВ Pascal Repeat Условие Тело цикла Да Нет Практика Until ;

Цикл с параметром В случаях, когда число повторений заранее известно применяется цикл в параметром. Переменная, задающая число повторений, называется параметром цикла, либо управляющей переменной. После каждого выполнения тела цикла управляющая переменная увеличивается либо уменьшается, цикл выполняется до тех пора пока она не превысит либо станет меньше ограничения. На блок - схемеВ Pascal Х – управляющая переменная (параметр цикла) А – начальное значение Х, В – конечное Х С – шаг изменения Х В качестве шага можно использовать только: «to» = 1; «downto» = -1 X:=A,В,C Тело цикла Практика For X:=A to B do Begin End;

Пример задачи с использованием цикла с предусловием Возвести число 3 в заданную степень ЗАДАЧА: Словесный алгоритм: Умножать число Х изначально равное 1 заданное число раз (Н) на 3. начало Н BHBH X:=1 X:=X*3 конец Х Ввод заданной степени Начальные значения «В» счетчик степени В=В+1 Умножение на 3 Увеличение счетчика Вывод получившегося значения Programm Stepen; Var H,B,X:integer; Begin Writeln(Степень?); Readln(H); X:=1; B:=1; While B

H X:=1 X:=X*3 конец Х Ввод заданной степени Начальные зн" title="Пример задачи с использованием цикла с постусловием Возвести число 3 в заданную степень ЗАДАЧА: Словесный алгоритм: Умножать число Х изначально равное 1 заданное число раз (Н) на 3. начало Н B>=H X:=1 X:=X*3 конец Х Ввод заданной степени Начальные зн" class="link_thumb"> 8 Пример задачи с использованием цикла с постусловием Возвести число 3 в заданную степень ЗАДАЧА: Словесный алгоритм: Умножать число Х изначально равное 1 заданное число раз (Н) на 3. начало Н B>=H X:=1 X:=X*3 конец Х Ввод заданной степени Начальные значения «В» счетчик степени В=В+1 Умножение на 3 Увеличение счетчика Вывод получившегося значения Programm Stepen; Var H,B,X:integer; Begin Writeln(Степень?); Readln(H); X:=1; B:=0; Repeat X:=X*3; B:=B+1; Until B>=H; Writeln (Результат,X); End. Нет Да Теория Pascal Блок-Схема Пояснения B:=0 =H X:=1 X:=X*3 конец Х Ввод заданной степени Начальные зн"> =H X:=1 X:=X*3 конец Х Ввод заданной степени Начальные значения «В» счетчик степени В=В+1 Умножение на 3 Увеличение счетчика Вывод получившегося значения Programm Stepen; Var H,B,X:integer; Begin Writeln(Степень?); Readln(H); X:=1; B:=0; Repeat X:=X*3; B:=B+1; Until B>=H; Writeln (Результат,X); End. Нет Да Теория Pascal Блок-Схема Пояснения B:=0"> =H X:=1 X:=X*3 конец Х Ввод заданной степени Начальные зн" title="Пример задачи с использованием цикла с постусловием Возвести число 3 в заданную степень ЗАДАЧА: Словесный алгоритм: Умножать число Х изначально равное 1 заданное число раз (Н) на 3. начало Н B>=H X:=1 X:=X*3 конец Х Ввод заданной степени Начальные зн"> title="Пример задачи с использованием цикла с постусловием Возвести число 3 в заданную степень ЗАДАЧА: Словесный алгоритм: Умножать число Х изначально равное 1 заданное число раз (Н) на 3. начало Н B>=H X:=1 X:=X*3 конец Х Ввод заданной степени Начальные зн">

Пример задачи с использованием цикла с параметром Возвести число 3 в заданную степень ЗАДАЧА: Словесный алгоритм: Умножать число Х изначально равное 1 заданное число раз (Н) на 3. начало Н X:=1 X:=X*3 конец Х Ввод заданной степени Начальное значение Х=1 Параметры от 1 до Н Умножение на 3 Вывод получившегося значения Programm Stepen; Var H,B,X:integer; Begin Writeln(Степень?); Readln(H); X:=1; For B:=1 to H do Begin X:=X*3; End; Writeln (Результат,X); End. B:=1,H,1 Теория Pascal Блок-Схема Пояснения

Задача: Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней. Входные переменные: Выходные переменные: S – общий путь d – количество дней Sd – расстояние за текущий день

Конец Вопросы для контроля: 1.Каким оператором в Pascal задается цикл с предусловием 2.Как в цикле в параметром указывать шаг «1» и «-1» 3.По какой ветке происходит выход из цикла с постусловием 4.Есть ли в цикле с параметром условия 5.Что может быть телом цикла 6.Когда используется цикл с параметрами

Описание презентации по отдельным слайдам:

1 слайд

Описание слайда:

Тема занятия: «Алгоритмы циклической структуры. Программирование циклов на Pascal» Дисциплина «Информатика»

2 слайд

Описание слайда:

Основные понятия темы На данном занятии изучаются следующие понятия: понятие цикла; разновидности циклических алгоритмов (цикл с предусловием, цикл с постусловием, цикл с параметром); блок-схемы циклических алгоритмов; представление операторов циклов на языке программирования Pascal; применение циклов при решении задач.

3 слайд

Описание слайда:

Понятие цикла При решении многих задач одна и та же последовательность действий выполняется несколько раз. Например, при поступлении в учебное заведение учащийся сдает экзамены, при этом подсчитываются набранные им баллы (переменная S; ее начальное значение S:=0;). За каждый сданный экзамен он получает оценку N. Если оценка больше «2», то S:= S + N; иначе - прекратить вычисления (выход из цикла).

4 слайд

Описание слайда:

Понятие цикла Цикл - это последовательность операторов, которая может выполняться более одного раза. Циклическим алгоритмом называется алгоритм, предусматривающий многократное повторение одного и того же действия над новыми данными Существует три типа операторов цикла: циклы с предусловием; циклы с постусловием; циклы со счетчиком.

5 слайд

Описание слайда:

Цикл с предусловием. Цикл типа ПОКА WHILE Предписывает выполнять тело цикла до тех пор, пока выполняется условие, записанное после слова пока Блок-схема цикла с предусловием

6 слайд

Описание слайда:

Цикл с предусловием. Цикл типа ПОКА WHILE Цикл с предусловием используется тогда, когда число повторения тела цикла заранее неизвестно, а зависит от выполнения условия. Если условие истинно, то тело цикла выполняется, затем вновь проверка условия и так до тех пор пока условие не станет ложным.

7 слайд

Описание слайда:

Оператор цикл с предусловием (цикл типа ПОКА - WHILE) Этот наиболее часто используемый оператор повторения имеет общий вид на Pascal (формат): WHILE <условие> DO <оператор>; здесь WHILE, DO - резервированные слова (от английских: while -пока, do - делать); <условие> - выражение логического типа; <оператор> - произвольный (возможно составной) оператор.

8 слайд

Описание слайда:

Цикл с постусловием. Цикл типа ДО Порядок выполнения оператора цикла с постусловием Выполнение операторов 1-N повторяется, пока условие не станет верным. В этом цикле условие проверяется только после выполнения тела цикла. Отсюда следует, что тело всегда выполняется хотя бы один раз Блок-схема цикла с постусловием

9 слайд

Описание слайда:

Цикл с постусловием. Цикл типа ДО ВАЖНО! Цикл с постусловием выполняется хотя бы один раз независимо от выполнения условия. Несомненным удобством цикла с постусловием является то, что внутри него можно записать несколько операторов без использования составного оператора. Проверка условия находится после тела цикла. Служебное слово UNTIL

10 слайд

Описание слайда:

Оператор цикл с постусловием (цикл типа ДО - UNTIL) Общий вид (формат) оператора цикла с постусловием на Pascal следующий: Repeat <Оператор 1>; <Оператор 2>; … <Оператор N>; Until <условие>;

11 слайд

Описание слайда:

Пример применения оператора цикла с постусловием Для вывода на экран попарно значения переменной n=1, 2, 3, 4, 5 ,6, 7, 8, 9 и переменной а=10, 20, 30, 40, 50, 60, 70, 80, 90 этот оператор будет иметь вид: n:= 0; repeat n:=n+1; a:=10*n; writeln(n:2,’ ‘,a:3); until n>=9;

12 слайд

Описание слайда:

Цикл с параметром. Цикл типа FOR Цикл с параметром используется в том случае, когда требуется выполнить заданное количество шагов цикла. Необходимо отметить, что цикл FOR на Pascal не слишком гибок (в отличие, например, от этого типа цикла на языке С). Потому что, на Pascal параметр цикла (или счетчик) изменяется на величину, равную единице. Таким образом, когда требуется выполнить дробный шаг необходимо использовать цикл типа WHILE. Существует две разновидности цикла FOR: с увеличением и с уменьшением значений счетчика (или параметра). Блок-схема цикла с параметром (цикл FOR)

13 слайд

Описание слайда:

14 слайд

Описание слайда:

Оператор цикла с параметром. Цикл типа FOR Общий вид (формат) оператора цикла с параметром for <счетчик> := <начальное значение> to <конечное значение> do begin <Операторы> end; for <счетчик> := <начальное значение> downto <начальное значение> do begin <Операторы> end; с увеличением значений счетчика (параметра) с уменьшением значений счетчика (параметра)

15 слайд

Описание слайда:

Оператор цикла с параметром. Цикл типа FOR Оператор, реализующий цикл ДЛЯ – FOR используется, если необходимо, чтобы фрагмент программы повторился заданное число раз FOR <переменная цикла>: = <начальное значение> ТО <конечное значение> DO <оператор>; Здесь: FOR, TO, DO - зарезервированные слова (англ.: для, до, выполнить); <счетчик (параметр) цикла> - переменная типа INTEGER, которая изменяется на отрезке от <начального значения>, увеличиваясь на единицу в конце каждого шага цикла; <оператор> - любой (чаще составной) оператор.

16 слайд

Описание слайда:

Оператор цикла с параметром. Цикл типа FOR Оператор FOR состоит из заголовка и тела цикла. Составной оператор, находящийся в теле цикла, должен быть заключен в операторные скобки begin и end. ·В качестве идентификатора счетчика обычно используется "i". · Переменная счетчика должна быть порядкового типа. Например, целочисленного типа: byte, integer. · Начальное и конечное значения параметра цикла нельзя изменять во время выполнения цикла. · Оператор FOR используется для организации циклов с фиксированным, заранее известным или определяемым во время выполнения программы числом повторений.

17 слайд

Описание слайда:

Применение циклов при решении задач Каждый из описанных выше циклов может быть использован для программирования на Pascal одних и тех же задач с циклическим алгоритмом.

18 слайд

Описание слайда:

Задание № 1 Открыть программу PascalABC.NET (интегрированная среда разработки программ на языке программирования Pascal) Сохранить программу в папке с Вашим именем в системной рабочей папке PABCWork.NET \ Ваше_имя\Cikl_1.pas Сохранить как...

19 слайд

Описание слайда:

Задание № 1 Используя цикл ПОКА (с предусловием) составить и отладить программу, которая вычисляет сумму квадратов всех натуральных чисел от 1 до 100. ИСХОДНЫЕ ДАННЫЕ: A: integer; РЕЗУЛЬТАТ - сумма: S: Longint; Program Ex1; Var A: Integer; S: Longint; { Длинное целое} Begin A:=1; S:=0; { переменная S для накапливания суммы } While A<=100 Do { Начало цикла – проверка условия } Begin S:=S+A*A; A:=A+1 End; Writeln(‘Вывод результата S= ’ ,S) End. Сохранить программу в папке с Вашим именем в системной рабочей папке PABCWork.NET \ Ваше_имя\Cikl_1.pas

20 слайд

Описание слайда:

ЗАДАНИЕ 2. Отладить программу циклической структуры на языке Pascal в среде PascalABC.NET Program abc; var x, у: integer; begin x:=2; while x <= 10 do begin Y:=x*x; writeln(‘вывод х: ’, x, ‘вывод у: ’, y); x:= x+2; end; end. Применить оператор цикла с предусловием для вычисления значения функции y=x2, при значениях x 2, 4, 6, 8, 10. Сохранить программу в папке с Вашим именем в системной рабочей папке PABCWork.NET \ Ваше_имя\Cikl_2.pas