Викиучебник

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

Интерактивная навигация по истории
← Предыдущая правкаСледующая правка →
Содержимое удалено Содержимое добавлено
ВизуальныйВики-текст
Нет описания правки
Нет описания правки
Строка 26:
symbol: string;
grid: boolean;
spreadsheet_max_size_Y_read,spreadsheet_max_size_X_read,Max_value_in_column, SHIFT, current_spreadsheet_column_size: integer;
current_spreadsheet_ceil_string_coordinate: integer;
current_spreadsheet_ceil_column_coordinate:integer ;
Строка 72:
end;}
 
procedurefunction Console_spreadsheet_set_size_for_X_axis(spreadsheet_max_size_X: integer):integer;
begin
return spreadsheet_max_size_X;
end;
 
procedurefunction Console_spreadsheet_set_size_for_Y_axis(spreadsheet_max_size_Y: integer):integer;
begin
return spreadsheet_max_size_Y;
end;
 
Строка 84 ⟶ 86 :
if (current_spreadsheet_ceil_string_coordinate > spreadsheet_max_size_X) or (current_spreadsheet_ceil_column_coordinate > spreadsheet_max_size_Y) then
begin
WriteLn('Values coordinates ',current_spreadsheet_ceil_string_coordinate,current_spreadsheet_ceil_column_coordinate);
WriteLn('Values max coordinates ',spreadsheet_max_size_X,spreadsheet_max_size_Y);
 
CRT.TextBackground(white); CRT.TextColor(Black); WriteLn('The cell is outside the table.');
end
Строка 99 ⟶ 104 :
for var start2 := 1 to spreadsheet_max_size_Y do
begin
if (Length(string_spreadsheet[current_spreadsheet_ceil_string_coordinate, current_spreadsheet_ceil_column_coordinate]) > Max_value_in_column) then begin Max_value_in_column := length(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;
end;
Max_values_in_spreadsheet[current_spreadsheet_ceil_string_coordinate] := Max_value_in_column;
Строка 108 ⟶ 113 :
current_spreadsheet_ceil_string_coordinate := 0;
current_spreadsheet_ceil_column_coordinate := 0;
for var start := 1 to spreadsheet_max_size_Y do
begin
// тут остановился
for var start2 := 1 to spreadsheet_max_size_X do
begin// здесь
// назначение цвета для вывода значния ячейки
Строка 120 ⟶ 125 :
if (current_spreadsheet_text_color = 'yellow') then CRT.TextColor(yellow);
if (current_spreadsheet_text_color = 'green') then CRT.TextColor(green);
//if (current_spreadsheet_text_color = 'orange') then CRT.TextColor(orange);
if (current_spreadsheet_text_color = 'black') then CRT.TextColor(black);
if (current_spreadsheet_text_color = 'white') then CRT.TextColor(white);
Строка 130 ⟶ 135 :
// вывод пробелов до столбца
for var start3 := 1 to Max_values_in_spreadsheet[current_spreadsheet_ceil_string_coordinate] do
begin
Write(' ');
Строка 141 ⟶ 146 :
if (current_spreadsheet_border_color = 'yellow') then CRT.TextColor(yellow);
if (current_spreadsheet_border_color = 'green') then CRT.TextColor(green);
//if (current_spreadsheet_border_color = 'orange') then CRT.TextColor(orange);
if (current_spreadsheet_border_color = 'black') then CRT.TextColor(black);
if (current_spreadsheet_border_color = 'white') then CRT.TextColor(white);
Строка 149 ⟶ 154 :
end;
// вывод линейки
for var start3 := 1 to spreadsheet_max_size_X do
begin
for var start4 := 1 to Max_values_in_spreadsheet[current_spreadsheet_ceil_string_coordinate] do
begin
Write('-');
Строка 172 ⟶ 177 :
Console_spreadsheet_set_size_for_Y_axis(10);
Console_spreadsheet_set_size_for_Y_axis(5);
Console_spreadsheet_set_ceil_content(0,2,'Руэээ');
end.
</source>
Источник — https://ru.wikibooks.org/wiki/Console_spreadsheet_для_PascalABC.Net