Я готуюсь до курсу інформатики. Алгоритмізація та програмування

Val(St,Number,Cod) — перетворює значення St у величину цілого або дійсного типу і розміщує результат у Number. Значення St не повинно містити зайвих пробілів на початку і наприкінці рядка. Cod —ціла змінна, значення якої не дорівнює нулю, якщо під час перетворення виявлена помилка. Cod буде містити номер позиції першого помилкового символу, a Number не буде визначено.

Значення Str

Вираз

Результат

‘1450’

val(Str,Number,Cod)

1450 Cod=0

‘14.2Е+02’

val(Str,Number,Cod)

1420 Cod=0

‘14.5А+01’

val(Str,Number,Cod)

? Cod=5

Функції для роботи з рядками.

Lenght(St) — обчислює поточну реальну довжину в символах рядка St. Результат має цілий тип.

Copy(St,Poz,N) — копіює з St підрядок довжиною N символів, починаючи з позиції Poz. Якщо Poz > Lenght(St), то результатом буде пробіл; якщо Poz > 255, то виникне помилка при виконанні.

Pos(St1,St2) — виявляє першу появу в рядку St2 рядка St1. Результат має цілий тип і дорівнює номеру тієї позиції, де знаходиться перший символ рядка St1. Якщо в St2 рядок St1 не знайдений, результат дорівнює 0.

UpCase(Ch)—перетворює малу літеру на велику. Параметр і результат мають літерний тип. Обробляються тільки літери латинського алфавіту.

ЗАДАЧА № 377

Умова: Нехай дано деякий текст. Обчислити, скільки разів повторюється наперед заданий символ а.

Розв ‘язання. Дня розв’язання задачі, по-перше, необхідна рядкова величина для зберігання тексту (для зберігання великого тексту можна зарезервувати масив). Для спрощення задачі будемо вважати, що текст має довжину не більше 255 символів, тобто для його зберігання достатньо одного рядка. Крім цього, нам необхідна змінна символьного типу для зберігання заданого символу а, кількість яких ми будемо обчислювати.

Оскільки рядок фактично можна вважати масивом символьних величин, для його обробки необхідно організувати цикл від першого до останнього символу рядка (length(St)) , що буде переглядати кожен елемент рядка та порівнювати його з шуканим символом. У випадку збігу елементів, що порівнюються, лічильник збільшується на одиницю.

Програма, що реалізує описаний алгоритм, має наступний вигляд:

Program Example_377;

Uses crt;

Var і,count:word;

{і — змінна циклу, count — кількість знайдених символів}

a:char; {a — шуканий символ}

St:string; {St — даний текст}

Begin

Clrscr;

Write(‘Введіть текст: ‘);

Readln(St);

Write(‘Введіть шуканий символ: ‘);

Readln(a);

Count:=0; (Початкове значення лічильника}

For i:=1 to length(St) do

If St[i] = a Then count:=count+l;

Writeln(‘Шуканих символів в тексті ‘,count);