|
Задания по теме: Работа сo строками данных. |
Примеры решения задач
1. Дан текст. Найти в нем количество буквосочетаний 'st'.
Система тестов:
№ | Значение переменной st | Результаты |
st ghhgst stjkj | ||
sthghjghghghst |
Решение задачи:
Program Kolichestvo_ST;
var
st: string;
counter, i: integer;
begin
readln(st);
counter:=0;
for I:=1 to length(st)-1 do
if (st[i]=’s’) and (st[i+1]=’t’) then
inc(counter);
writeln(' counter = ', counter);
readln;
end.
2. Дан текст из цифp и стpочных латинских букв. Опpеделить, сколько гласных (a, e, i, o, u, y) и сколько согласных букв в этом тексте.
Система тестов:
№ | Значение переменной st | Результаты |
123 erty asd | гласных – 3 согласных – 4 | |
sdfdg3 43 3rtg 23 | гласных – 0 согласных – 8 |
Решение задачи:
Program Glasnie_Soglasnie;
const
gl=['i','o','u','a','e',’y’];
Digit=[' ',’0’,'1','2','3','4','5',’6’,’7’,’8’,’9’];
var
st: string;
gl_count, dig_count, i: integer;
begin
readln(st);
for I:=1 to length(st) do
begin
if st[i] in gl then
inc(gl_count);
if st[i] in digit then
inc(dig_count);
end;
writeln('glasn= ',gl_count');
writeln(‘soglasn= ', length(st)- gl_count - dig_count);
readln;
end.
3. Дан текст, В тексте везде заменить одно заданное слово на другое.
Система тестов:
№ | Значение Text | st1 | st2 | Результаты |
I go to school. | school | shop | I go to shop.. |
Решение задачи:
Program Change_St1_to_St2;
var
text, st1,st2: string;
p, i: integer;
begin
Writeln(‘Введите текст?’);
readln(text);
Writeln(‘Введите слово которое следует заменить?’);
readln(st1);
Writeln(‘Введите слово на которое следует заменить?’);
readln(st2);
p:=Pos(st1,text);
while p > 0 do
begin
Delete(text,P,length(st1));
Insert(st2, text,P);
p:=Pos(st1,text);
end;
writeln(text);
readln;
end.
Варианты заданий для самостоятельной работы
1. Дан текст. Найти в нем удвоенные буквы.
2. 2.Дан текст. Напечатать текст в обратном порядке.
3. Дан текст. Найти в нем количество слов.
4. Дан текст. Найти количество слов, заканчивающихся буквосочетанием 'kk'.
5. Дан текст. Заменить все гласные на символ '*'.
6. Дан текст. Найти количество слов 'krokodil'.
7. Дан текст. Утроить все символы в тексте.
8. Дан текст. Удалить все гласные (a, e, i, o, u) в тексте.
9. Дан текст. Удалить в тексте лишние пробелы между словами, оставив по одному.
10. Найти самое длинное и самое короткое слово в заданном тексте.
11. Дан текст. Удалить каждую вторую букву.
12. Дан текст. Удалить все пробелы в тексте.
13. Дан текст из стpочных латинских букв. Напечатать:
а) все буквы, входящие в тетст не менее двух pаз;
б) все буквы, входящие в текст по одному pазу.
14. Дан текст. Вывести текст по две буквы в столбик.
15. Дан текст. После каждой второй буквы вставить символ '.'.
16. Дан текст. Напечатать все подслова, содержащие первую букву.
17. Дан текст. Найти количество слов, начинающихся буквосочетанием 'mk'.
18. Дан текст. Удвоить все буквы, но не пробелы.
19. Дан текст. Вставит '.' перед каждым словом.
20. Дан текст. Проверить соблюдается ли в записи данной математической формуле баланс открывающихся и закрывающихся скобок.
21. Дан текст. Из заданного предложения удалить все слова, которые уже встречались в нем ранее.
Дата добавления: 2015-11-04; просмотров: 23 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
Конференция Java Day Самара 2013https://oracle.timepad.ru/event/67018/ | | | Цель:сформировать навыки работы с приложением What-If & Plan-Fact. |