Будь умным!


У вас вопросы?
У нас ответы:) 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. тема включает в себя сердце а также телесное и легочное кровообращение которое состоит из сети вен и артерий
3. Аэрофлот объявила о новой акции по распродаже авиабилетов в период с 3 по 9 марта 2014 года
4. Финансовый менеджмент1
5. Методические рекомендации для практических занятий Тема- Основные технические средства медицинской ин
6. Приемы перевода эллиптических конструкций на приеме англоязычной прозы
7. Реферат- История русской эмиграции в Чехословакии в 20-30-ее годы 20 века
8. Разработка авторской коррекционной программы для снижения предэкзаменационной тревожности
9. КОНСПЕКТ ЛЕКЦІЙ дисципліни модулю для студентів спеціальності [6.
10. Методология обучения менеджеров
11. Модуль силы взаимодействия двух точечных зарядов в вакууме прямо пропорционален произведению модулей этих з
12. Аббас Аб
13. Путешествие в зимний лес Виды детской деятельности игровая коммуникативная познавательная восприят
14. воли к власти- А Ф
15. Moonshped wedge nd gently crushed it onto the wire mesh inside the bowl of the stone pipe his mother hd pssed down to him given to her one strry night in medow outside of Woodstock by the replcemen
16. Уфимское моторостроительное производственное объединение
17. АЕ Ферсман и Кольский полуостров
18. 1. Инвестиции ~ это долгосроч вложен капитала с целью получен прибыли Инвестиця деятть ~ это деятть физ ю.html
19. европейская идея приобрела после окончания Первой мировой войны
20. Античная наука возникновение первых научных программ