Пожалуйста помогите с Pascal

← →
Kolan © (2007-12-18 15:51) [40]

> Можно ведь и первый пробел искать перебором :)))

Им и искать, и сразу выбирать

var GivenString, ResultString: string; I: Integer; begin GivenString := "as1dfs2d3f sdfsdf"; ResultString := ""; I := 1; while GivenString[I] <> " " do begin if not (GivenString[I] in ["A"&#133"Z", "a"&#133"z"]) then ResultString := ResultString + GivenString[I]; I := I + 1; end; ShowMessage(ResultString); end;

← →
oldman © (2007-12-18 15:54) [41]

> Kolan © (18.12.07 15:51) [40]

Ни одной строковой функции...
:)))

← →
Anatoly Podgoretsky © (2007-12-18 15:55) [42]

> oldman (18.12.2007 15:41:34) [34]

А где в вопросе про одномерный массив.

← →
SergeR © (2007-12-18 15:56) [43]

> Kolan © (18.12.07 15:51) [40]

А если в строке не будет пробелов?

← →
oldman © (2007-12-18 15:59) [44]

> SergeR © (18.12.07 15:56) [43]
> А если в строке не будет пробелов?

Условие перечитай.
Они там таки есть :)

← →
SergeR © (2007-12-18 16:02) [45]

> oldman © (18.12.07 15:59) [44]

Ну хорошо если пробел - это не #32

← →
Kolan © (2007-12-18 16:07) [46]

> Ни одной строковой функции&#133

Да нафих они нужны тут? Искать Pos, делать Copy а потом еще в цикле искать  бррр к томуже  это же по паскалю вопрос&#133

> Ну хорошо если пробел  это не #32

А что это?

> А если в строке не будет пробелов?

Следовательно там и не будет «нелатиских букв до первого прбела».

← →
SergeR © (2007-12-18 16:11) [47]

> > Ну хорошо если пробел — это не #32
> А что это?

А фиг знает например #255 ))

> > А если в строке не будет пробелов?
> Следовательно там и не будет «нелатиских букв до первого
> пробела».

И цикл вылетит с ошибкой

← →
boriskb © (2007-12-18 16:13) [48]

> [14] Плохиш © (17.12.07 19:20)
>
> Тут не служба поддержки дармоедов...

Это ты зря. Всегда найдутся такие.
По непонятной мне причине.
Чтоб никто не усомнился, что они это могут?

Заниженная самооценка?

> [40] Kolan © (18.12.07 15:51)

← →
Kolan © (2007-12-18 16:13) [49]

> И цикл вылетит с ошибкой

А, ну ессно условие должно включать проверку на конец строки
while (GivenString[I] <> " ") or (I <= Length(GivenString)) do

А пробел он и в африке пробел&#133

← →
SergeR © (2007-12-18 16:15) [50]

> А, ну ессно условие должно включать проверку на конец строки
> while (GivenString[I] <> " ") or (I <= Length(GivenString)) do
> А пробел он и в африке пробел…

Собсна в [43] я про Length и намекал, а про пробел уж так...))

А пробел он и в африке пробел&#133

Я с oldman"ом общался, ответ в виде кода для автора  побочный продукт. Или мне надо было ветку завести для этого, а? Делать мне больше нефих как думать о там, что вот я напишу  что-то и какой-то Дмитрий получит ответ ни че не делая&#133 Я хотел объяснить человеку об чем говорю и объяснил&#133

В замен фразы «А пробел он и в африке пробел…» в посте [51] читать: «>Заниженная самооценка?»&#133

> [18] Германн © (18.12.07 01:39)

На добром слове спасибо, но на счет "пока" -
вопрос спорный. Если уж 6,5 лет службы меня
не исправили... :)

> [25] Kleyster (18.12.07 15:31)
> > Что такое компоненты? Это слова?
> Сдается мне, что раз файлы символьные, то компоненты - символы

Соглашусь.

> > Т.е. есть сторока. Каждый ее символ, не являющийся *нужно
>
> > написать давжды , а являющийся * удалить?
>
> Ну почему же опять строка? Вроде у человека написано "символы"
> Исходя из постоянно встречающегося слова "символ", мне представляется
> логичным, что вопрошающий товарищ со своим классом до строк
> еще не добрался. Посему всеобщее недоумение по поводу формулировки
> задач у меня вызывает недоумение.

Массив символов? Пусть так.

Дмитрий, ответ > [40] Kolan © (18.12.07 15:51)
вполне приемлем для задачи 3, но давайте воздержимся
от такого рода ответов.
Подсказывать != давать_готовые_ответы

По задаче 1 считать символы из файла сможешь?
По задаче 2 все понятно?

> По задаче 2 все понятно?

Почитал-почитал тему - и стало мне ещё менее понятнее чем в начале... :)

Пожалуйста помогите с Pascal Найти похожие ветки