Викиучебник

Console spreadsheet для PascalABC.Net: различия между версиями

Интерактивная навигация по истории
← Предыдущая правкаСледующая правка →
Содержимое удалено Содержимое добавлено
ВизуальныйВики-текст
Нет описания правки
Нет описания правки
Строка 14:
current_spreadsheet_ceil_content,current_spreadsheet_border_color,current_spreadsheet_text_color:string;
string_spreadsheet:array[0..80,0..80] of string;
int_spreadsheetMax_values_in_spreadsheet:array[0..80,0..80] of string;
spreadsheet_type:string;
procedure Console_spreadsheet_set_baxkground(current_spreadsheet_background_color:string);
Строка 80:
Begin
If (length(string_spreadsheet[current_X_ceil_adress,current_Y_ceil_adress])>Max_value_in column) then
Begin Max_value_in_columnMax_values_in_spreadsheet[current_X_ceil_adress]:=string_spreadsheet[current_X_ceil_adress,current_Y_ceil_adress]; current_Y_ceil_adress:=current_Y_ceil_adress+1; end;
End;
current_X_ceil_adress:=current_X_ceil_adress+1;
Источник — https://ru.wikibooks.org/wiki/Console_spreadsheet_для_PascalABC.Net