КАТЕГОРИИ: Архитектура-(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) |
Конспект лекцій
End. Begin End Begin Then Begin Begin End. Begin Else Begin Clrscr; Write(‘Введіть швидкість літального апарату: ‘); Readln(X); Write(‘Введіть відстань між населеними пунктами: ‘); Readln(Y); If (X<=0) or (Y<0) then writeln(‘He коректні вхідні дані.’) Solution(X,Y,M); {Виклик процедури} Writeln(‘Тривалість польоту -> ‘,М:6:2); end; Readkey; ЗАДАЧА № 463 Умова: Створити підпрограму, яка б із тексту S вилучала вказаний символ х і обчислювала кількість вилучень. У програмі організувати виклик цієї підпрограми. Розв’язування: Очевидно, що підпрограма, яка виконує дану задачу, повинна мати три формальних параметри. Позначимо їх наступним чином: S - заданий текст (змінна рядкового типу string); x - символ, що підлягає вилученню (змінна символьного типу char); count - кількість вилучень (числова змінна цілого типу, наприклад byte). Параметр х повинен бути параметром-значенням (вхідний параметр), а параметри 5 та соип/параметрами-змінними (вихідні параметри). Рядок 5 фактично є і вхідним, і вихідним, тому що за умовою задачі саме в ньому необхідно здійснити вилучення заданих символів. Для виконання поставленої задачі, на наш погляд, зручніше використовувати цикл з передумовою, тому що після вилучення символів з рядку він змінює свою довжину, і використання циклу з параметром (for) може призвести до помилки. Крім того, зверніть увагу на те, що зміна індексу і (номер поточної позиції рядка) виконується тільки у випадку, якщо шуканий символ не знайдено. Це пов’язано з тим, що рядок може містити цей символ у сусідніх позиціях, і після вилучення поточного символу на ту саму позицію попадає знову шуканий символ. Оформлення основної програми, на наш погляд, не повинно викликати сумнівів. Зазначимо лише, що відповідні фактичні параметри у запропонованій програмі будуть називатися Л (заданий текст), ch (символ, що підлягає вилученню), ^(кількість вилучень). Програма, що виконує запропонований алгоритм, має наступний вигляд:
Program Example_463; Uses crt; (Підключення бібліотеки} Procedure Solution (x:char; var S:string; var count:byte); var і:byte; (локальна змінна для організації циклу} count:=0; і:=1; while i<=length(S) do if S[i]=x count:=count+l; delete(S,i,l); else i:=i+1; end; End; Var A:string; ch:char; N:byte; clrscr; writeln(‘Введіть текст: ‘); readln(A); write(‘Введіть шуканий символ: ‘); readln(ch); Solution(ch,A,N); writeln(‘Результуючий текст: ‘,A); writeln(‘Кількість виконаних вилучень: ‘,N); readkey; Домашнє завдання: • повторити теоретичний матеріал за попередні заняття; • задачі з запропонованого підручника №419, №424, №426, №430.
з дисципліни «ОРГАНІЗАЦІЯ ВИРОБНИЦТВА В БУДІВНИЦТВІ» для фахівців галузі знань 0306 „Менеджмент і адміністрування” напряму підготовки 030601 «Менеджмент» для спеціальності 6.030601 «Менеджмент організацій і адміністрування» (за видами економічної діяльності) № коду 3107
Склав: К.держ.упр., доц. ПУШКАРЬОВА Н.О. ас. МАКУЩЕНКО М.П. ЗАТВЕРДЖЕНО на засіданні кафедри менеджменту організацій протокол № 7 від 15.02.2013 р. зав. каф., к.т.н., доц. Іванов М.Ф.
Макіївка 2013 ЗМІСТ
Дата добавления: 2014-10-22; Просмотров: 249; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |