Процедура с параметрами: Нарисуйте строку (pascal)

Я хочу сделать программу на pascal, которая вычисляет сумму из двух чисел. Я также хочу, чтобы программа рисовала линию между числом 2 и суммой (из двух чисел). Пользователь должен выбрать размер и символ линии, он хочет рисовать. Это то, что я есть в данный момент:Процедура с параметрами: Нарисуйте строку (pascal)

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.

источник

2014-12-26 petie

Очевидно, что если вы написали 'drawline', чтобы принять два параметра, вам необходимо передать эти два параметра, когда он вызывается. У вас нет символа 'char', объявленного в любом месте для передачи в качестве второго значения (параметр' symbol'). Вы бы назвали его с помощью drawline (number1, '*'); 'например, написать строку символов' * '. –

Мне потребовалось некоторое время, чтобы понять, но я, наконец, получил его: p Спасибо за помощь – petie

-1

DrawLine в настоящее время рисует строку symbol s size долго. Это требует двух параметров, например,

drawline(total, '-');

Может быть, должно быть ReadLn заявление для символа, то вы могли бы назвать его с этой переменной.

источник

2014-12-26 19:02:07 xpda

Лично я бы использовал '-', а не "-". Двойные кавычки не являются Паскалем. –

К сожалению. Прошло уже несколько лет. – xpda

Процедура с параметрами: Нарисуйте строку (pascal)

ответ

Смежные вопросы