Question

Pascal的if语句问题

我是一个初学者 像做一个倒写字符串的程序 请帮我看看如何修改？
Program sss;
var
a,b,c,d,e,f:char;
Num:longint;
begin
write('How many chars does the charline have?');
readln(num);
if num=2
then begin
readln(a,b);
writeln(b,a);
else begin
end;
if num=3
then begin
readln(a,b,c);
writeln(c,b,a)
else begin
end;
if num=4
then begin
readln(a,b,c,d);
writeln(d,c,b,a)
else begin
end;
if num=5
then begin
readln(a,b,c,d,e);
writeln(e,d,c,b,a)
else begin
end;
if num=6
then begin
readln(a,b,c,d,e,f);
writeln(f,e,d,c,b,a)
else begin
end;
readln
end.

Answer 1

1.要确认A能不能被B整除，只要A除B的余数=0，那么他就能被B整除。否则就输出A，除号，B，等号，商（用整除函数DIV），再用A-B*商。
程序：
Var
a,b:integer;
Begin
Readln(a,b);
If a mod b=0 then
Write(a,'/',b,'=',a div b)
Else
Write(a,'/',b,'=',a div b,'......',a-b*(a div b));
End.
3.先读入这三个数，然后分别看看是不是偶数，是就偶数计数器加1，然后统计。
程序：
Var
a,b,c:integer;
a1,b1,c1:boolean;
Begin
Readln(a,b,c);
a1:=a mod 2=0;
b1:=b mod 2=0;
c1:=c mod 2=0;
If ((a1 xor b1) and c1) or ((a1 xor c1) and b1) or ((b1 xor c1) and a1)then
Write('YES')
Else
Write('NO');
End.
4.圆内的范围是(2,2),圆上的范围是(2,1)或（1，2），圆外就是除了这两种情况。
Var
i,j:integer;
Begin
Readln(i,j);
If (i=2) and (j=2) then
Write('In')
Else
If ((i=1) and (j=2))or((i=2)and(j=1))then
Write('On')
Else
Write('out');
End.
先做这么多，楼主先等等，谢。望采纳

Answer 2

1.要确认A能不能被B整除，只要A除B的余数=0，那么他就能被B整除。否则就输出A，除号，B，等号，商（用整除函数DIV），再用A-B*商。
程序：
Var
a,b:integer;
Begin
Readln(a,b);
If a mod b=0 then
Write(a,'/',b,'=',a div b)
Else
Write(a,'/',b,'=',a div b,'......',a-b*(a div b));
End.
3.先读入这三个数，然后分别看看是不是偶数，是就偶数计数器加1，然后统计。
程序：
Var
a,b,c:integer;
a1,b1,c1:boolean;
Begin
Readln(a,b,c);
a1:=a mod 2=0;
b1:=b mod 2=0;
c1:=c mod 2=0;
If ((a1 xor b1) and c1) or ((a1 xor c1) and b1) or ((b1 xor c1) and a1)then
Write('YES')
Else
Write('NO');
End.
4.圆内的范围是(2,2),圆上的范围是(2,1)或（1，2），圆外就是除了这两种情况。
Var
i,j:integer;
Begin
Readln(i,j);
If (i=2) and (j=2) then
Write('In')
Else
If ((i=1) and (j=2))or((i=2)and(j=1))then
Write('On')
Else
Write('out');
End.
先做这么多，楼主先等等，谢。望采纳

Answer 3

基本上看来是没有问题的，但是这个程序最多只能做2-6个数字呀...如果采用for语句就可以输入很多数字啦~~