обработка символьной информации

Тема в разделе "Pascal and Delphi", создана пользователем Intersap, 10 ноя 2010.

  1. Intersap

    Intersap Гость

    Помогите с лабой (Паскаль).
    Задание: С клавиатуры через пробел вводятся несколько английских слов. Организовать вывод на экран в колонку те слова, в которых все буквы разные:
    Мой код: (выводит все введеные слова, а вот как инициализировать обращение к каждой букве кждого слова - увы :rolleyes: )

    Код (Delphi):
    Program lab11;
    uses CRT;
    var InSt:string;                 
    ArrSt:array[1..124] of string;
    i,n :byte;
    BEGIN
    clrscr;
    writeln('Введите слова разделяя их пробелом:');
    readln(InSt);
    InSt:=InSt+' ';
    n:=0;
    while length(InSt)>0 do begin
    while (InSt[1]=' ')and(length(InSt)<>0) do delete(InSt,1,1);
    if length(InSt)<>0 then begin                                          
    inc(n);
    i:=pos(' ',InSt);
    ArrSt[n]:=copy(InSt,1,i-1);
    delete(InSt,1,i);
    end;
    end;
    writeln;
    for i := 1 to n do writeln(ArrSt[i]);
    readln;
    END.
    .
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Должно работать:
    Код (Delphi):
    uses crt;
    var s,s2:string;
    i,j,j2,l,r:integer;
    ind:boolean;
    begin
    clrscr;
    writeln('enter words');
    readln(s);
    l:=0;
    r:=0;
    for i:=1 to length(s) do
    begin
    if (s[i]=' ')or(i=length(s)) then
    begin
    r:=i;
    s2:=copy(s,l+1,r-l);
    ind:=true;
    for j:=1 to length(s2) do
    for j2:=1 to length(s2) do
    if (s2[j]=s2[j2])and(j<>j2) then ind:=false;
    if ind=true then writeln(s2);
    l:=i;
    end;
    end;
    readln;
    end.
     
  3. etc

    etc Гость

    А если нет, то что?
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    То отписатся, хотя у меня работало.
     
  5. Intersap

    Intersap Гость

    Большое спасибо, работает
     
Загрузка...
Похожие Темы - обработка символьной информации
  1. kolka
    Ответов:
    6
    Просмотров:
    254
  2. anna
    Ответов:
    9
    Просмотров:
    885
  3. FaRReLL
    Ответов:
    0
    Просмотров:
    869
  4. crow1986
    Ответов:
    8
    Просмотров:
    1.875
  5. Dazzel
    Ответов:
    1
    Просмотров:
    948

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