Люди помогите что-то глючит, не могу понять что
использую read(s); где s:string
read(ch); где ch:char;
а он это игнорирует!!!!
То есть ваще ничего не считывает :
например
...
procedure test(a:integer);;
begin
read(s);
read(a);
end;
...
А ты приведи то, ЧТО ты вводишь... Кроме этого, твой кусок кода НЕ скомпилируется, а телепатов здесь нет... Кто знает, что ты там натворил...
удалим, не бойся =)
я его скрою, чтобы только модеры могли его видеть
кстати, впредь такой объемный код приаттачивай, ок ?
Окей
Добавлено (через час):
Ого что никто ничего не придумал?
кажется, ты читаешь read`ом в char? вообще-то в char читают Readkey`ем...
а со стрингом что?
откуда читаешь?
и вообще, не поняла...
а-это char или integer?
хз.. по идее стринг должен нормально читаться read`ом...
для управления лучше делать так:
стринг считывается с процедуре создания формы.
Не стал копаться в коде, но мне кажется, что ты хочешь ипользовать read, не правильным образом, проверь вот это :
uses crt;
var
ch : char;
s : string;
begin
clrscr;
read(ch,s); {pascal}
writeln(s); {ascal}
writeln(ch);{p}
readln;
end.
program f_and_w;
uses CRT;
var f,w:string;
begin
ClrScr;
Write ('1:');
Read (f);
Write (' 2:');
ReadLn (w);
Write (f,' ',w);
ReadLn;
end.