Напишіть код процедури (середовище Lazarus) для того, щоб при натисненні на елемент Button2, який розташований на формі Form1 колір елементу Label3 змінювався на зелений, а його текст ставав жовтого кольору.
Sub z() Range(Cells(1, 1), Cells(100, 100)).Clear n1=5 n2=3 n3=4
k = 1 A = InitMatrix(n1, k, 1) k = k + n1 + 2 B = InitMatrix(n2, k, 1) k = k + n2 + 2 C = InitMatrix(n3, k, 1)
End Sub
Function InitMatrix(n, cx, cy) ReDim A(n, n) For i = LBound(A, 1) To UBound(A, 1) For j = LBound(A, 2) To UBound(A, 2) A(i, j) = Rnd * 200 - 100 Cells(cx + i, cy + j) = A(i, j) Next Next
Cells(cx, cy + n + 1) = "PositiveAverage =" Cells(cx, cy + n + 2) = PositiveAverage(A)
InitMatrix = A End Function
Function PositiveAverage(A) For i = LBound(A, 1) To UBound(A, 1) For j = LBound(A, 2) To UBound(A, 2) If A(i, j) > 0 Then s = s + A(i, j) k = k + 1 End If Next Next
1) begin var (a,b,c):=ReadInteger3('Введите a,b,c,d-> '); var d:=ReadInteger; if a=d then begin Println('Первое число равно',d); exit; end; if b=d then begin Println('Второе число равно',d); exit; end; if c=d then begin Println('Третье число равно',d); exit; end; a:=d-a; b:=d-b; c:=d-c; var max:=max(max(a,b),c); Println('Максимальная разность->',max); end.
2) begin var a:=ReadInteger('Введите возраст->'); if (a mod 10=1) and (a<>11) then writelnformat('Вам {0} год',a) else if (a mod 10=2) or (a mod 10=3) or (a mod 10=4) then writelnformat('Вам {0} года',a) else writelnformat('Вам {0} лет',a); end.
3) begin var (x,a,b):=readreal3('Введите x,a,b->'); WritelnFormat('Нужно приобрести {0} банок краски',Round((a*b)/x)); end.
4) begin var (a,b):=readreal2('Введите a,b->'); if a+b>10 then println(2*a*b) else if a>b then Println(a+b,a-b) else Println(a-b,a+b); end.
Range(Cells(1, 1), Cells(100, 100)).Clear
n1=5
n2=3
n3=4
k = 1
A = InitMatrix(n1, k, 1)
k = k + n1 + 2
B = InitMatrix(n2, k, 1)
k = k + n2 + 2
C = InitMatrix(n3, k, 1)
End Sub
Function InitMatrix(n, cx, cy)
ReDim A(n, n)
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
A(i, j) = Rnd * 200 - 100
Cells(cx + i, cy + j) = A(i, j)
Next
Next
Cells(cx, cy + n + 1) = "PositiveAverage ="
Cells(cx, cy + n + 2) = PositiveAverage(A)
InitMatrix = A
End Function
Function PositiveAverage(A)
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
If A(i, j) > 0 Then
s = s + A(i, j)
k = k + 1
End If
Next
Next
PositiveAverage = s / k
End Function
// Cборка 1590 от 03.12.2017
1)
begin
var (a,b,c):=ReadInteger3('Введите a,b,c,d-> '); var d:=ReadInteger;
if a=d then begin Println('Первое число равно',d); exit; end;
if b=d then begin Println('Второе число равно',d); exit; end;
if c=d then begin Println('Третье число равно',d); exit; end;
a:=d-a; b:=d-b; c:=d-c;
var max:=max(max(a,b),c);
Println('Максимальная разность->',max);
end.
2)
begin
var a:=ReadInteger('Введите возраст->');
if (a mod 10=1) and (a<>11)
then writelnformat('Вам {0} год',a)
else
if (a mod 10=2) or (a mod 10=3) or (a mod 10=4)
then writelnformat('Вам {0} года',a)
else writelnformat('Вам {0} лет',a);
end.
3)
begin
var (x,a,b):=readreal3('Введите x,a,b->');
WritelnFormat('Нужно приобрести {0} банок краски',Round((a*b)/x));
end.
4)
begin
var (a,b):=readreal2('Введите a,b->');
if a+b>10
then println(2*a*b)
else
if a>b
then
Println(a+b,a-b)
else
Println(a-b,a+b);
end.