Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
xXapokalypsesXx
0 / 0 / 0
Регистрация: 25.10.2015
Сообщений: 36
1

Собственная процедура/функция которая превращает строчную букву в прописную

30.11.2015, 04:39. Просмотров 243. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста создать собственную процедуру/функцию которая превращает строчную букву в прописную.
Вводим: а или арбуз
Получаем: А или АРБУЗ

Стандартные функции (например: upcase) нельзя использовать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.11.2015, 04:39
Ответы с готовыми решениями:

Собственная процедура/функция которая возвращает код символа
Помогите пожалуйста создать собственную процедуру/функцию которая возвращает код символа. Вводим:...

Собственная процедура/функция которая возвращает предыдущий символ с кодовой таблицы
Помогите пожалуйста создать собственную процедуру/функцию которая возвращает предыдущий символ с...

Собственная процедура/функция которая возвращает значение символа за его кодом
Помогите пожалуйста создать собственную процедуру/функцию которая возвращает значение символа за...

Напишите программу, которая преобразует строчную латинскую букву в прописную и выводит ее на экран
1. Напишите программу, которая преобразует строчную латинскую букву в прописную и выводит ее на...

В каждом слове заменить последнюю букву на прописную
Добрый день форумчане ! прошу помощи !!!Help!!! Задан текст, слова в котором разделены пробелами....

3
Puporev
Модератор
55066 / 42330 / 29233
Регистрация: 18.05.2008
Сообщений: 100,027
30.11.2015, 08:39 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
procedure MyUpCase(var s:string);
var i:integer;
begin
for i:=1 to length(s) do
if s[i] in ['a'..'z','а'..'п'] then s[i]:=chr(ord(s[i])-32)
else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)
else if s[i]='ё' then s[i]:='Ё';
end;
var st:string;
begin
clrscr;
writeln('Введите строку из строчных букв');
readln(st);
MyUpCase(st);
writeln(st);
readln
end.
1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4059 / 2672 / 2140
Регистрация: 22.11.2013
Сообщений: 7,484
30.11.2015, 09:41 3
Можно воспользоваться тем, что Dec() всеяден:
Pascal
6
7
8
... then Dec(s[i],32)
... then Dec(s[i],80)
... then Dec(s[i]);
Добавлено через 2 минуты
Иначе, убрать лишние Ord:
Pascal
6
7
... chr(ord(s[i])-32)
... chr(ord(s[i])-80)
1
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
30.11.2015, 12:03 4
Можно ведь и проще.
Pascal
1
2
3
4
5
6
7
procedure MyUpCase(var s:string);
Const DnC = 'abcdefhhijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
      UpC = 'ABCDEFGHIJKLMNOPQRSTUVWXYZАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var i : integer;
begin
  For i:=1 to Length(s) do While Pos(s[i],DnC)>0 do s[i]:=UpC[Pos(s[i],DnC)]
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.11.2015, 12:03

В каждом слове заменить первую букву на прописную
Дана строка символов, слова разделены пробелами. В каждом слове заменить первую букву на прописную.

Процедура / функция, которая заполняет три вектора разной длины
Здравствуйте! Нужно написать процедуру / функцию, которая заполняет три вектора разной длины. До...

Процедура и функция: Описать процедуру constr (A,B,C,D), которая по матрицам A, B и C типа table1 строит следующую матрицу D типа table2
type table1=array of integer; table2=array of integer; Описать процедуру constr...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru