Здравствуйте! Помогите разобраться в одном вопросе! Есть прога, которая определяет слова с определенной буквой (в данной задаче i) и выводит на экран. Оан работает только для одной строки, а требуется для 7 строк. В принципе нужно загнать в массив, вот только как я не понимаю...
var a:array[1..130] of string;
s:char;
s1:string;
i,j,c:integer;
begin
read(s1);
j:=1;
for i:=1 to length(s1) do
begin
if (ord(s1[i])>=65) and (ord(s1[i])<=90) or (ord(s1[i])>=97) and (ord(s1[i])<=122) then
begin
a[j]:=a[j]+s1[i];
end else
J:=j+1;
end;
for i:=1 to j do begin
for c:=1 to length(a[i]) do if a[i,c]='i' then begin writeln(a[i]); break; end;
end;
end.
var
a: array[1 .. 130] of string;
s1: string;
i, j, count: integer;
begin
for count := 1 to 7 do begin
readln(s1);
j := 1; a[1] := '';
for i := 1 to length(s1) do begin
if ord(s1[i]) in [65 .. 90, 97 .. 122] then begin { <--- Это вместо четырех AND-ов }
a[j] := a[j] + s1[i];
end
else begin
j := j + 1; a[j] := '';
end;
end;
for i := 1 to j do begin
if pos('i', a[i]) > 0 then writeln(a[i]); { <--- А это - вместо цикла перебирающего буквы слова }
end;
end;
end.
Спасибо! Про "массив" я имел ввиду что считывать в цикле, опечатался...
О! Еще вопрос!
Дана строка, содержащая текст на русском языке. Вывести на экран в алфавитном порядке список всех слов, встречающихся в этом слове.
Это задача будет решаться по принципу слова в массив и его дальнейшая сортировка?
http://forum.pascal.net.ru/index.php?showtopic=10831&pid=69379&st=5entry69379