Тема- TurboPscl Типовые циклические алгоритмы Цель занятия- научится применять при решении задач определенный
Работа добавлена на сайт samzan.net:
Разр.
Гадюллин
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. Исходный текст программы сохранить в своей папке.
Задания для программирования:
- Вывести 20 одинаковых символов на экран.
- Вывести на экран числа от 20 до 1.
- Найти сумму ряда: 1, 2, ...20.
- Вывести на экран таблицу функции Y=sin(х), где х изменяется от 10 до 90 с шагом 5 градусов.
- Получить таблицу функции y=cos(5∙х), где х изменяется от 1 до 10 с шагом 0.5
- Найти произведение чисел от 6.7 до 7.9 с шагом 0.4
Ход работы:
Задание 1: Найти произведение от 6.7 до7.9 с шагом 0.4
Рисунок 1: копия окна «Z:\tp60\TURBO.EXE»
Рисунок 2: копия окна «Z:\tp60\TURBO.EXE»
Вывод: научился применять при решении задач определенный тип циклической конструкции.
2. кор Академии правовых наук Украины
3. ва и реализации прции
4. 20 а при сівбі третій рік підряд на 3035 і більше
5. Виховання естетичної культури підліткі
6. Тема до СРС 2 FOREIGN TRDE Прочитайте текст та виконайте завдання
7. Тема- Нахождение наибольшего и наименьшего значения функции в среде Mtlb
8. Техномикс Дата регистрации- 31
9. Плансхема к протоколу осмотра места происшествия 7
10. АДМИНИСТРАТИВНОЕ ПРАВО ВОЕННАЯ АДМИНИСТРАЦИЯ УЧЕБНИК В.html
11. Брэдбери не дядюшке и не двоюродному брату но вне всякого сомнения издателю и другу.html
12. Реферат- Сравнение и анализ религиозной и научной картин возникновения и развития нашего мира
13. Тема- Безопасность на льду
14. Testing I filed documents to the Krgnd stte university
15. Тема 3 Правові засади соціального партнерства
16. ПРАВОВАЯ ОЦЕНКА МЕЖФИРМЕННОГО ВЗАИМОДЕЙСТВИЯ Горизонтальное взаимодействие олигополистического типа Г
17. кто такой Кевин Митник
18. тема аграрного права1
19. на тему- Консульская служба Исполнитель- студентка 2го курса Белоусова М
20. В процессе составления бюджета вводится информация по различным подразделениям продуктам проектам и друг