Guest
Новичок
|
    
Помогите с программой пожалуйста, а то я совсем запутался... Вот задача: "Рассматривается непустая строка, содержащая не более 80 символов. Каждый символ может быть малой английской буквой, цифрой или одним из знаков "+", "-", "*". Группой букв будет называться такая совокупность последовательно расположенных букв, которой непосредственно не предшествует и за которой непосредственно не следует буква. Анологично определяется группа знаков и группа цифр. Требуется написать программу, которая находит и печатает все группы букв, содержащие наибольшее колличество согласных, английских букв и подсчитать их колличество. Если в строке нет групп букв, содержащих согласные английские буквы, то напечатать сообщение: " В строке нет ни одной искомой группы букв". Если в строке нет ни одной группы букв, то напечатать сообщение: " В строке нет ни одной группы букв". Исходная строка вводится с клавиатуры." Вот что у меня получилось:
Code Sample:
Program Stroka;
Uses crt;
Var
k, i, n : integer;
Gs, S : string[80];
const
As : string = 'qwrtpsdfghjklzxcvbnm';
begin
clrscr;
readln(s);
k:=0;
for i:=1 to length(s) do
begin
n:=Pos(s,As);
if n>0 then begin
Gs :=Gs+s;
k:=1;
end
else
if k <> o then
begin
n:=length(Gs);
if n> l then begin
l:=n;
mgs:=gs;
end;
writeln(Gs);
k:=0;
end;
end;
end.
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 10 июня 2004 23:07 | IP
|
|
zxcvbnm
Новичок
|
Помогите, пожалуйста, решить на QBASICe : составить программу,которая замещает подряд идущие буквы "к" на одну "к"
|
Всего сообщений: 50 | Присоединился: май 2010 | Отправлено: 17 июня 2010 20:05 | IP
|
|
|
Форум
Строки
