Как вывести на консоль введённый символ?

@VlTag · Регистрация: 30.04.2012

Author24 — интернет-сервис помощи студентам

Всем добрый день!
Написал учебный пример для ввода данных трёх типов: integer, real, char .
Код компиляцию проходит. Но при исполнении программы, упорно не выводится на консоль введённый символ.
Не могу разобраться, что надо изменить в исходном коде. Пробовал этот код в трёх программах-средах. Везде НЕ ВЫВОДИТСЯ коварный введённый символ.
Прошу продвинутых IT-специалистов оказать помощь для работы со школьниками.

Pascal

{LEARN04.PAS}
{Use of variable three types: integer, real, char}
{Data input via the keyboard}
Program LEARN04;
Uses
DOS, CRT;
Var
A : integer;
B : real;
Res : real;
Simv : char;
q : char;
Begin
ClrScr;
Writeln;
Writeln('Use of variable three types: integer, real, char');
Writeln('Data input via the keyboard');
Writeln;
Writeln;
Writeln('Input integer A:');
Read(A);
Writeln;
Writeln('Input real B:');
Read(B);
Res := A/B;
Writeln;
Writeln('        Res=',Res,';');
Writeln;
Writeln('Input char Simvol F:');
Readln(Simv);                       {Only !!!   Readln !!!}
Writeln('        Simvol=',Simv);
Writeln;
Writeln;
Write('For stop program, press the key [Enter]:');
Readln(q);
End.

@ZX Spectrum-128 · 30.07.2017, 08:23

Pascal

{LEARN04.PAS}
{Use of variable three types: integer, real, char}
{Data input via the keyboard}
program LEARN04;
 
Uses
 CRT;
var
  A: integer;
  B: real;
  Res: real;
  Simv: char;
  q: char;
 
begin
  ClrScr;
  Writeln;
  Writeln('Use of variable three types: integer, real, char');
  Writeln('Data input via the keyboard');
  Writeln;
  Writeln;
  Writeln('Input integer A:');
  Readln(A);
  Writeln;
  Writeln('Input real B:');
  Readln(B);
  Res := A / B;
  Writeln;
  Writeln('        Res=', Res, ';');
  Writeln;
  Writeln('Input char Simvol F:');
  Readln(Simv);                       {Only !!!   Readln !!!}
  Writeln('        Simvol=', Simv);
  Writeln;
  Writeln;
  Write('For stop program, press the key [Enter]:');
  Readln(q);
end.

@bormant · 30.07.2017, 10:19

Небольшое пояснение: после ввода по Read в строке 28 чтение символа в строке 34 приводило к считыванию символа завершения строки, для windows/dos это символ с кодом 13 - первый в паре #13#10, для *nix - это #10. До введенного пользователем символа дело не доходило.

Другой вариант исправления - добавить Readln; перед строкой 34.

@VlTag · 30.07.2017, 11:11 **[ТС]**

Уважаемые господа! Спасибо за рекомендации. Но пока не получается нормальной работы кода.

Вот очень интересный момент!
Я этот учебный пример написал и на языке C (мне нужно написать две методички с одинаковыми примерами, но решения должны быть на Pascal и на C). Увы, там (в коде на языке C) также проявилась эта проблема. Я задал вопрос на нашем форуме в разделе "C для начинающих". Можно посмотреть.
К моей великой радости, один очень грамотный программист дал рекомендацию по использованию функции
fflush(stdin);
Я эту функцию включил в исходный код. И сразу код безукоризненно заработал!
Может быть аналогичный выход есть и для языка Pascal?

@Puporev · 30.07.2017, 11:59

Можно так написать.

Pascal

Writeln('Input integer A:');
Read(A);
Writeln;
Writeln('Input real B:');
Read(B);
Res := A/B;
Writeln;
Writeln('        Res=',Res,';');
Writeln;
Writeln('Input char Simvol F:');
Simv:=readkey;                       {Only !!!   Readln !!!}
Writeln('        Simvol=',Simv);
Writeln;
Writeln;
Write('For stop program, press the key [Enter]:');
readln;
Readln
End.

@bormant · 30.07.2017, 16:57

потоковый ввод из стандартного файла ввода (input) при помощи Read(Ln) и чтение клавиатуры (ReadKey) -- вещи совершенно разные, если программа запущена с перенаправлением входного потока, то ReadKey сослужит плохую службу, остановив выполнение до нажатия клавиши на клавиатуре. Не стоит смешивать одно с другим.

@VlTag · 31.07.2017, 03:30 **[ТС]**

Уважаемый Puporev!
Я выполнил Вашу рекомендацию. Код стал ОТЛИЧНО работать! Самое большое спасибо!
Привожу доработанный код.

Pascal

{LEARN04.PAS}
{Use of variable three types: int, real, char}
{Data input via the keyboard}
Program LEARN04;
Uses
DOS, CRT;
Var
A : integer;
B : real;
Res : real;
Simb:char;
q : char;
Begin
ClrScr;
Writeln;
Writeln('Use of variable three types: int, real, char');
Writeln('Data input via the keyboard');
Writeln;
Writeln;
Writeln('Input intrger A:');
Read(A);
Writeln;
Writeln('Input real B:');
Read(B);
Res := A/B;
Writeln;
Writeln('        Res=',Res,';');
Writeln;
Writeln('Input char Simbol (letter): ');
Simb:=readkey;
Writeln(Simb);
Writeln;    
Writeln('        Simbol=',Simb,';');
Writeln;
Writeln;
Write('For stop program, press the key [Enter]:');
Readln(q);
End.

Добавлено через 4 часа 30 минут
Для всех. Небольшое уточнение.
Я проверил работу кода в разных программах-средах. Хорошо всё работает в TURBO PASCAL 7.1 и в TMT v.3.50 . Не работает в Free Pascal v.2.6.0 . Для работы со школьниками мне вполне достаточно программы-среды TURBO PASCAL 7.1 .

@bormant Модератор 7769 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,077 Записей в блоге: 1
	30.07.2017, 10:19	3
	Небольшое пояснение: после ввода по Read в строке 28 чтение символа в строке 34 приводило к считыванию символа завершения строки, для windows/dos это символ с кодом 13 - первый в паре #13#10, для *nix - это #10. До введенного пользователем символа дело не доходило. Другой вариант исправления - добавить Readln; перед строкой 34. 0

@VlTag 7 / 7 / 2 Регистрация: 30.04.2012 Сообщений: 186
	30.07.2017, 11:11 [ТС]	4
	Уважаемые господа! Спасибо за рекомендации. Но пока не получается нормальной работы кода. Вот очень интересный момент! Я этот учебный пример написал и на языке C (мне нужно написать две методички с одинаковыми примерами, но решения должны быть на Pascal и на C). Увы, там (в коде на языке C) также проявилась эта проблема. Я задал вопрос на нашем форуме в разделе "C для начинающих". Можно посмотреть. К моей великой радости, один очень грамотный программист дал рекомендацию по использованию функции fflush(stdin); Я эту функцию включил в исходный код. И сразу код безукоризненно заработал! Может быть аналогичный выход есть и для языка Pascal? 0

@bormant Модератор 7769 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,077 Записей в блоге: 1
	30.07.2017, 16:57	6
	потоковый ввод из стандартного файла ввода (input) при помощи Read(Ln) и чтение клавиатуры (ReadKey) -- вещи совершенно разные, если программа запущена с перенаправлением входного потока, то ReadKey сослужит плохую службу, остановив выполнение до нажатия клавиши на клавиатуре. Не стоит смешивать одно с другим. 1

	31.07.2017, 03:30