关于pascal中定位读入,转换的问题?在线等!!

program lx;var x:string;a:array[1..255] of integer;n,y,i:integer;begin read(x);n:=length(x);for i:=1 to n do val(x[i],a[i],y);for i:=1 to n do write(a[i],' ');writeln;end.

在Turbo Pascal语言中，文件是由一系列基本数据元素排列而成的，这些数据元素的数据类型是相同的，但通常有不同的取值。文件的基本数据元素的数据类型称为文件的基类型。文件中所含的数据元素的个数称为文件的长度。文件的长度和文件所占有的字节数可能不同。文件中元素的个数即文件的长度不是固定不变的...

用read读入原则是当前行找不到可读的东西换行 可是读入字符可以读入为空 So 很简单，你不是没执行read 而是read不断的读为空 改为readln读一次换一行就好了

(2)文件中的数据可以为多个应用程序所共享。(3)文件中的数据可以多次重复使用。(4)文件中的存放数据的数量在理论上没有限制。在Turbo Pascal语言中，文件是由一系列基本数据元素排列而成的，这些数据元素的数据类型是相同的，但通常有不同的取值。文件的基本数据元素的数据类型称为文件的基类型。文件中...

input/output -- 标准的控制台 I/O， 不要去重定向应用。 （一般教PSACAL 的不会去讲这方面的概念）。磁盘文件的 I/O， 用 assign()， reset() / rewrite() 来操作，无非是多写了几行代码而已。问题主要是在机考上， 学生为适应它而不得不这样用。如果现在要求你把输出（多行显示）同时又...

如果是file 读取 ifstream infile;infile.open("xxxx.xxx"); //open file char ch,ch2;infile.get(ch); //将第一个字节存入ch infile.get(ch2); //将第二个字节存入ch2 //这样一个中文字符就被拆开成了两个ASCII码分别存入了ch 和ch2。如果是直接输入也是一样的。

你的读入还有个问题就是在读'Y'和'N'的时候,如果用char类型的话,'Y'和'N'中间的空格会被读入为字符,这个也是这道题容易出错的地方,这道题里面的内容不难,不过读入很难~~~另外一个难点就是有判重的要求~~~我把你的读入改成这样应该能过:for i:=1 to n do begin name:='';repeat read...

那就依题意而定啦 题目简单的话甚至只需要一个字符变量 while not eof do begin read(ch);...end;若找不到这样的算法那就开字符数组或AnsiString吧 AnsiString 是动态存储的，所以最大可以达到你的内存总大小，2000完全没问题。

楼上几位写的都不对 会出错的 尤其第一个回答 根本不能那样读入 var s,s1,s2:string;i,j,t:integer;x,y:real;ch:char;begin readln(s);for i:=1 to length(s) do {确定运算符的位置} begin s[i]:=ch;if (ch='+')or(ch='-')or(ch='*')or(ch='/') then begin t:=i;...

用readln