Untitled
unknown
plain_text
a year ago
1.4 kB
4
Indexable
program DrawNumber; var inputNumber, height, width, i, j, k: integer; procedure DrawDigit(digit: integer); var digitArray: array[0..9, 0..4] of string = (('* * *', '* *', '* *', '* *', '* * *'), // 0 (' * ', ' ** ', ' * ', ' * ', ' ***'), // 1 ('* * *', ' *', '* * *', '* ', '* * *'), // 2 ('* * *', ' *', '* * *', ' *', '* * *'), // 3 ('* *', '* *', '* * *', ' *', ' *'), // 4 ('* * *', '* ', '* * *', ' *', '* * *'), // 5 ('* * *', '* ', '* * *', '* *', '* * *'), // 6 ('* * *', ' *', ' * ', ' * ', ' * '), // 7 ('* * *', '* *', '* * *', '* *', '* * *'), // 8 ('* * *', '* *', '* * *', ' *', '* * *')); // 9 var row: integer; begin for row := 0 to 4 do begin for k := 1 to width do begin for j := 1 to length(IntToStr(inputNumber)) do begin write(digitArray[StrToInt(IntToStr(inputNumber)[j]), row]); if j <> length(IntToStr(inputNumber)) then write(' ' : length('* * *')); end; writeln; end; end; end; begin // Ввод числа write('Введите цифру: '); readln(inputNumber); // Ввод высоты write('Введите высоту: '); readln(height); // Ввод ширины write('Введите ширину: '); readln(width); // Отображение числа DrawDigit(inputNumber); end.
Editor is loading...
Leave a Comment