Читайте также:
|
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; просмотров: 76 | Поможем написать вашу работу | Нарушение авторских прав |