Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
NKS
1 / 1 / 0
Регистрация: 18.09.2012
Сообщений: 94
1

Символьной переменной next присвоить цифру, следующую за цифрой, являющейся значением символьной переменной dig

18.09.2012, 22:42. Просмотров 1019. Ответов 3
Метки нет (Все метки)

помогите пожалуйста. Дана символьная переменная dig, содержащая некоторую цифру. Символьной переменной next присвоить цифру, следующую за цифрой, являющейся значением символьной переменной dig.( желательно учесть , что за «9» следует «0»)
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.09.2012, 22:42
Ответы с готовыми решениями:

Символьной переменной L присвоить значение TRUE, если отрицательная компонента вектора С встретится не позднее
Даны векторы А, B, C, у каждого из которых есть хотя бы одна отрицательная компонента. Символьной...

Предложение описанно символьной переменной заданной длиной. Определить, встречается ли запятая?
помогите пожалуйста с этой задачей: Предложение описанно символьной переменной заданной длиной....

Даны векторы X[5],Y[10]. Символьной переменной присвоить значение TRUE
помогите с лабой. Даны векторы X,Y. Символьной переменной присвоить значение TRUE, если число...

Символьной переменной L присвоить значение true, если отрицательная компонента вектора C встретится не позднее, чем у векторов A и B
Даны векторы A, B, C, у каждого из которых есть хотя бы одна отрицатель- ная компонента....

Переменной d присвоить первую цифру после запятой некоторой переменной x типа float
Нужно целой переменной d присвоить первую цыфру после комы некоторой переменной x типа float ...

3
CodeR
Фрилансер
3400 / 2797 / 3000
Регистрация: 08.02.2012
Сообщений: 7,456
Записей в блоге: 1
19.09.2012, 19:41 2
Pascal
1
2
3
4
5
6
7
8
9
Var dig,next:char;
Begin
    Repeat 
     write('Введите цифру 0..9: ');readln(dig);
    Until dig in ['0'..'9'];
    if dig<>'9' then next:=chr(ord(dig)+1)
     else next:=chr(ord(dig)-9);
    writeln('Полученная цифра: ',next);
End.
1
NKS
1 / 1 / 0
Регистрация: 18.09.2012
Сообщений: 94
22.09.2012, 18:41  [ТС] 3
а можно немного попроще?
0
CodeR
Фрилансер
3400 / 2797 / 3000
Регистрация: 08.02.2012
Сообщений: 7,456
Записей в блоге: 1
22.09.2012, 18:47 4
Цитата Сообщение от NKS Посмотреть сообщение
а можно немного попроще?
Pascal
1
2
3
4
5
6
Case dig of
 '1':next:='2';
 '2':next:='3'; 
  /////////
 '9':next:='0';
End;
1
22.09.2012, 18:47
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.09.2012, 18:47

Преобразование символьной переменной в целочисленную
char slovo=&quot;chislo&quot;; int chislo=12345; Как сделать, чтобы символы &quot;chislo&quot; воспринималось как...

Ввод значения символьной переменной
Здравствуйте. Подскажите пожалуйста, как в ЯВУ C осуществить ввод символа. Я пытался это сделать...

Динамическое имя символьной переменной в цикле
Здраствуйте! В ходе обобщения решения одной задачи возникла необходимость в создании некоторого...


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

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

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