Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » объясните программу
объясните программу
задание Заменитьпервую строчную букву на заглавную в словах, имеющих выбранную длину, объясните пожалуйста программу особенно 13 строчку if i - p = 5 then s [p]:= chr(ord(s[p]) - 32)

Program lab;
var  i, p : integer; 
s : string;
begin   readln(s);
   p := 1; 
 s := s + ' '; 
 for i := 1 to length(s) do   begin     if s = ' ' then   
 begin   
   if i - p = 5 then s [p]:= chr(ord(s[p]
) - 32);   
   p := i + 1;     
end; 
 end; 
 writeln(s); 
 readln;
end.
1 | Автор: virus1 | 2014-01-18, 11:40 | Изменено: virus1 - Сб, 2014-01-18, 11:44   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » объясните программу
Страница 1 из 11
Поиск: