Pascal中如何用特殊格式输入数据?

在pascal中只能先将其整个作为字符串读入，在将其依据串的格式分解出其中的数据赋给x、y。

变量名表中，变量可以是（无数个）个，再输入数值型数据时，数据间用（“，”）分隔。输入字符型数据时，必须（换行（readln））输入，且输入数据要和变量类型(一致)。输入数据的个数不能少于（一个）。否则系统一直处于（待命）状态。当输入数据大于变量表中变量个数时，则read格式中对于多出的数据...

9、输入一个加减式,根据输入的式子,判断运算符号,求出结果。例如从键盘上输入:+,5 , 3,则输出为8;例如输入:-,10 , 6,则输出为5。10、输入一个1000以内的任意一个数,如果这个数中至少有一位数字是5,则输出“yes”,否则输出“no”。11、输入一个三位的数,判断该数是否为水仙花数,是则输出“flower”。

76行错误，应为： if a^.zhi >0 then 读数语句：主程序：readln(n); {用在createfifo(a); 表示要n组数} readln(n); {用在createfifo(b);同理 } 子过程中：readln(p^.xi,p^.zhi); {读第一组数} for i:=1 to n-1 do {读n-1组数} begin new(p^.nxt);p:=p^.nxt;{下一...

她最多能买多少只签字笔呢。输入输出格式 输入格式：输入的数据，在一行内，包括两个整数，依次表示a和b，a<=10000,b<=9。输出格式：输出一个整数，表示小玉最多能买多少只签字笔。输入输出样例 输入样例#1：10 3 输出样例#1：5 可以到www.luogu.org上找，这个有很多OI选手都在用 ...

FreePascal(Pascal)题目输入格式:两个正整数,分别表示a和b(1≦a≦b≦1000000)输出格式:一个整数,从a到b之间(包含a和b)的所有整数的乘积的末尾的零的个数「例如」a=1;b=7... Free Pascal(Pascal)题目输入格式:两个正整数,分别表示a和b(1≦a≦b≦1000000)输出格式:一个整数,从a到b之间(包含a和b)的...

晕，var a,b,c,d:char;e:integer;begin read(a,b,c,d);writeln(a,b,c,d);read(e);writeln(e);end;

assign(input,'**.扩展名');assign(output,'**.扩展名');reset(input);rewrite(output);//程序 close(input);close(output);这是标准情况，对于某些题目不需要读入，或是其他特殊情况，可以在这6句话上增减。注意一改就是3句，因为关于读入有3句，输出也有3句，不要光改部分，否则会运行时错误...

输入语句为：Read(a,b);Read(x,y);Read(z);则输入格式为：a=1 b=9 x=2 y=4 z=6 若输入语句为Readln(a,b);Readln(x,y);Readln(z);则输入格式为：a=1 b=9 x=0 y=0 z=0 若输入语句为Read(a,b,x,y,z);则输入格式为：a=1 b=9 x=2 y=4 z=6 若输入语句为Readln(...

var n1,n2:real;c:char;s:string;p:integer;begin read(c);s:=c;read(c);while c<>'*' do begin s:=s+c;read(c);end;val(s,n1,p);read(c);s:=c;read(c);while c<>'=' do begin s:=s+c;read(c);end;val(s,n2,p);write(n1*n2);end....