0 / 0 / 1
Регистрация: 16.02.2013
Сообщений: 48
1

Изменить регистр символа

15.08.2013, 00:24. Показов 1291. Ответов 2
Метки нет (Все метки)

Почему не работает вот этот код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  a, b, c, d:char;
begin
  read (a);
  b:=('A');
  c:=('Z');
  d:=('a');
  if (ord(b)<Ord(a)) and (ord(a)<ord(c)) then
  a:=(ord(a))-(ord(b)-ord(d));
  write (a)
  else
  a:=(ord(a))+(ord(b)-ord(d));
  write (a);
end.
Заранее спасибо
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.08.2013, 00:24
Ответы с готовыми решениями:

Перевод символа в верхний регистр
Формат входных данных Задан один символ c. Формат выходных данных Если символ является...

Изменить регистр букв введенных слов
Пользователь вводит с клавиатуры несколько слов с символами в разных регистрах, разделенных...

Ввод строки S и символа С. Результат: число повторений символа С и порядковые позиции вхождения этого символа в строку
Нужно составить программу, в которой пользователь вводит вручную строку S и символ C. Результатом...

Изменить регистр символа
Измените регистр символа, если он был латинской буквой: сделайте его заглавным, если он был...

2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31153 / 20361 / 7929
Регистрация: 22.10.2011
Сообщений: 35,294
Записей в блоге: 6
15.08.2013, 01:34 2
Потому что для начала программа должна откомпилироваться, и только потом она сможет начать работать. Вот эта:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  a, b, c, d:char;
begin
  read (a);
  b:=('A');
  c:=('Z');
  d:=('a');
  if (ord(b)<Ord(a)) and (ord(a)<ord(c)) then
  begin
     a:=chr((ord(a))-(ord(b)-ord(d)));
     write (a)
  end
  else
  begin
     a:=chr((ord(a))+(ord(b)-ord(d)));
     write (a);
  end;
end.
и компилируется и работает.Сравнивай, и смотри, где у тебя было неправильно...

Хотя по хорошему это делается в 2 строки кода. После чего работает как с кириллицей, так и с латиницей. Но тебе видней, надо кучу строк - пускай будет куча строк...
0
0 / 0 / 1
Регистрация: 16.02.2013
Сообщений: 48
15.08.2013, 19:09  [ТС] 3
Цитата Сообщение от UI Посмотреть сообщение
Потому что для начала программа должна откомпилироваться, и только потом она сможет начать работать. Вот эта:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  a, b, c, d:char;
begin
  read (a);
  b:=('A');
  c:=('Z');
  d:=('a');
  if (ord(b)<Ord(a)) and (ord(a)<ord(c)) then
  begin
     a:=chr((ord(a))-(ord(b)-ord(d)));
     write (a)
  end
  else
  begin
     a:=chr((ord(a))+(ord(b)-ord(d)));
     write (a);
  end;
end.
и компилируется и работает.Сравнивай, и смотри, где у тебя было неправильно...

Хотя по хорошему это делается в 2 строки кода. После чего работает как с кириллицей, так и с латиницей. Но тебе видней, надо кучу строк - пускай будет куча строк...
О, подскажите, как в 2 строки кода, я просто только начинаю программированием заниматься
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.08.2013, 19:09

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Изменить регистр символа
Измените регистр символа, если он был латинской буквой: сделайте его заглавным, если он был...

Изменить регистр строки, если она начинается с символа А
Здравствуйте! Нужна помощь в написании программы которая будет менять регистр строки если она...

Меняем регистр за 62 символа
Здравствуйте, необходимо написать программу, в 62 символа, которая меняет регистр букв, кроме...

Верхний регистр символа
есть ли какая-нибудь команда, которая переводит только один выбранный символ в верхний регистр....


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

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

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