Студопедия  
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Этап 2.4. Программы обработки строковых данных

Читайте также:
  1. I.2.3. Обработка исходных данных в режиме таблицы
  2. II. 4 Требования к итоговым достижениям освоения образовательной программы начального общего образования обучающимися с нарушениями речи.
  3. II. Запуск программы ГисИнГео.
  4. IV. Ресурсное обеспечение Программы
  5. PROFIBUS Слой Связи Данных (слой 2)
  6. SIMD – одиночный поток команд и множественный поток данных.
  7. The knowledge of all fabricating processes is necessary for a processing engineer. (Знание всех процессов обработки необходимо для инженера-технолога)
  8. Trading Techniques Inc. предоставляет месячные, недельные, дневные и почасовые (60 минут) данные по всем фьючерсам с помощью сервиса загрузки данных.
  9. V. Ресурсное обеспечение Программы
  10. VI. Механизм реализации Программы

1. Вам предстоит, действуя по шаблонам, создать простейшие программы обработки строковых (текстовых) данных и сохранить их в виде файлов str_1.pas, str_2.pas.

2. Переписать из листинга № 6 и отладить программу ввода и редактирования текста.

Листинг 6. Ввести текст с клавиатуры. Вывести его на экран до первого знака препинания.

Program str_1;

USES CRT;

VAR str: string;

k, i: integer;

m: set of char;

BEGIN

CLRSCR;

m:= ['.', ',', '!', '? ', ':', ';', '-'];

writeln ('Введите текст');

readln (str);

k:=length (str);

writeln ('Печатаем текст до первого знака препинания:');

for i:=1 to k do

If not (str[i] in m) then

write (str[i])

else

break;

END.

3. По аналогии с предыдущим заданием написать и отладить программы:

- ввести текст с клавиатуры, вывести его на экран без знаков препинания;

- ввести текст с клавиатуры, вывести его на экран без гласных букв, определив их первоначальное количество в тексте.

4. Переписать из листинга № 7 и отладить программу работы с текстовым файлом.

Листинг 7. Создать текстовый файл File1.txt, заполнить его текстом. Прочитать текст из файла и вывести его на экран.

Program file_1

USES CRT;

VAR F1: text;

str: string;

BEGIN

CLRSCR;

Assign (F1, 'File1.txt');

Reset (f1);

Read (f1, str);

Writeln('В файле записан текст: ');

Writeln (str);

Close(f1);

END.

5. По аналогии с предыдущим заданием написать и отладить программы:

- создать текстовый файл File1.txt, записать в него текст «Hello, friend!». Прочитать текст из файла. Преобразовать его в вид: «Hello, my friend!». Использовать процедуру INSERT(Word:string, String:string, pos:integer), где Word – вставляемый текст, String – исходный текст, pos – позиция для вставки) и функцию POS(word:string, str:string):integer, где Word – символ, позицию которого в строке надо найти, str – строка, в которой ведется поиск.

- создать текстовый файл File2.txt, записать в нем текст. Прочитать текст из файла. Ввести с клавиатуры строку текста. Вывести на экран объединение текста и введенной строки. Использовать функцию CONCAT(str1:string, str2:string):string – возвращает объединение строк.

- создать текстовый файл File3.txt, записать в нем текст. Удалить из текста второе слово. Использовать процедуру DELETE(str:string, i:integer, j:integer), где str – строка, в которой надо произвести удаление, i – позиция, с которой начать удаление, j – количество удаляемых символов.

- создать текстовый файл File4.txt, записать в нем текст. Прочитать текст из файла, вывести его на экран, разбив на слова по 5 символов.

- создать текстовый файл File5.txt, записать в нем текст. Изменить текст в файле, разбив его на слова по 5 символов.

Результат выполнения этапа: Вы ознакомились с приемами обработки текстовых данных, вводимых с клавиатуры и из файла, поработали со специфическим типом данных «множество», освоили последовательность работы с файлом, применили функции и процедуры модификации текстовых данных.

Форма представления результатов лабораторной работы: файлы.




Дата добавления: 2015-09-11; просмотров: 19 | Поможем написать вашу работу | Нарушение авторских прав

Запись простейших алгоритмов обработки числовых данных | Этап 1.1. Исследование рабочего окна системы программирования | Этап 2.1. Исследование возможностей системы программирования TurboPascal 7.0 для операционной системы MS DOS. | Технология визуального программирования | Технология объектно-ориентированного программирования | Этап 5.4. Исследование операторов работы с файлом | Основы программирования на языке Turbo Pascal | Операторы управления последовательностью программы | Пример. |


lektsii.net - Лекции.Нет - 2014-2024 год. (0.006 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав