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

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

Работа добавлена на сайт samzan.net: 2016-06-20

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 9.6.2025

 

 Разр.

Ковалёв.К

 

 

190623. ПР. 15. ПЗ

Лист

 

 

Пров.

Кузнецов

 

 

Изм.

Лист

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

Задание№3.

Рис.1-«Скрин окна Турбо паскаль с набранным текстом задач»

Рис.2-«Скрин окна Турбо паскаль после выполнения функции “Run”»

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




1. АР ЛурияЭтапы жизненного пути
2. Введение Пpиобpетение ценных бумаг пpедпpиятий так называемые поpтфельные инвестиции одно из пеpспе
3. Правовая основа чеков
4. Рациональное природопользование и аспекты его предпочтения
5. темах управления
6. Маленька країна Наша школа
7. зеленого превратится в переполненный автомобилями и выхлопными газами
8. по теме Иммунный статус человека Укажите какие исследования отражают понятие иммунологическое обс
9. Современные виды туризма
10. Виды передач и их основные характеристики