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

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

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

 
 Ответить  Открыть новую тему 
> не пойму почему выводятся непонятные знаки...
сообщение
Сообщение #1


Пионер
**

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

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


вот текст программы:
program h98789;
uses crt;
var
stroka:string;
simvol:char;
l,k,j,kol_space,i:integer;
is_char,is_simv:boolean;
begin
clrscr;
kol_space:=0;
writeln('Vvedite stroky');
readln(stroka);
writeln('Vvedite neobhodimii simvol');
readln(simvol);
for i:=1 to length(stroka) do
begin
if stroka[i]=' ' then
begin
j:=i+1;
k:=i+1;
inc(kol_space);
is_char:=false;
is_simv:=false;
while (stroka[j]<>' ')and(stroka[j]<>#13) do
begin
if stroka[j]=simvol then
is_char:=true;
if stroka[j] in ['0'..'9','.',',','!','"',':',';'] then
is_simv:=true;
inc(j);
end;
if (is_char=true)and(is_simv=true) then
begin
for l:=k to j do
write(stroka[l]);
writeln(' - iskomaya stroka');
end;
end;
end;
writeln(kol_space+1,' slov v dannoi stroke');
readln;
readln;
end.



вместо нужных строк он мне выводит какие-то символы..подскажите что к чему..??

задание: Подсчитать общее количество слов последовательности и напе-
чатать слова, содеpжащие указанный символ и хотя бы один знак.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

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


Кнопочки F7,F8 не пробовал нажимать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Профи
****

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

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


Цитата(priboltik @ 4.06.2007 13:57) *

...(stroka[j]<>#13) do

не будет после ввода строки через readln в конце этого символа, если только ты сам его туда специально не добавишь. Условие надо поменять на (j<length(stroka)) например.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 23.09.2020 17:45
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name