Readkey и Readln

@Sylph · Регистрация: 19.06.2009

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

Доброго времени суток. Сразу вопрос: можно ли как-то связать Readln и Readkey? Пользователю нужно ввести три цифры, а потом по нажатии пробела перейти к следующему блоку ввода цифр. Как-то при этом надо избавиться от нажатия клавиши 'Enter'.

Pascal

var A, B, C, D, E, F : integer;
     probel : char;
 
Begin
writeln('A, B, C');
readln(A, B, C, probel);
 
probel:=readkey;
 
if probel=#32 then
writeln('D, E, F');
readln(D, E, F);
 
...
 
End;

Это не вариант, к сожалению.

@Puporev · 25.07.2011, 12:13

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

Пользователю нужно ввести три цифры,

Именно цифры [0..9], а не числа?

@Sylph · 25.07.2011, 12:15 **[ТС]**

А. Ну да, числа, прошу прощения.

@Puporev · 25.07.2011, 12:42

А в чем суть задачи? Просто это можно сделать по разному, не хотелось бы лишнее писать...

@Sylph · 25.07.2011, 12:57 **[ТС]**

Из файла необходимо считать значения. Потом ввести 3 новых значения (A, B, C) через пробел, а после их ввода, после нажатия пробела после С , начать вводить следующий блок значений (D, E, F). После нажатия пробела, следующего за вводом этого блока, необходимо, чтобы произошли вычисления по формулам, округление результатов и запись этих результатов в файл. Далее процедура ввода D, E, F должна повториться. А если после ввода D, E, F нажать Ввод, то должен появится запрос на присвоение файлу имени.

Большая часть этого мной уже сделана и загвоздка только в этом самом пробеле.

@Puporev · 25.07.2011, 13:25

Как-то так можно.

Pascal

uses crt;
var k:integer;
procedure Vvod(var x:integer);
var c:char;
    s:string;
    cd:integer;
begin
s:='';
repeat
c:=readkey;
if c in ['0'..'9',#32] then write(c);
if c in ['0'..'9'] then s:=s+c;
if c=#32 then inc(k);
until c=#32;
val(s,x,cd);
if k mod 3=0 then writeln;
end;
var a,b,c,d,e,f:integer;
    w:char;
begin
clrscr;
k:=0;
repeat
writeln('Введите через пробел числа A,B,C');
Vvod(a);
Vvod(b);
Vvod(c);
writeln('Введите через пробел числа D,E,F');
Vvod(d);
Vvod(e);
Vvod(f);
{что-то делаем}
w:=readkey;
until w=#13;
writeln('Введите имя файла');
{продолжаем программу}
readln
end.

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.07.2011, 12:13	2
	Сообщение от Sylph Пользователю нужно ввести три цифры, Именно цифры [0..9], а не числа? 0

@Sylph 1 / 1 / 0 Регистрация: 19.06.2009 Сообщений: 18
	25.07.2011, 12:15 [ТС]	3
	А. Ну да, числа, прошу прощения. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.07.2011, 12:42	4
	А в чем суть задачи? Просто это можно сделать по разному, не хотелось бы лишнее писать... 0

@Sylph 1 / 1 / 0 Регистрация: 19.06.2009 Сообщений: 18
	25.07.2011, 12:57 [ТС]	5
	Из файла необходимо считать значения. Потом ввести 3 новых значения (A, B, C) через пробел, а после их ввода, после нажатия пробела после С , начать вводить следующий блок значений (D, E, F). После нажатия пробела, следующего за вводом этого блока, необходимо, чтобы произошли вычисления по формулам, округление результатов и запись этих результатов в файл. Далее процедура ввода D, E, F должна повториться. А если после ввода D, E, F нажать Ввод, то должен появится запрос на присвоение файлу имени. Большая часть этого мной уже сделана и загвоздка только в этом самом пробеле. 0

	25.07.2011, 13:25