КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Пример 2.5Операторы повторений End. End Else Begin Var n: Integer; {Вводимое число} ch: Char; {Результат} Write('n = '); ReadLn(n); { Вводим число } {Проверяем число на принадлежность к диапазону 0...15) if (n >= 0) and (n <= 15) then begin {Да, принадлежит диапазону} if n < 10 then ch:= chr(ord('0') + n) ch:= chr(ord ('A') + n – 10); WriteLn('n - ',ch) else {He принадлежит диапазону} WriteLn('Ошибка') В щестнадцатеричной системе счисления используется 16 цифр в каждом разряде: цифры 0...9 обозначают первые 10 возможных значений разряда, буквы A...F – остальные шесть. В программе учитывается непрерывность и упорядоченность множеств цифр 0...9, букв A...F и их кодов (см. гл.4).
В языке Турбо Паскаль имеются три различных оператора, с помощью которых можно запрограммировать повторяющиеся фрагменты программ. Счетный оператор цикла FOR имеет такую структуру: FOR <пар_цик>:= <нач_знач> ТО <кон_знач> DO <оператор>. Здесь FOR, TO, DO – зарезервированные слова (для, до, выполнить); <пар_цик> – параметр цикла – переменная типа INTEGER (точнее, любого порядкового типа, см. гл.4); <нач_знач> – начальное значение – выражение того же типа; <кон_знач> – конечное значение – выражение того же типа; <оператор> – произвольный оператор Турбо Паскаля. При выполнении оператора FOR вначале вычисляется выражение <нач_знач> и осуществляется присваивание <пар_цик>:= <нач_знач>. После этого циклически повторяется: • проверка условия <пар_цик> <= <кон_знач>; если условие не выполнено, оператор FOR завершает свою работу; • выполнение оператора <оператор>; • наращивание переменной <пар_цик> на единицу. В качестве иллюстрации применения оператора FOR рассмотрим программу, осуществляющую ввод с клавиатуры произвольного целого числа N и вычисление суммы всех целых чисел от 1 до N (пример 2.5). Program Summ_of_Integer; {Программа вводит целое положительное число N и подсчитывает сумму всех целых чисел от 1 до N} var i, n, s: Integer; begin Write('N = '); ReadLn(n); {Вводим N} s:= 0; {Начальное значение суммы} for i:= 1 to n do {Цикл подсчета суммы} s: = s + i; writeln('Сумма = ',s) {Выводим результат} end. Отметим два обстоятельства. Во-первых, условие, управляющее работой оператора FOR, проверяется перед выполнением оператора <оператор>: если условие не выполняется в самом начале работы оператора FOR, исполняемый оператор не будет выполнен ни разу. Другое обстоятельство – шаг наращивания параметра цикла строго постоянен и равен (+ 1). Существует другая форма оператора: FOR <пар_цик>: = <нач_знач> DOWNTO <кон_знач> DO <оператор> Замена зарезервированного слова ТО на DOWNTO означает, что шаг наращивания параметра цикла равен (–1), а управляющее условие приобретает вид <пар_цик> = <кон_знач>. Пример 2.5 можно модифицировать так, чтобы сделать его пригодным для подсчета любых сумм – положительных и отрицательных:
Дата добавления: 2014-11-06; Просмотров: 309; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |