Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.02.2007, 15:17   #11
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
По умолчанию

> "Научиться работать со строками"

а Вы тут начинаете мудрить ..
Берегите друг друга!
Virtson вне форума Ответить с цитированием
Старый 03.03.2007, 15:58   #12
VoRTeX
Пользователь
 
Аватар для VoRTeX
 
Регистрация: 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.
VoRTeX вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа со строками 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