![]() Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву ![]() Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Оператори if і case мови ПаскальСодержание книги
Поиск на нашем сайте
Для програмування алгоритмів, що розгалужуються, в мові Pascal використовуються спеціальні змінні типу boolean, які можуть набувати тільки два значення - true і false (так, ні), а також оператори if і case. Оператора if перевіряє результат логічного виразу, або значення змінної типу boolean, і організовує розгалуження обчислень. Наприклад, якщо bl|: boolean|, x,y,u:integer|, то фрагмент програми з|із| оператором if| може бути таким: bl:=x>y|; if bl then u:=x-y; else u:=x-y; Оператор вибору case організовує розгалуження залежно від значення деякої змінної перераховуваного типу. Кнопки-перемикачі в Delphi| При створенні|створінні| програм в Delphi| для організації розгалужень|розгалуджень| часто використовуються компоненти у вигляді кнопок-перемикачів. Стан|достаток| такої кнопки (включено - вимкнено) візуально відбивається на формі. На формі представлені|уявляти| кнопки-перемикачі двох типів (TCheckBox|, TRadioGroup|). Компонент TCheckBox організовує кнопку незалежного перемикача, за допомогою якої користувач може вказати своє вирішення типу так/ні. У програмі стан кнопки пов'язаний із значенням булевої змінної, яка перевіряється за допомогою оператора if. Компонент TRadiogroup організовує групу кнопок - залежних перемикачів. При натисненні однієї з кнопок групи решта всіх кнопок відключається. У програму передається номер включеної кнопки (0,1,2..), який аналізується за допомогою оператора case. Питання для самоконтролю: 1. Яким чином реалізований вибір розгалуження алгоритму в мові Object Pascal? 2. Команда, в якій вибір здійснюється залежно від виконання умови та дозволяє вибрати один з двох можливих варіантів? 3. Якого типу повинна бути умов в команді розгалуження? 4. Які компоненти в Delphi часто використовують для організації розгалужень при створенні програм? 5. Який компонент організовує кнопку незалежного перемикача, за допомогою якої користувач може вказати вирішення типу так/ні? 6. Який компонент організовує групу кнопок - залежних перемикачів? 7. За допомогою якої властивості здійснюється перевірка стану кнопки CheckBox? 8. За допомогою яких команд в програмі може бути організований цикл? 9. Яка команда дозволяє змінити порядок виконання команд в програмі? 10. Яка властивість дозволяє змінити заголовок компоненти? Лабораторна робота №6
Тема: Розробка програм для обробки символів та рядків. Мета роботи: вивчити правила роботи з компонентами TListBox і TСomboBox. Написати програму роботи з рядками. Завдання Написати програму підрахунку числа слів в довільному рядку. Як роздільник може бути будь-яке число пропусків. Для введення рядків і роботи з ними використовувати TComboBox. Введення рядка закінчувати натисненням клавіші Enter. Для виходу з програми використовувати кнопку Close. ХІД РОБОТИ 1.Створити папку С:\Delphi\lab_6. 2. Завантажити середовище візуального програмування Delphi. 3.Створити форму, представлену|уявляти| на малюнку, і написати відповідну програму, скоректувавши текст написів Label|надписів| і положення|становище| компоненти TComboBox|. Крім того, розмістіть на формі кнопку для виходу з програми.
4. Створити процедури-обробники подій FormActivate,| ComboBox1KeyPress і ComboBox1Click, текст процедур приведений нижче.
// Обробка події активізації форми procedure| TForm1|.FormActivate(Sender|: TObject|); begin| ComboBox1.SetFocus; // Передача фокусу ComboBox1 end|;
// Обробка події натиснення лівої клавіші миші procedure| TForm1|.ComboBox1KeyPress(Sender|: TObject|; var| Кеу: Char|); begin| if| key=#13| then| begin| // Якщо натиснута|натискувати| клавіша Enter|, то... ComboBox1|.Items.Add(ComboBox1|.Text); // Рядок з|із| вікна редагування заноситься у список вибору ComboBox1|.Text:=''; // Очищення|очистка| вікна редагування end |; end|;
procedure| TForm1|.ComboBox1Click(Sender|: TObject|); var| st|: string|; n,i,nst,ind|: integer|; begin| n:=0|; // Містить|утримує| число слів ind:=0|; nst:=ComboBox1|.ItemIndex; // Визначення номера вибраного рядка st:=ComboBox1|.Items[nst|]; // Занесення вибраного рядка в змінну st| for| i:=1| to| Length|(st|) do| begin| // Перегляд|проглядати| всіх символів рядка st| case| ind| of | 0: if| st|[i]<>|' ' then| begin| // Якщо зустрівся символ після|потім| пропуску|прогалини| ind:=1|; n:=n+1|; // Число слів збільшується на одиницю end |; 1: if| st|[i]=' ' then| ind:=0|; // Якщо зустрівся пропуск|прогалина| після|потім| символів end |; end |; Label3|.Caption:=IntToStr(n); // Виведення числа слів в Label3| end |;
5. Запустити проект та перевірити правильність його виконання. ТЕОРЕТИЧНІ ВІДОМОСТІ Типи даних для роботи з|із| рядками Короткі рядки типу|типа| ShortString| і String|[N] Короткі рядки мають фіксовану кількість символів. Рядок ShortString| може містити|утримувати| 255 символів. Рядок String|[N] може містити|утримувати| N символів, але|та| не більше 255. Перший байт цих змінних містить|утримує| довжину рядка.
Довгий рядок типу|типа| String| При роботі з|із| цим типом даних пам'ять виділяється в міру необхідності (динамічно) і може займати|позичати| всю доступну програмі пам'ять. Спочатку компілятор виділяє для змінної 4 байти, в яких розміщується номер елементу пам'яті, починаючи|розпочинати| з|із| якої розташовуватиметься символьний рядок. На етапі виконання програма визначає необхідну довжину ланцюжка символів і звертається|обертається| до ядра операційної системи з|із| вимогою виділити необхідну пам'ять. Процедури і функції для роботи з|із| короткими і довгими рядками. Для роботи з|із| рядками застосовуються наступні|такі| процедури і функції (у квадратних| дужках указуються|вказують| необов'язкові параметри).
Правила використання параметрів функції FloatToStrF| показані нижче:
Широкий рядок типу|типа| WideString| Введена|запроваджувати| для забезпечення сумісності з|із| компонентами, заснованими на OLE-технології|. Від типу|типа| String| відрізняється тільки|лише| тим, що для представлення кожного символу використовується не один, а два байти. Нуль-термінальний рядок типу|типа| PChar| Є ланцюжком символів, обмеженим символом #0. Максимальна довжина рядка обмежена тільки доступній програмі пам'яттю. Нуль-термінальні рядка широко використовуються при зверненнях до API-функцій Windows (API – Application Program Interface – інтерфейс прикладних програм).
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Последнее изменение этой страницы: 2016-04-18; просмотров: 359; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.149.214.156 (0.008 с.) |