Контрольная работа
«Решения задач на Pascal Строки»
- 15 страниц
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.
Тема: | «Решения задач на Pascal Строки» | |
Раздел: | Программирование, Базы данных | |
Тип: | Контрольная работа | |
Страниц: | 15 | |
Цена: | 400 руб. |
Закажите авторскую работу по вашему заданию.
- Цены ниже рыночных
- Удобный личный кабинет
- Необходимый уровень антиплагиата
- Прямое общение с исполнителем вашей работы
- Бесплатные доработки и консультации
- Минимальные сроки выполнения
Мы уже помогли 24535 студентам
Средний балл наших работ
- 4.89 из 5
написания вашей работы
682 автора
помогают студентам
23 задания
за последние сутки
10 минут
среднее время отклика
Тест
«Ответы на тест Основы искусственного интеллекта»Дипломная работа
«Изучение текстовых задач на уроках математики в начальных классах»ВКР
«Управление учебной деятельностью обучаящихся по овладению методами решения геометрических задач»Курсовая работа
«Решение задачи «Планирование поставок газированных напитков» с помощью MS Excel»Дипломная работа
«Многокритериальная оптимизация»