Выяснить, верно ли, что в данном тексте больше групп букв, чем групп знаков

Posted by obzor under Delphi

Дан текст, хранящийся в текстовом файле f, каждый символ которого может быть малой буквой, цифрой или одним из знаков ‘+’, ‘-‘, ‘*’. Группой букв будем называть такую совокупность последовательно расположенных букв, которой непосредственно не предшествует и за которой непосредственно не следует буква. Аналогично определяется группа цифр и группа знаков.
Выяснить, верно ли, что в данном тексте больше групп букв, чем групп знаков. В первом случае в новый файл g вывести все группы букв, во втором – все группы знаков.

Aleksandr H.

Один из вариантов.

uses crt;
var f:text;
    s:string;
    i,m:byte;
    sg,dg,lg:byte;
    ssg,sdg,slg:string;
    asg,adg,alg:array[1..5]of string;
begin
clrscr;
assign(f,'f.dat');reset(f);
sg:=0;dg:=0;lg:=0;m:=0;
ssg:='';sdg:='';slg:='';
while not eof(f) do
begin
  readln(f,s);
  s:=s+' ';
  for i:=1 to length(s) do
   begin

        if s[ i] in ['a'..'z'] then
           begin
              if slg='' then
                  begin
                    inc(lg);
                    if sdg<>'' then adg[dg]:=sdg;
                    if ssg<>'' then asg[sg]:=ssg;
                    sdg:='';ssg:='';
                  end;
              slg:=slg+s[ i];
           end
        else if s[ i] in ['0'..'9'] then
           begin
              if sdg='' then
                 begin
                   inc(dg);
                   if ssg<>'' then asg[sg]:=ssg;
                   if slg<>'' then alg[lg]:=slg;
                    slg:='';ssg:='';
                 end;
              sdg:=sdg+s[ i];
           end
        else
           begin
                if ssg='' then
                   begin
                     inc(sg);

                     if sdg<>'' then adg[dg]:=sdg;
                     if slg<>'' then alg[lg]:=slg;
                     slg:='';sdg:='';
                   end;
                ssg:=ssg+s[ i];
            end;
   end;
end;
writeln('[a..z]: ',lg);
writeln('[0..9]: ',dg);
writeln('other : ',sg);
close(f);
for i:=1 to lg do write(alg[ i],' ');
writeln;
for i:=1 to dg do write(adg[ i],' ');
writeln;
for i:=1 to sg do write(asg[ i],' ');
writeln;

assign(f,'f.out');rewrite(f);
{write output by your own}
close(f);

end.

тема на форуме

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

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)