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

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

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

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 1.3.2025

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. Реферат- Обязательства, возникающие вследствие причинения вреда
4. ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ В МЕНЕДЖМЕНТЕ. ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ В УПРАВЛЕНИ
5. Тема- Первоначальные сведения о строении вещества Строение вещества В своей жизни мы достаточно часто ст
6. ЗАДАНИЕ N 1 Миропонимание мировосприятие мироотношение в своей совокупности образуют концепцию теор.html
7. .10.1938 Лезвия с плавающей головкой коробка конфет садовая тележка Анечка Ботова лезв
8. правовых дисциплин УЮИ МВД РФ Калмацкий B
9. тема экологического права
10. Обязательное и добровольное медицинское страхование в России