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

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

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

> Хочу разобраться в символьном типе
сообщение
Сообщение #1


Новичок
*

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

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


Как использовать символьный тип для решения задач?
Например:
есть текст в котором есть хотябы 1 двоеточие(":"). Получить символы, которые располагаются между 1-ым и 2-ым
двоеточиями, если 2-го нет - то до конца текста.
И вот не могу понять, задаю символьный тип и как ему присвоить значение?

s1:array[1..N] of char, как ето использовать для определения ":" в вышенаписаной задаче?

Сообщение отредактировано: CormiX -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Новичок
*

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

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


Только я там удалил ту строку, что идет перед первым двоеточием.
Но ето через strings. А мне надо массив.

flag:=false;
for i:=1 to n do begin
if s1[i]=':' then flag:=not flag else if flag then write(s1[i])
end;
else
flag:=true;
for i:=1 to n do begin
if s1[i]=':' then flag then write(s1[i])
end;


так?)

Сообщение отредактировано: CormiX -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
CormiX   Хочу разобраться в символьном типе   27.12.2009 15:09
andriano   var c : char; begin c := ':';   27.12.2009 15:58
Lapp   Как использовать символьный тип для решения задач?…   27.12.2009 16:02
andriano   [code=pas] ... flag:=false; for i:=1 to N do…   27.12.2009 17:46
CormiX   А после begin писать: write('Flag:=',…   27.12.2009 16:12
Lapp   Так? Только есл я глупость написал то не смейтесь,…   27.12.2009 17:24
andriano   1. Ладно, Паскаль начал учить вчера, а какие языки…   27.12.2009 16:47
CormiX   Других языков к сожалению не знаю((( Алгоритм дум…   27.12.2009 16:52
andriano   Твой алгоритм, мягко говоря, недостаточно подробны…   27.12.2009 16:57
CormiX   Ага тоесть нужно выделить ети символы и копировать…   27.12.2009 17:10
Lapp   во я разобрался, правда не массивом...) Ну, разобр…   27.12.2009 17:27
andriano   во я разобрался, правда не массивом...) Ну, вообщ…   27.12.2009 17:38
CormiX   Только я там удалил ту строку, что идет перед перв…   27.12.2009 17:33
Lapp   так?) Нет. С самим выводом ничего менять не нужно.…   27.12.2009 17:37
CormiX   Тогда использовалась бы только 1 строка правильно?   27.12.2009 17:46
CormiX   Тоесть результат таков: program xxx_1; uses crt; …   27.12.2009 17:52
Lapp   Тоесть результат таков: Что это там за массив a? О…   27.12.2009 18:07
CormiX   А что не так?( ета прога почемуто не работает(((   27.12.2009 18:16
Lapp   ета прога почемуто не работает(((Ты запутался немн…   27.12.2009 19:48
CormiX   Огромное спасибо!!!   27.12.2009 19:58
andriano   n=10 s1[1]=a s1[2]=: s1[3…   27.12.2009 20:56


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

 





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