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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.10.2008, 20:44   #1
vovan665
 
Регистрация: 01.10.2008
Сообщений: 7
Восклицание заменить на звездочки большие латинские буквы

помогите решить 2 задачи
1.строки
заменить на звездочки большие латинские буквы
2.текстовые файлы
1.создать массив целых чисел
2.открыть,считать и найти минимум в первой половине
vovan665 вне форума Ответить с цитированием
Старый 02.10.2008, 14:37   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Код:
var
  i: byte;
  s: string;
begin
  write('s = ');
  readln(s);
  for i := 1 to length(s) do
  if ('A' <= s[i]) and (s[i] <= 'Z') then
  begin
    delete(s, i, 1);
    insert('*', s, i)
  end;
  writeln('s = ', s);
  readln
end.
Вторую задачу можно решить если посмотреть посты в этом разделе
eoln вне форума Ответить с цитированием
Старый 02.10.2008, 15:31   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

извините, но, если уж речь идёт о Паскале (да и вы всё равно используете обращение к s[i]
то, вместо:
delete(s, i, 1);
insert('*', s, i)
лучше:
Код:
 s[i] := '*';
p.s. кстати, и begin/end уйдут... :-)
Serge_Bliznykov вне форума Ответить с цитированием
Старый 02.10.2008, 15:54   #4
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,239
По умолчанию

Кстати, это
if ('A' <= s[i]) and (s[i] <= 'Z') then
можно заменить этим:
Код:
if  (s[i] in ['A'..'Z']) then
Alter вне форума Ответить с цитированием
Старый 02.10.2008, 16:40   #5
vovan665
 
Регистрация: 01.10.2008
Сообщений: 7
По умолчанию

спасибо большое
vovan665 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
поменять большие буквы на маленькие и маленькие на большие в си++ Барби Помощь студентам 4 08.04.2008 01:25
Большие числа Лубышев Помощь студентам 6 27.02.2008 22:57
Большие комплексные числа xoz Общие вопросы Delphi 0 24.02.2008 03:12
Буквы большие и маленькие alekscooper Microsoft Office Excel 1 12.04.2007 23:12