|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.02.2007, 15:17 | #11 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
> "Научиться работать со строками"
а Вы тут начинаете мудрить ..
Берегите друг друга!
|
03.03.2007, 15:58 | #12 |
Пользователь
Регистрация: 07.02.2007
Сообщений: 21
|
Так как строка представляет собой массив символьного типа, я накатал следующую прогу:
program stringlesson; var A:string; D:integer procedure caser(B:integer; var C:char); case B of: 1:C:='Г'; 2:C:='р'; 3:C:='а'; 4:C:='м'; 5:C:='м'; 6:C:='а'; 7:C:='т'; 8:C:='и'; 9:C:='к'; 10:C:='а'; end; begin Writeln('Введите строку'); Readln A; for D:=1 to 10 do Caser(D, A[D]); if Length(A)>10 then for D:=11 to Length(A) do A[D]:=''; Writeln(A); end. |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа со строками | GoAnd | Общие вопросы по Java, Java SE, Kotlin | 9 | 22.09.2010 03:36 |
Работа со строками. | ViNcHeStEr | Помощь студентам | 6 | 29.06.2008 08:14 |
РАБОТА СО СТРОКАМИ | kluwa | Общие вопросы C/C++ | 7 | 20.12.2007 18:30 |