КАТЕГОРИИ: Архитектура-(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) |
Приклад програми з оператором For
Begin Begin End. Case Years mod 10 of Else Begin Else Begin End. Case N of Begin End. Case Day of Begin End. ЗАДАЧА №151 Умова: Розробити програму виведення інформації про день тижня, (вихідний чи робочий), якщо задано його номер від 1 до 7 (1 - понеділок). Program Example_149; Uses crt; Var Day:byte; {Day - номер дня тижня} Clrscr; Write(‘Введіть номер дня тижня: ‘); Readln(Day); 1..5: Write(‘Це робочий день ‘); 6,7: Write(‘Це вихідний день ‘); Else write(‘Це не день ‘); End; Writeln(‘тижня.’); Readkey; ЗАДАЧА №160 Умова: Дано ціле число N (1 > N > 3) та дійсне число X. За даним значенням змінної N, яка є номером функції, визначити: 1) sin X 2) cos X 3) tg X. Program Example_160; Uses crt; Var N:byte; {N - номер функції, що обчислюється} X,Y:real; {X - значення змінної, Y - значення функції) Clrscr; Write(‘Введіть значення X: ‘); Readln(X); Write(‘Введіть номер функції, що обчислюється: ‘); Writeln(‘1 - sin’); Writeln(‘2 - cos’); Writeln(‘3 - tg’); Readln(N); Writeln(‘Результат обчислень:’) 1: begin Y:=sin(X); writeln(‘sin(x)=’,Y:8:2); end; 2: begin Y:=cos(X); writeln(‘cos(x)=’,Y:8:2); end; 3: begin Y:=Sin(X)/cos(X); writeln(‘tg(x)=’,Y:8:2); end; Else wrіteIn(‘Помилка вхідних даних.’); End; Readkey; ЗАДАЧА №165 Умова: Дано натуральне число N(N=< 100), яке позначає вік людини. Додати до цього числа відповідно слова: «рік», «роки», «років», наприклад: 1 рік, 12 років, але 43 роки. Очевидно, що для того, щоб правильно дописати відповідне слово, необхідно виділити останню цифру числа, що позначає вік людини. Тоді, якщо це цифра «1», то дописується слово «рік», якщо цифри «2», «З» або «4» - дописується слово «роки», а в усіх останніх випадках - дописується слово «років». Виключенням являється діапазон між 10 та 20 роками: в цих випадках завжди пишеться слово «років». Program Example_165; Uses crt; Var Years:byte; {Years - вік людини} Clrscr; Write(‘Введіть Ваш віk: ‘); Readln(Years); If Years>100 Then writeln(‘Помилкові вхідні дані.’) Write(‘Вам ‘,Years); If (Years>=10) and (Years<=20) Then writeln(‘років’) 1: writeln(‘рік.’); 2.. 4: writeln(‘роки.’); 0,5..9: writeln(‘років.’); End; End; Readkey; Домашнє завдання: • прочитати сторінки 65 - 66 запропонованого підручника; • завдання №147, №148, №155, №157, №161. ЗАНЯТТЯ 18. Типи циклів Мета заняття: дати поняття про вказівку повторення та її використання при розв’язуванні задач, про типи циклів та їх оформлення мовою програмування Паскаль і мовою блок-схем. Теоретичний матеріал На початку заняття повторити з учнями загальні відомості про цикли. У мові програмування Паскаль існує три типи циклів: for, repeat та while. Якщо кількість повторень відома заздалегідь, використовується оператор for, якщо кількість повторень невідома, застосовуються оператори repeat або while. Оператор повторення for. Цей оператор повторення інакше називається циклом з параметром (або лічильником). Він складається із заголовку та тіла циклу і може бути поданий у двох форматах: 1.for <параметр цихлу>:= <S1> to <S2> do <серія>; end; 2. for <параметр циклу>:= <S1> downto <S2> do <серія>; end; де 51 і 52 — вирази, що визначають початкове і кінцеве значення параметру циклу; for.. do — заголовок циклу; < серія > — тіло циклу. Тіло циклу може бути простим або складеним. Цей оператор забезпечує виконання тіла циклу доти, доки не будуть перебрані всі значення параметра циклу від початкового до кінцевого. Параметр циклу, його початкове і кінцеве значення повинні належати до одного типу даних. При цьому можливе використання будь-якого скалярного типу: цілого ( integer, byte, word, longint ); булівського ( boolean ); символьного ( char ). Дійсний тип даних використовувати заборонено. Значення параметру циклу послідовно збільшується при for... to або зменшується при for... downto на одиницю при кожному повторі. Кількість повторів тіла циклу в операторі for можна визначити за таблицею:
В операторі for після do може знаходитися складений оператор, у тілі якого заборонені оператори, що змінюють значення параметру циклу. Після нормального завершення циклу значення параметру циклу дорівнює кінцевому значенню. Цикл може не виконатися зовсім (див. табл.), але ніколи не може «зациклитися», на відміну від наступних двох операторів повторення. Умова задачі. Знайти суму всіх натуральних чисел від 1 до 100. Program Example_1; Uses crt; Var Sum, i: integer;
Дата добавления: 2014-10-22; Просмотров: 437; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |