Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Отработка навыков использования операторов ветвления
|
|
| Составить программу движения символа * под управлением клавиш 2, 4, 6, 8. Q – выход из программы. | uses crt; label 1; var x, y: word; q: char; begin clrscr; x: =40; y: =12; 1: textcolor(14); gotoxy(x, y); write('*'); q: =readkey; textcolor(0); gotoxy(x, y); write('*'); if q='2' then y: =y+1; if q='8' then y: =y-1; if q='4' then x: =x-1; if q='6' then x: =x+1; if (q='q') or (q=’Q’) then halt; goto 1; readkey; end. |
| Составить программу подсчета суммы введенных с клавиатуры чисел. Признак конца ввода – число 0. | program pt1; uses crt; label 1; var x, z: integer; t: char; begin clrscr; writeln ('ПРОГРАММА ПОДСЧЕТА СУММЫ ВВЕДЕНЫХ ЧИСЕЛ.'); gotoxy(50, 22); writeln ('Выход из программы - число 0'); 1: write('Введите число'); read(x); if х=0 then goto 2 else begin z: =z+x; goto 1; end; 2: writeln('сумма введенных чисел - ', z); readkey; end. |
| Написать программу, которая проверяет, является ли четным введенное с клавиатуры число | Uses crt; Var n: integer; Begin Readln(n); Write(‘число’, n, ’-‘); If n mod 2=0 then writeln(‘четное’) else writeln(‘нечетное’); readkey; End. |
| Написать программу, которая запрашивает номер месяца и выводит название времени года. | Uses crt; Var month: integer; Begin Writeln (‘Введите номер месяца от 1 – 12); Readln(month); Case month of 1, 2, 12: writeln(‘Зима’); 3..5: writeln(‘Весна’); 6..8: writeln(‘Лето’); 9..11: writeln(‘Осень’); else writeln(‘число д.б. от 1 до 12’); end; readkey; end. |
2. Задача. Развивая предельно возможную скорость своего движения, жираф пробегает за 23 с 335, 8 м. Заяц пробегает за 55 с 918, 5 м. Кому из этих животных вы присвоите звание чемпиона, сопоставляя их скорости?
Алгоритм решения задачи в виде блок-схемы приведен ниже. Программу составить самостоятельно.
ТЕМА №5: ПРОГРАММИРОВАНИЕ НА ЯЗЫКЕ PASCAL (КОНСОЛЬНОЕ ПРИЛОЖЕНИЕ DELPHI). ОРГАНИЗАЦИЯ ЦИКЛОВ. ОПЕРАТОРЫ ЦИКЛОВ. СОСТАВЛЕНИЕ ПРОГРАММ С ИСПОЛЬЗОВАНИЕ ОПЕРАТОРОВ ЦИКЛА.
ПРОГРАММНО - ДИДАКТИЧЕСКОЕ ОБЕСПЕЧЕНИЕ: ЭВМ типа IBM. Delphi (консольное приложение).
ЦЕЛИ И ЗАДАЧИ: Знакомство с операторами цикла языка Delphi (консольное приложение). Выработка навыков работы в Delphi (консольное приложение). Решение практических задач с использованием операторов цикла.
ТРЕБОВАНИЯ К ЗНАНИЯМ И УМЕНИЯМ:
Учащиеся должны знать:
- Что такое цикл;
- Три разновидности операторов цикла;
- В чем отличия операторов цикла с предварительным и последующим условием;
- Какой тип должна имеет переменная цикла с параметром;
- Когда в операторах цикла и ветвления используются операторные скобки;
- Принцип организации движения графических фигур.
Учащиеся должны уметь:
- Использовать циклы при составлении программ;
- Правильно составлять и использовать условия в циклах WHILE или REPEAT;
- Составлять программы с использование операторов цикла.
ПЛАН-СОДЕРЖАНИЕ УРОКА
Цикл
Цикл – команда исполнителю повторить многократно указанную последовательность команд алгоритмического языка или, другими словами, многократно повторяющаяся часть программы.
Существует три разновидности оператора цикла.