6.4. Лабораторная работа 6
Тема: Строки
Вариант Задания
1
2 1. Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b.
2. Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.
4 1. Дана строка . Определить, сколько в ней символов *, ;, :.
2. В строке удалить символ «двоеточие» (:) и подсчитать количество замен
6 1. Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.
2. Удалить часть символьной строки, заключенной в скобки (вместе со скобками)
8 1. Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *.
2. В строке имеется точка с запятой (;). Подсчитать количество символов до точки с запятой и после нее.
9 1. Дана строка. Определить, сколько раз входит в нее группа букв abc.
2. Дана строка. Преобразовать ее, заменив точками все двоеточия, встречающиеся среди первой половины символов строки, и заменив точками все восклицательные знаки во второй половине символов.
11 1. Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран.
2. В записке слова зашифрованы – каждое из них записано наоборот. Расшифровать сообщение.
12 1. Дана строка. Подсчитать самую длинную последовательность подряд идущих букв a.
2. Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.
15 1. Дана строка. Указать те слова, которые содержат хотя бы одну букву k.
var
s,s1:string;
i,j,k,l:integer;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
begin
if (s[i]='(')then k:=1;
if k<>1 then s1:=s1+s[i];
if s[i]=')' then k:=0;
end;
writeln(s1);
readln
end.
var
max,i,j,k,l,m:integer;
f,d:string;
a:array[1.100] of string;
begin
readln(d);
max:=0;
d:=' '+d+' ';
l:=0;
for i:=1 to length(d)-1 do
begin
if (d[i]=' ')and(d[i+1]<>' ') then
begin
k:=i;
l:=l+1;
repeat k:=k+1;a[l]:=a[l]+d[k];until d[k]=' ';
for m:=length(a[l]) downto 1 do write(a[l][m]);write(' ');
end;
end;
end.
1. Зуев Е.А. Язык программирования Турбо- Паскаль 6.0. – М., Унитех, 1992.
2. Немнюгин С.А. Турбо- Паскаль. – СПб.: Питер, 2000.
3. Федоренко Ю. Алгоритмы и программы на Turbo Pascal. Учебный курс.- СПб: Питер, 2001.
4. Семакин И. Г., Шестаков А. П. Основы программирования. – М.; Мастерство, 2002.
5. Могилев А.В. и др. Информатика: учебное пособие для ВУЗов. – М.; Изд. Центр «Академия», 2002.
Готовые решения задач на языке Паскаль
К работе прилагается все исходники с расширением .pas.
Тест:
Ответы на тест Основы искусственного интеллекта
Дипломная работа:
Изучение текстовых задач на уроках математики в начальных классах
Вебинар:
Управление учебной деятельностью обучаящихся по овладению методами решения геометрических задач
Курсовая работа:
Решение задачи «Планирование поставок газированных напитков»
с помощью MS Excel
Дипломная работа:
Многокритериальная оптимизация
