русс | укр

Языки программирования

ПаскальСиАссемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование

Все о программировании


Linux Unix Алгоритмические языки Аналоговые и гибридные вычислительные устройства Архитектура микроконтроллеров Введение в разработку распределенных информационных систем Введение в численные методы Дискретная математика Информационное обслуживание пользователей Информация и моделирование в управлении производством Компьютерная графика Математическое и компьютерное моделирование Моделирование Нейрокомпьютеры Проектирование программ диагностики компьютерных систем и сетей Проектирование системных программ Системы счисления Теория статистики Теория оптимизации Уроки AutoCAD 3D Уроки базы данных Access Уроки Orcad Цифровые автоматы Шпаргалки по компьютеру Шпаргалки по программированию Экспертные системы Элементы теории информации

Пример.


Дата добавления: 2013-12-23; просмотров: 543; Нарушение авторских прав


Readln (Т); .

ОБРАБОТКА ТЕКСТОВЫХ ДАННЫХ. РЕШЕНИЕ ЗАДАЧ С ИСПОЛЬЗОВАНИЕМ ЗАПИСЕЙ.

Начиная с версии 7.0, в языке ТР существует три типа текстовых данных: символьные - Char,строчные- String и, так называемые asciiz-строки.

Символьная константа – это один символ в кавычках, например, 'A', '5', '?' и т.д. Она занимает 1 байт памяти.

Символьная переменная описывается словом Char.

Так оператор Var S, T, Sim: char; обозначает, что в программе будут использованы три символьные переменные S, T, Sim. Для каждой из них будет выделен 1 байт памяти, куда нужно записать соответствующее значение. Это можно сделать разными способами, например, в операторе присвоения: S:='*'; . Оператор Read(S) обеспечит ввод символа с клавиатуры.

Символьные данные можно объединять в массив, например:

Var P: array[1..50] of char;

Функция Р– это строка из 50 символов. Ее можно ввести в цикле.

For i:=1 to 50 do read(P[i]); readln;

Существует возможность работы с элементами массива Char,как с элементами обычных массивов. Например:

P[i]:=’ ’;

If P[i]=’*’ then writeln(P[i]);

Страничку текста можно представить двумерным массивом.

Var Str: array[1..60,1..80] of char;

Однако существует ограниченный класс задач, при решении которых удобно использовать данные Char.

Наиболее удобны для работы с текстами данные String. Переменная такого типа может иметь длину 255 байтов.

Строчная константа описывается служебным словом String,после которого может стоять в квадратных скобках число – длина строки. Например:

Var T: string[50];

S,Q: string;

В этом случае для переменной Т будет выделен 51 байт памяти, а для переменных Sи Q– по 256 байтов. В эту память можно записать конкретную последовательность символов, длина последовательности может быть меньше, чем выделено. Так, после выполнения оператора



Т:='алгоритм сортировки';

В выделенной памяти будет размещено 20 символов, так что в T[1] будет символ ‘a’, а в T[2]‘л’ и т.д.

Строку можно ввести с клавиатуры при помощи оператора Readln,например:

Для ввода каждой строки используется отдельный Readln,это дает возможность вводить строку любой длины.

Две переменные нельзя вводить одним оператором Readln.

Readln (S,Q);- неверно.

Правильно Readln (S); Readln(Q);

При вводе текста сначала после первой фразы, а потом после второй нажать Enter.

В библиотеке языка есть несколько важных подпрограмм для выполнения различных операций со строками String.

Функция Pos(подстрока, строка)определяет первую слева позицию, начиная с которой подстрока входит в строку. Функция Pos(S1,S2)ищет вS2(с левого края) подстроку S1.Если S1 в S2нет, результат равен нулю.

Функция Copy(строкаS1, NPoz, Kоlsim)выделяет из строки S1подстроку, начиная с позицииNPozдлиной Kоlsimсимволов.

Функция Length(строка) определяет количество символов в строке.

Процедура Insert(подстрока, строка, NPoz) выполняет операцию вставки подстроки в строку, начиная с позиции NPoz.

Процедура Delete(строка, NPoz, Kоlsim)удаляет из строки подстроку с позиции NPoz,длиной Kоlsim.

Слова в предложении отделены символом пробел. Определить количество слов, которые начинаются и заканчиваются одинаковыми символами.

Uses crt; {ищем слова с одинаковыми первыми и последними символами}

Var Pred: string;

N, Kоl: integer;



<== предыдущая лекция | следующая лекция ==>
Преобразование файлов одного растрового формата в другой | Пример 1


Карта сайта Карта сайта укр


Уроки php mysql Программирование

Онлайн система счисления Калькулятор онлайн обычный Инженерный калькулятор онлайн Замена русских букв на английские для вебмастеров Замена русских букв на английские

Аппаратное и программное обеспечение Графика и компьютерная сфера Интегрированная геоинформационная система Интернет Компьютер Комплектующие компьютера Лекции Методы и средства измерений неэлектрических величин Обслуживание компьютерных и периферийных устройств Операционные системы Параллельное программирование Проектирование электронных средств Периферийные устройства Полезные ресурсы для программистов Программы для программистов Статьи для программистов Cтруктура и организация данных


 


Полезен материал? Поделись:

Не нашли то, что искали? Google вам в помощь!

 
 

© life-prog.ru При использовании материалов прямая ссылка на сайт обязательна.

Генерация страницы за: 0.002 сек.