Будь умным!


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

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

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


 

 Разр.

 Гадюллин

 

 

190623. ПР. 06. ПЗ

Лист

 

 

Пров.

Кузнецов

 

 

Изм.

Лист

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: Найти произведение от 6.7 до7.9 с шагом 0.4

Рисунок 1: копия окна «Z:\tp60\TURBO.EXE»

Рисунок 2: копия окна «Z:\tp60\TURBO.EXE»

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




1. Ценообразование на предприятиях питания Его особенности в рыночных условия
2. Лабораторная работа ФОРМАТИРОВАНИЕ ТАБЛИЦ EXCEL
3. Водные ресурсы Среднего Урала
4. і Епоха політогенезу
5. Колос Постанова ’1 від 21.html
6. Вьетводао
7. Автобиография китайского христианина Брата Юна
8. Природне штучне та суміщене освітлення
9. Аполлонъ No 5 1909 1 Театръ есть сліяніе трехъ отд~льныхъ стихій стихіи актера стихіи поэта и с
10. Доходы организации и ПБУ 10-99 Расходы организации
11. а предприятия Состав и структура оборотного капитала предприятия
12. Конституционное право РФ для студентов заочной формы обучения 1.
13. Тема 33 Прием пациента
14. АПК затрагивает интересы практически всего населения России непосредственно касается 387 млн
15. Современное образование немыслимо без использования компьютерных технологий
16. варіантів рішення вибору оптимального рішення й організації його виконання
17. ПРОГРАММНЫЕ СРЕДСТВА ОФИСНОГО НАЗНАЧЕНИЯ
18. ЦЕЛЬ РАБОТЫ Целью работы является- Изучение программных продуктов для работы с графикой 2
19. і 3ЧАС і МІСЦЕ ВИВЕДЕННЯ 4 Ганноверські коні виведені в 18ст
20. Лабораторная работа 1 Электронные таблицы MS Excel