Примеры задач

Строки символов


Напишите функцию nonalpha, которая получает параметр str типа string и возвращает позицию его первой литеры, не являющейся буквой прописной или строчной.

Методика решения

Пример: Прогр5аммирование. Ответ: 6

Используемые переменные:
str(в функции)– строка;
i(в функции) – текущий номер литеры;
j(в функции) – параметр цикла;
f(в функции) – логическая переменная;
st – строка.
А так же используется константа a – сторока, состоящая из всех символов, не являющихся буквами.

Функция nonalpha
Входным параметром функции является строка str .
В цикле перебираем литеры строки. Сравниваем каждый из них со всеми символами строки константы a . Если символ, содержится в строке a , то он не является буквой. В этом случае логической переменной присваиваем true , а функции возвращаем позицию текущей литеры строки str . Этот цикл повторяем пока не закончилась строка и пока логическая переменная имеет значение false .
После цикла, если не найдено ни одной литеры, не являющейся буквой (логическая переменная равна false ), то функции возвращаем 0.
В основной программе считываем с экрана строку St , вызываем функцию nonalpha(st) и выводим на экран получившееся значение.

Листинг программы

Program ex4_1;
Uses Crt;
const a:string [40]='1234567890/\< >`?.,";:][=+-()*&^%$#@!~';
var st:string [10];
function nonalpha(str:string):integer;
var f:boolean; i,j:integer;
begin
i:=1;
f:=false;
while (i<=length(str)) and (f=false) do
begin
for j:=1 to length(a) do
if str[i]=a[j] then
>begin
f:=true; nonalpha:=i;
end;
i:=i+1;
end;
if f=false then nonalpha:=0;
end;
begin
clrscr;
writeln ('Введите строку');
readln (st);
writeln ('Результат:');
writeln(nonalpha(st));
readkey;
end.

Запустить программу






Назад

Закрыть