Поиск И Вывод Слов

Тема в разделе "Pascal and Delphi", создана пользователем SergDS, 10 дек 2011.

  1. SergDS

    SergDS New Member

    Регистрация:
    2 дек 2011
    Сообщения:
    0
    Симпатии:
    0
    Добрый день, начал писать программу и столкнулся с проблемой, при копирование символов в массив обратно программа возвращает не понятные символы или вообще ни чего, вот код:
    Код (Delphi):
    Program U_1;
    label up;
    Var
    word:array[1..10] of string;
    space:string;
    line, line_c:string;
    i,z,p,j,k: Integer;
    q:boolean;
    Begin
    Writeln('Vvedite slova');
    {$I-}
    Read(line);
    {$I+}
    space:=' ';
    line_c:=(space+line+space);{*Добавляем в конец и начало строки пробелы*}
    z:=Length(line_c);{*получаем число значений строки*}
    For i:=1 to z do{*считаем от 1 до конца значений строки*}
    begin
    If copy(line_c,i,1)<>space then{*если копируемый символ не равен пробелу то выполняются операторный скобки*}
    begin
    inc(k,1);{*считаем число букв*}
    word[i]:=copy(line_c,i,1);{* заносим эти буквы в массив word*}
    end;
    else
    If copy(line_c,i,1)=space then{*если копируемый символ равен пробелу то выполняются операторный скобки*}
    begin
    inc(p,1);
    end;
    end;
    writeln('Chislo vvedennix slov:',z-k-1);{* выводим число посчитанных слов*}
    writeln('result');
    writeln(word[i]);{* выводим полученные значения массива*}
    readln;
    end.
    Необходимо хотя бы выполнить выполнить первую часть условия, то есть занести введённые слова в массив без пробелов и при этом разделенными друг от друга, подскажите что не правильно.
     
Загрузка...

Поделиться этой страницей