Процедура StrlB(s,n). Заменить в строке s, начиная с позиции n, все малые буквы на большие

@Jimm34 · Регистрация: 30.11.2013

Author24 — интернет-сервис помощи студентам

Разработать процедуры и функции, которые обеспечивают выполнение операций, указанных в задании:
StrlB(s,n). Заменить в строке s, начиная с позиции n, все малые буквы на большие.

Не знаю как реализовать...

@sumasshedshaya · 10.12.2014, 09:15

функцию сделала, теперь надо начиная с позиции n..
Помогите сделать, очень надо.. пожалуйста

Pascal

program uc;
var
  s1:string;
  r:integer;
 function StrlB(s:string):string;
var
  i:integer;
  r:string;
  lowc,upc:string;
begin
  lowc:='абвгдеёжзийклмнопрстуфхцчъьшщэюя';
  upc:='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧЪЬШЩЭЮЯ';
 
  r:='';
  if length(s)>0 then
    for i:=1 to length(s) do
      if pos(s[i],lowc)>0 then r:=r+upc[pos(s[i],lowc)]
        else r:=r+s[i];
       StrlB:=r;
       end;
       begin
       
       readln(s1);
       writeln(StrlB(s1));
       
     end.

@Jimm34 1 / 1 / 2 Регистрация: 30.11.2013 Сообщений: 67
		1
	Процедура StrlB(s,n). Заменить в строке s, начиная с позиции n, все малые буквы на большие 09.12.2014, 14:16. Показов 1700. Ответов 1 Метки нет (Все метки) Разработать процедуры и функции, которые обеспечивают выполнение операций, указанных в задании: StrlB(s,n). Заменить в строке s, начиная с позиции n, все малые буквы на большие. Не знаю как реализовать... 0

	10.12.2014, 09:15

Процедура StrlB(s,n). Заменить в строке s, начиная с позиции n, все малые буквы на большие

Решение