Задание №1, Формулировка задания:, Описание входных/выходных и промежуточных данных, Контрольный пример, Алгоритм программы реализованный в виде блок-схемы, Листинг программного продукта, Задание №2 - Обработка данных множественного типа

Формулировка задания:

Составьте программу подсчета числа тех гласных букв в слове X, что не используются в написании слова Z.

Описание входных/выходных и промежуточных данных

Описание данных

Тип данных

Имя переменной

Тип переменной

Назначение переменной

1

3

4

5

Входные данные

X

String

Слово X

Z

String

Слово Z

Промежуточные данные

Gl1

Set of char

I

Byte

Индекс массива

Выходные данные

Kol

Byte

Количество гласных букв

Контрольный пример

Слово X: Кибернетика

Слово Z: Информатика

Количество гласных букв: 3

Алгоритм программы реализованный в виде блок-схемы
Листинг программного продукта

Const

Gl = ['у', 'У', 'е', 'Е', 'ы', 'Ы', 'а', 'А', 'о', 'О', 'э',

'Э', 'Я', 'я', 'и', 'И', 'ю', 'Ю'];

Var

Gl1 : set of char;

I, kol : byte;

Z, x : string;

Begin

Gl1 := [];

Kol := 0;

Readln(z);

Readln(x);

For i := 1 to length(z) do

If z[i] in gl then

Gl1 := gl1 + [z[i]];

For i := 1 to length(x) do

If x[i] in gl1 then

Inc(kol);

Writeln(kol);

Readln;

End.

Задание №2
Формулировка задания:

Составьте программу, вычеркивающую из слова Х согласные буквы.

Описание входных/выходных и промежуточных данных

Описание данных

Тип данных

Имя переменной

Тип переменной

Назначение переменной

1

3

4

5

Входные данные

X

String

Слово X

Промежуточные данные

I

Byte

Индекс массива

Выходные данные

X

String

Получившееся слово X

Контрольный пример

Слово X: Информатика

Получившееся слово: И о а и а

    4. Алгоритм программы реализованный в виде блок-схемы 5. Листинг программного продукта

Программа гласный буква слово

Const

Sogl = ['й', 'Й', 'ц', 'Ц', 'к', 'К', 'н', 'Н', 'г', 'Г', 'ш', 'Ш',

'з', 'З', 'Х', 'х', 'ф', 'Ф', 'в', 'В', 'п', 'П', 'р', 'Р', 'л',

'Л', 'д', 'Д', 'ж', 'Ж', 'ч', 'Ч', 'с', 'С', 'м', 'М', 'т', 'Т',

'б', 'Б'];

Var

X : string;

I : byte;

Begin

Readln(x);

For i := 1 to length(x) do

If x[i] in sogl then

X[i] := #0;

Writeln(x);

Readln;

End.

Похожие статьи




Задание №1, Формулировка задания:, Описание входных/выходных и промежуточных данных, Контрольный пример, Алгоритм программы реализованный в виде блок-схемы, Листинг программного продукта, Задание №2 - Обработка данных множественного типа

Предыдущая | Следующая