Настройка таблицы StringGrid1
в окне Инспектор объектов
1. Убрать заголовки строк
FixedCols = 0
2. Убрать заголовки колонок
FixedRows = 0
3. Установить количество колонок
ColCount = 5
4. Установить количество строк
RowCount = 1
5. Установить ширину всех колонок
DefaultColWidth = 30
6. Установить высоту всех строк
DefaultRowHeight = 30
где
x - вещественное число или переменная вещественного типа,
ffFixed - константа, вписывается без изменений,
W - ширина поля, отводимого под всё число, если W = 0,
то ширина определяется автоматически по длине числа,
D - количество цифр в дробной части.
Пример
x := 2.718291829;
Label1.Caption := FloatToStrF(x, ffFixed, 0, 3);
Дает вывод: 2,718
Об отметках
Основные упражнения не отмечены никакими специальными знаками, их выполнения достаточно для удовлетворительной оценки. Дополнительные упражнения отмечены "звездочками", их выполнение необходимо для получения повышенной оценки.
"5" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной и двумя "звездочками".
"4" - в отчете выполнены все основные упражнения дополнительно выполнены упражнения с одной "звездочкой".
"3" - в отчете выполнены все основные упражнения.
Упражнения
1. В поле Edit1 ввести любой символ и вывести его
в таблицу StringGrid1, в строку и колонку с заданными
номерами. Строку и колонку задать в полях Edit2
и Edit3.
Пример интерфейса
procedure TForm1.Button1Click(Sender: TObject);
var
col, row : Integer;
s : string;
begin
s := Edit1.Text;
row := StrToInt(Edit2.Text) - 1;
col := StrToInt(Edit3.Text) - 1;
StringGrid1.Cells[col, row] := s;
end;
2. Задать целочисленный одномерный массив с помощью случайных
чисел из отрезка [A, B]. Вывести элементы массива
в заданную колонку таблицы StringGrid1. Номер колонки
задать в поле Edit1.
Пример интерфейса
var
Form1: TForm1;
// Глобальные константы.
Const
N_MAX = 5;
A = -25;
B = 15;
// Глобальные переменные.
var
z : array [0..N_MAX - 1] of Integer;
procedure TForm1.FormCreate(Sender: TObject);
var
i : Byte;
begin
Randomize;
for i := 0 to N_MAX - 1 do begin
z[i] := Random(B - A + 1) + A;
end;
Edit1.Text := '1';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
j : Byte;
col : Byte;
begin
StringGrid1.Clean;
col := StrToInt(Edit1.Text) - 1;
for j := 0 to N_MAX - 1 do begin
StringGrid1.Cells[col, j] := IntToStr(z[j]);
end;
end;
3. Вывести двумерный массив z из целых чисел в таблицу StringGrid1.
Ввести число n в поле Edit1. Разделить каждое число
из массива z на число n, результаты присвоить элементам
вещественного двумерного массива d.
Вывести в таблицу StirngGrid2 числа массива d с точностью
до десятых.
Указание: использовать функцию FloatToStrF.
Пример интерфейса
// Глобальные константы.
Const
COL_MAX = 4;
ROW_MAX = 3;
A = -25;
B = 15;
// Глобальные переменные.
var
z : array [0..COL_MAX - 1, 0..ROW_MAX - 1] of Integer;
d : array [0..COL_MAX - 1, 0..ROW_MAX - 1] of double;
procedure TForm1.FormCreate(Sender: TObject);
var
col, row : Byte;
begin
Randomize;
for row := 0 to ROW_MAX - 1 do begin
for col := 0 to COL_MAX - 1 do begin
z[col, row] := Random(B - A + 1) + A;
StringGrid1.Cells[col, row] := IntToStr(z[col, row]);
end;
end;
Edit1.Text := '1';
end;
procedure TForm1.Button1Click(Sender: TObject);
const
W = 0;
DD = 1;
var
col, row : Byte;
n : double;
begin
n := StrToFloat(Edit1.Text);
for row := 0 to ROW_MAX - 1 do begin
for col := 0 to COL_MAX - 1 do begin
d[col, row] := z[col, row]/n;
StringGrid2.Cells[col, row] := FloatToStrF(d[col, row], ffFixed, W, DD);
end;
end;
end;
4.* Вывести двумерный массив из целых чисел в таблицу StringGrid1.
Найти минимальный элемент в каждой строке и вывести
его в соответсвующую строку таблицу StringGrid2, которая
должна состоять из одной колонки.
5.** Вывести двумерный массив из целых чисел в таблицу StringGrid1.
Найти сумму каждой колонки и вывести ее в строку FixedRow.
Найти колонку с максимальной суммой и задать фону ячеек этой
колонки зеленый цвет.
Все числа в колонках выровнять по правому краю.