Console spreadsheet для PascalABC.Net: различия между версиями
Содержимое удалено Содержимое добавлено
Нет описания правки |
Нет описания правки |
||
Строка 71:
string_spreadsheet[current_spreadsheet_ceil_string_coordinate,current_spreadsheet_ceil_column_coordinate]:=current_spreadsheet_ceil_content;
End;
current_spreadsheet_ceil_string_coordinate:=0;
current_spreadsheet_ceil_column_coordinate:=0;
// сбор макс. значений таблицы в столбцах
// begin
For start:=1 to spreadsheet_max_size_X do
Begin
Begin
If (string_spreadsheet[current_spreadsheet_ceil_string_coordinate,current_spreadsheet_ceil_column_coordinate]>Max_value_in column) then begin Max_value_in column:=string_spreadsheet[current_spreadsheet_ceil_string_coordinate,current_spreadsheet_ceil_column_coordinate]; current_spreadsheet_ceil_column_coordinate:=current_spreadsheet_ceil_column_coordinate+1; end else begin current_spreadsheet_ceil_column_coordinate:=current_spreadsheet_ceil_column_coordinate+1; end;
for Start:=2 to spreadsheet_max_size_Y do▼
End
Max_values_in_spreadsheet[current_spreadsheet_ceil_string_coordinate]:=Max_value_in column;
current_spreadsheet_ceil_string_coordinate:=current_spreadsheet_ceil_string_coordinate+1;
End;
// end
// вывод таблицы
Begin
// тут остановился
For start2:=1 to spreadsheet_max_size_X do
Begin // здесь
// назначение цвета для вывода значния ячейки
// вывод пробелов до столбца
// установка цвета столбца
Write('|');
End;
// Переход к следующей строке
End;
End;
end.
|