Главная

Контакты

Случайная статья

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

Begin. For b:= ’A’ To ‘Z’ Do. While k <> 0 Do. While i <= n Do. If (s[i] = ’,’) or (s[i] = ’;’) Then

Begin

Clrscr;

For b:= ’A’ To ‘Z’ Do

Begin

k:= Ord(b);

Write(b, ’ – ‘, k, ’ ‘);

End;

End.

Пример 2

Дано слово “информатика”. Получить из него с помощью копирования слова: “форма”, “рама”, “рамка”.

Program pr2;

Uses crt;

Var s, s1, s2, s3, s4, s5, s6: string;

Begin

Clrscr;

s:= ’информатика’;

s1:= Copy(s, 3, 5);

Writeln(s1);

s2:= Copy(s, 5, 1); s3:= Copy(s, 7, 1); s4:= Copy(s, 6, 2);

s5:= s2 + s3 + s4; {или s5:= Concat(s2, s3, s4);}

Writeln(s5);

s6:= Copy(s, 10, 1);

Insert(s6, s5, 4);

Writeln(s5);

End.

Пример 3

Дано слово “угол”. Получить из него слова: “уголь” ® “гол” ® “гандбол” ® “банда”.

Program pr3;

Uses crt;

Var n, i: integer; s: string;

Begin

Clrscr;

s:= ’угол’;

Insert(‘ь’, s, 5); {получаем слово “уголь”}

Writeln(s);

Delete(s, 1, 1);

Delete(s, 4, 1); {получаем слово “гол”}

Writeln(s);

Insert(‘андб’, s, 2); {получаем слово “гандбол”}

Writeln(s);

s1:= Copy(s, 5, 1); s2:= Copy(s, 2, 1); s3:= Copy(s, 2, 3);

s:= Concat(s1, s3, s2); {получаем слово “банда”}

Writeln(s);

End.

Пример 4

Дана строка. Заменить в ней все слова “ковер” на “палас” и вычислить, сколько раз это слово встречается.

Program pr4;

Uses crt;

Var s: string; kol, k: integer;

Begin

Clrscr;

Writeln(‘Введите строку’); Readln(s);

kol:= 0;

k:= Pos(‘ковер’, s);

While k <> 0 Do

Begin

Delete(s, k, 5);

Insert(‘палас’, s, k);

kol:= kol + 1;

k:= Pos(‘ковер’, s);

End;

Writeln(s);

Writeln(‘kol=’, kol);

End.

Пример 5

Дано слово “танк”. Получить из него слово “кант”.

Program pr5;

Uses crt;

Var s: string; n: char;

Begin

Clrscr;

s:= ’танк’;

n:= s[1]; s[1]:= s[4]; s[4]:= n;

Writeln(s);

End.

Пример 6

Дана строка. Заменить все символы “!” на “?”, а после каждого символа “,” или “;” вставить пробел.

Program pr6;

Uses crt;

Var n, i: integer; s: string;

Begin

Clrscr;

Writeln(‘Введите строку’); Readln(s);

n:= Length(s);

i:= 1;

While i <= n Do

Begin

If s[i] = ’!’ Then s[i]:= ’?’;

If (s[i] = ’,’) or (s[i] = ’;’) Then

Begin

Insert(‘ ’, s, i + 1);

n:= n + 1;

i:= i + 1;

End;

i:= i + 1;

End;

Writeln(s);

End.

Пример 7

Дана строка – повествовательное предложение. Вычислить количество слов в предложении.

Program pr7;

Uses crt;

Var n, i, k: integer; s: string;