Будь умным!


У вас вопросы?
У нас ответы:) SamZan.ru

Тема- TurboPscl. Типовые циклические алгоритмы Цель занятия- научится применять при решении задач определенный

Работа добавлена на сайт samzan.ru: 2016-03-13


 

 Разр.

 Дрогомир

 15

 

190623. ПР. 11. ПЗ

Лист

 

 

Пров.

Кузнецов

 

 

Изм.

Лист

N докум.

Подпись

Дата

Практическая работа № 10

Тема: TurboPascal. Типовые циклические алгоритмы

Цель занятия: научится применять при решении задач определенный тип циклической конструкции.

1)ЦИКЛ С ПРЕДУСЛОВИЕМ или цикл "ПОКА".

Сначала проверяется условие и тело цикла выполняется ПОКА УСЛОВИЕ ИСТИННО, если условие становится ЛОЖНЫМ, то происходит выход из цикла.

Реализуется этот цикл инструкцией:

WHILE<условие>DO<тело цикла>

while - (вайл) - пока,  do - (ду) – делать (выполнять).

В тело цикла входит только один оператор! Если нужно объединить  в тело цикла несколько операторов, то применяются операторные скобки begin-end.

Условие может быть простым или сложным, если применить слова: NOT, AND, OR.

Пример. Вывести на экранчисла от 1 до 20.

Program Ch; Uses crt;

Var i,h,n: integer;

Begin   

Clrscr;  

i:=1; h:=1; n:=20;

whilei<=n do

begin  

write(i,' ');

i:=i+h;  

end;   

readln;  

End.   

2)ЦИКЛ С ПОСТУСЛОВИЕМ или ЦИКЛ "ДО"

Сначала выполняется тело цикла, затем проверяется условие. Выход из циклаосуществляется, когда УСЛОВИЕ СТАНЕТ ИСТИННЫМ, если условие  ЛОЖНО, тоцикл повторяется.

REPEAT   repeat - (рипид) - повторять

тело цикла  until  - (антил) - ДО тех пор пока

UNTIL условие;

Проверка условия производится после выполнения тела цикла, что делаетприменение цикла "ПОКА" более предпочтительным, когда требуется пропуститьцикл вообще.

Пример. Вычислить    для любого Х, с проверкой корректности ввода.


Program Func; Uses crt;

Var x,y: real;

   Begin

repeat

ClrScr;

write('X='); readln(x);

until (x<>0);

y:=1/x;

writeln('x=',x,' y=',y);

readln;

End.

3)ЦИКЛ С ЗАДАННЫМ ПАРАМЕТРОМ      (ДЛЯ)

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

 FOR <параметр цикла> := <выражение1> TO <выражение2> DO <оператор>

[ DOWNTO ]

for -    (фо) - для;                     to - (ту) - до; {  шаг=1  };

downto - (даунту) - вниз до; { шаг=-1  };   do - (ду) - выполнить;

 параметр цикла - переменная любого скалярного типа, кроме вещественного

(управляющая переменная);

 выражение1 - начальное значение параметра цикла (скалярное выражение);

 выражение2 - конечное  значение параметра цикла (скалярное выражение);

 оператор–телоцикла;

Пример.

 Program Chisla; Uses crt;

Var i:integer;   { управляющая (параметр) цикла }

Begin

clrscr;

for i:=1 to 20 do write(i,' '); { 1 –начальноезначениепараметра }

readln;

End.    { 20 -конечное значение параметра }

{ write(i,' ') –телоцикла }

После каждого выполнения тела цикла параметр i увеличивается на 1.

Задание 1.

Рассмотреть схему ”Этапы выбора эффективного цикла” и вписать вместо знаков ”?” названия соответствующих циклов:


Этапы выбора эффективного цикла

Нет

Необходимо использовать цикл

Заданного параметра

Определить, какие действия в программе необходимо повторить несколько раз.

Известно ли к моменту обработки 1-го действия сколько действий всего?

Нет

Да

Тело цикла гарантировано выполняется 1 раз?

Да

Необходимо использовать цикл

С постусловием

Необходимо использовать цикл

С предусловием

Задание 2.

Составить программу для одной задачи из ниже приведенного списка (номер задания получить у преподавателя). Программу набрать и отладить с помощью системы программирования TurboPascal. Исходный текст программы сохранить в своей папке.

Задания для программирования:

  1.  Вывести 20 одинаковых символов на экран.
  2.  Вывести на экран числа от 20 до 1.
  3.  Найти сумму ряда: 1, 2, ...20.
  4.  Вывести на экран таблицу функции Y=sin(х), где х изменяется от 10 до 90 с шагом 5 градусов.
  5.  Получить таблицу функции y=cos(5∙х), где х изменяется от 1 до 10 с шагом 0.5
  6.  Найти произведение чисел от 6.7 до 7.9 с шагом 0.4

Ход работы:

Рисунок 1

Рисунок 2


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




1. Лекция 21. Технология кулинарной продукции из яиц яичных продуктов и творога
2. Оптимальность как результат эволюции
3. Слияния и поглощения кредитных организаций в современной России.html
4. Мальцев Александр Николаевич
5. тема Алексеевича
6. Лекция 9 Распространение радиоволн процессы распространения электромагнитных волн радиодиапазона в атмос
7. Налоговая система и налогообложение
8. .1 Возникновение сюжетноролевой игры предпосылки ее возникновения В современной педагогике игра определя
9. НА ТЕМУ- Экономический рост Минск 2011г
10. тема RLL Система WLL Структура DECTсистем Организация пикосотовой сети Профили приложений DECT
11.  Структура местных бюджетов
12. N 8-4357 МИНИСТЕРСТВО ТРУДА РЕСПУБЛИКИ БЕЛАРУСЬ ПОСТАНОВЛЕНИЕ от 23 октября 2000 г
13. Тема- Вимірювання обсягу короткочасної памяті за методом Джейкобса Дисципліна- Когнітивна психологі
14. Об одном кулисно-рычажном механизме
15. Лабораторная работа 1 Исследование закона Ома для пассивной и активной ветви 03 2
16. Автоматизация расчета начислений заработной платы в строительном управлении N 151.html
17. Учет по договору проката.html
18. вариантами расположения червеобразного отростка
19. Контрольная работа 1.
20. Антихрист петр Алексей Брюсов Огненн ангел Крит.