Будь умным!


У вас вопросы?
У нас ответы:) SamZan.net

орієнтовному програмуванні та застосовувати оператор циклу з параметрами

Работа добавлена на сайт samzan.net:


PAGE  4

Практична робота №7.

Обробка помилок.

Мета: навчитися працювати з рядками в об’єктно-орієнтовному програмуванні та застосовувати оператор циклу з параметрами.

Для мов програмування характерні не лише можливості роботи з числовою інформацією, але і з строковою. Для роботи з числами ми використали два основні типи даних : Integer(цілий) і Real(речовий).Например, var a: integer; b: real;

Для роботи з рядками необхідно використати тип даних string(var s: string). Відмінною рисою цього типу даних є те, що ми можемо звернутися як до рядка цілком, так і посимвольно, тобто до кожної букви окремо. Для цього нам необхідно використати оператор циклу.

Цикл - багатократне повторення послідовності дій з деякої умови. Відомі три типи циклічних алгоритмічних структур, але при роботі з рядками використовуватимемо одну з них - цикл з параметром. Він має дві форми запису :

For <параметр>:=<поч. значення> toін. значення> doіло циклу>;

For <параметр>:=<кін. значення> downto <поч. значення> doіло циклу>;

Цикл повторюється доки значення параметра лежить в інтервалі між початковим і кінцевим значеннями параметра. Причому ці вирази(початкового і кінцевого значення) обчислюються тільки один раз на початку виконання циклу. Параметр обов'язково має бути цілого типу.

У першому варіанті при кожному повторенні циклу значення параметра змінюється на наступне значення в цьому типі (для цілого типу - збільшується на 1). Поняття крок. У другому варіанті при кожному повторенні циклу значення параметра змінюється на попереднє значення параметра(для цілого типу - зменшується на одиницю).

При роботі з рядком запишемо оператор циклу таким чином: for i:=1 to length(s) do(звернення до символів від першого до останнього в рядку s). Крім того, використовуються наступні процедури і функції :

1. Функція length(s) визначає довжину рядка. Результат - ціле число 0...255

Приклад: даний рядок, підрахувати кількість цифр в рядку.

var s: string; k: integer;

 k:=length(s);

  1.  Процедура Delete (s,pos,n)видалення частини рядка. Видаляє з рядка з n-символів починаючи з символуpos.

Приклад: s:='рогатка';  Delete(s,5,3) => рога 

  1.   Процедура Insert (s1,s2,pos). Вставка частини рядка.

S1-що, S2-куди, Pos-з якої позиції

Приклад: S1:='свет'; Insert(s1,'o',2) => 'совет'

  1.  Функція Copy (s,pos,n)повертає частину рядка s довжиною n, починаючи з  позиції pos.

Приклад: S:='пароход'; t:=copy(s,1,3) => 'пар'

  1.  З’єднання рядків - функція Concat (s1,s2,s3,…,sn)

Приклад: Concat ('к','о','т') => 'кот'

  1.  Функція Pos (s1,s2) - пошук одного рядка в іншому. Повертає номер символу, починаючи з якого рядок s1 є частиною s2.

Приклад: pos ('cd','abcdf') => 3

Лабораторна робота №7

Розглянемо алгоритм рішення задачі, в якій треба підрахувати кількість входжень символу " а" в рядок. Використаємо компоненти класів TEdit і TMemo для введення рядка і виведення результату.

Var s: string;

   i, k: integer;

Procedure TForm1.Button1Click(Sender: TObject);

Begin

   s:=edit1.text; //ввод строки

  For i:=1 to length(s) do //идем по строке

     If s[i]=’a’ then k:=k+1; {якщо i-ий символ а, тоді збільшуй лічильник k}

  Memo1.text:=IntToStr(k) //вивод результату

End;

Нехай форма буде виглядати наступним чином:

Завдання для самостійної роботи:

  1.  Дано рядок s: Зайти кількість входжень букви a,c,d в рядок.
  2.  Знайти кількість цифр в рядку.
  3.  Зчепити декілька рядків в один.
  4.  З даного рядка вибрати цифри та сформувати з них новий рядок.
  5.  Знайти кількість слів, що починаються на букву с.
  6.  Підрахувати кількість слів в рядку.
  7.  Визначити починається і чи закінчується слово однією буквою.
  8.  Видалити кожну парну букву в рядку.
  9.  Перевірити чи однакове число відкритих і закритих дужок в рядку.




1. Тема- СОЦИАЛЬНОДЕМОГРАФИЧЕСКАЯ ПОЛИТИКА В СИСТЕМЕ ГОСУДАРСТВЕННОГО РЕГУЛИРОВАНИЯ СТРУКТУРНОЙ ДИНАМИКИ
2. ТЕМА 5. ПОВЕДЕНИЕ ПОТРЕБИТЕЛЕЙ В УСЛОВИЯХ РЫНКА Модель покупательского поведения на потребительском
3. jht the Celts cme from southern Germny
4. Классификация конфликтов Конфликт лат
5. Влияние СМИ на общество
6. Российский государственный торговоэкономический университет челябинский институт филиал Курсова
7. Тема Алгоритмізація та програмування задач по обробці частин матриць
8. Прогнозирование вероятности банкротства по модели СайфулинаКадыкова
9. Бюджетное право
10. Об утверждении Порядка приема граждан на обучение по образовательным программам среднего профессиональног
11. Толкование норм права
12. Тема 6. Культура во время пробуждения украинского национального самосознания 6
13. Отчет по лабораторной работе 1
14. Контрреформы Александра III
15.  Великая держава свыше 40 2
16. ВСЕОБЩАЯ ДЕКЛАРАЦИЯ ПРАВ ЧЕЛОВЕКА
17. плана не существует но во всех случаях он должен содержать характерную информацию необходимую для принятия
18. Лабораторная работа 1 по курсу Методы вычислений Математический факультет 5 семестр
19. Проектирование цеха по производству теплоизоляционного пенобетона
20. ПРАВИТЕЛЬ РУССКАЯ ПРАВДА И УСТАВНОЕ ЗАКОНОДАТЕЛЬСТВО Выяснившийся из предыдущего общий характер правите