带参数的过程：绘制直线（pascal）

我想用pascal做一个程序，计算两个数字的和。我还希望该程序在数字2和（两个数字的）总数之间画一条线。用户必须选择要绘制的线条的大小和符号。这就是我目前的情况：

Program oef1;
Uses CRT;
VAR number1,number2,total:real;
procedure drawline(size:integer;symbol:char);
     VAR i:integer;
     begin
          FOR i:= 1 to size do write(symbol)
     end;



begin
     readln(number1,number2);

     writeln(number1:10:3);
     writeln(number2:10:3);
     drawline;
     writeln;
     total:=number1+number2;
     writeln(total:10:3);
     drawline;
     readkey();
end.

---

Drawline当前绘制的字符串为

symbol

s

size

long。它需要两个参数，例如

drawline(total, '-');

---

也许符号应该有一个readln语句，然后你可以用这个变量调用它。

显然，如果你写

drawline

来接受两个参数，你必须在调用它时将这两个参数传递给它。您没有将

char

声明在任何位置作为第二个值（

符号

参数）传递。你可以用

drawline（数字1，“*”）来称呼它写一行
*
字符。我花了一段时间才明白，但我终于明白了：p谢谢你的帮助，我个人会用“-”而不是“-”。双引号不是Pascal.Oops。已经好几年了。