Строки: вывести предыдущий и следующий символы (в кодовой таблице) для заданного символа

@le7 · Регистрация: 13.12.2016

Дан символ С
Вывести два символа первый из которых предшествует символу С в кодовой таблице, второй-следует за символом С

@MorganX · 07.01.2017, 18:07

Pascal

var next,prev: char;
begin
next:=char(ord('c')+1);
prev:=char(ord('c')-1);
writeln(next,' ',prev);
end.

Kodzaev · 07.01.2017, 18:44

MorganX, можно сделать это проще

Pascal

var
  c: char;
  
begin
  Write('Введите символ: '); Read(c);
  WriteLn('Предшествующий: ', Pred(c));
  WriteLn('Следующий: ', Succ(c));
end.

Да и имеется в виду, скорее всего, переменная C, а не символ 'C'. Так что пользователь сам должен ввести нужный символ.

@MorganX · 07.01.2017, 18:51

Сообщение от le7

Дан символ С

Писал исходя из условия.

@le7 · 07.01.2017, 19:08 **[ТС]**

Kodzaev, благодарю, вы правильно поняли, условие не корректно сформулировано

Добавлено через 5 минут
Kodzaev, не могли бы вы пожалуйста решить и другие задачи в моих темах
Если есть время и возможности

@le7 0 / 0 / 0 Регистрация: 13.12.2016 Сообщений: 24
		1
	Строки: вывести предыдущий и следующий символы (в кодовой таблице) для заданного символа 07.01.2017, 16:51. Показов 4544. Ответов 4 Метки кодовая таблица, с, символы, Строки (Все метки) Дан символ С Вывести два символа первый из которых предшествует символу С в кодовой таблице, второй-следует за символом С 0

@MorganX 2 / 2 / 2 Регистрация: 22.11.2016 Сообщений: 18
	07.01.2017, 18:51	4
	Сообщение от le7 Дан символ С Писал исходя из условия. 0

@le7 0 / 0 / 0 Регистрация: 13.12.2016 Сообщений: 24
	07.01.2017, 19:08 [ТС]	5
	Kodzaev, благодарю, вы правильно поняли, условие не корректно сформулировано Добавлено через 5 минут Kodzaev, не могли бы вы пожалуйста решить и другие задачи в моих темах Если есть время и возможности 0

Опции темы

Строки: вывести предыдущий и следующий символы (в кодовой таблице) для заданного символа

Решение