Вопрос по информатике:
Решить задачу в Паскале (абв - всё в одной программе!)
"В символьном массивеиз 6 элементов, заданных с клавиатуры:
а) поменять все маленькие латинские буквы на большие;
б) найти кол-во запятых;
в) поменять все маленькие русские буквы на большие."
СРОЧНО!!! жду верного решения :) спасибо заранее
- 16.11.2016 08:19
- Информатика
- remove_red_eye 18986
- thumb_up 37
Ответы и объяснения 1
var l,k:char; m,s:string; n,i,a:integer; begin read(s); l:=s[1]; if ((ord(l)>223) and (ord(l)96) and (ord(l)<122)) then begin a:=ord(l)-32;if a0 then begin k:=chr(a);if k'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[2]; if ((ord(l)>223) and (ord(l)96) and (ord(l)<122)) then begin a:=ord(l)-32;if a0 then begin k:=chr(a);if k'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[3]; if ((ord(l)>223) and (ord(l)96) and (ord(l)<122)) then begin a:=ord(l)-32;if a0 then begin k:=chr(a);if k'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[4]; if ((ord(l)>223) and (ord(l)96) and (ord(l)<122)) then begin a:=ord(l)-32;if a0 then begin k:=chr(a);if k'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[5]; if ((ord(l)>223) and (ord(l)96) and (ord(l)<122)) then begin a:=ord(l)-32;if a0 then begin k:=chr(a);if k'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[6]; if ((ord(l)>223) and (ord(l)96) and (ord(l)<122)) then begin a:=ord(l)-32;if a0 then begin k:=chr(a);if k'0' then m:=m+copy(k,1,1) end; end else begin if ord(l)=44 then n:=n+1; m:=m+l; end; writeln(m); writeln(n); end.
- 17.11.2016 21:50
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.