Строки Опции

[КириллV]

Помогите пожалуйста отладить программу, задача такая:

Вводится текст.
Создается новый массив подстрок, выделяется из каждой строки подстроки:
Разделенные более чем тремя знаками звездочка <*>.Среди выделенных подстрок находится подстрока:
Cодержащая минимальное число латинских букв.

Неполадка заключается в том что программа формирует и выводит массив строк даже, если символа звездочка нет или меньше 3х...

Вот код программы:

 

Program StringAnalyz;

uses crt;

var
   f                                  :text;
   s                                  :string;
   substrings                         :array [0..200] of string;
   i,j,min,minindex,counter,lettercode:integer;

Begin
clrscr;
writeln('Создать новый массив подстрок, выделив из каждой строки подстроки:');
writeln('Разделенные более чем тремя знаками звездочка <*>.');
writeln('Среди выделенных подстрок найти подстроку:');
writeln('Содержащую минимальное число латинских букв.');

assign(f,'swop.tmp');
rewrite(f);
Writeln ('Введите текст:');
readln (s);
i:=0;
while not(s='') do
      begin
      writeln(f,s);
      while pos('****',s)>0 do
         begin
         if length(copy(s,1,pos('****',s)-1))>0 then
            begin
            substrings[i]:=copy(s,1,pos('****',s)-1);
            i:=i+1;
            end;
         delete(s,1,pos('****',s)+2);
         while copy(s,1,1)='*' do delete (s,1,1);
         end;
      if length(s)>0 then
         begin
         substrings[i]:=s;
         i:=i+1;
         end;
      readln (s);
      end;
close(f);

writeln('Подстроки:');
min:=length(substrings[0]);
for j:=0 to i-1 do
    begin
    writeln(substrings[j]);
    counter:=0;
    for i:=1 to length(substrings[j]) do
        begin
        lettercode:=ord((substrings[j])[i]);
        if ((lettercode>64) and (lettercode<98))or((lettercode>89) and (lettercode<123)) then counter:=counter+1;
        end;
    if counter<min then
        begin
        min:=counter;
        minindex:=j;
        end;
    end;

writeln;
writeln('Строка содержащая минимальное кол-во латинских букв:');
writeln(substrings[minindex],'   (',min,' латинских букв)');
writeln;
writeln('Нажмите любую клавишу для завершения работы...');
while not keypressed do;
End.

 

Сообщение отредактировано: КириллV - 16.01.2008 13:58