IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Строки, Расширение задачи
сообщение
Сообщение #1


студент..
***

Группа: Пользователи
Сообщений: 287
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  2  +


Здравствуйте! Помогите разобраться в одном вопросе! Есть прога, которая определяет слова с определенной буквой (в данной задаче 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.

Заранее спасибо!


--------------------
После дождя обязательно выглянет солнце)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
В принципе нужно загнать в массив
Зачем? Тебе что, надо хранить все 7 строк? Тогда придется сохранять в массив. Если же нужно просто ввести 7 строк и найти слова с заданной буквой, то:
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.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


студент..
***

Группа: Пользователи
Сообщений: 287
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  2  +


Спасибо! Про "массив" я имел ввиду что считывать в цикле, опечатался...


--------------------
После дождя обязательно выглянет солнце)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


студент..
***

Группа: Пользователи
Сообщений: 287
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  2  +


О! Еще вопрос!

Дана строка, содержащая текст на русском языке. Вывести на экран в алфавитном порядке список всех слов, встречающихся в этом слове.

Это задача будет решаться по принципу слова в массив и его дальнейшая сортировка?


--------------------
После дождя обязательно выглянет солнце)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
Это задача будет решаться по принципу слова в массив и его дальнейшая сортировка?


Именно так, и задача эта рашалась уже неоднократно, пользуйся поиском.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


Глянь тут smile.gif


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 18.08.2017 19:39
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"