1ª Questão: não me lembro o enunciado de nenhuma das duas.
procedure TForm1.BitBtn1Click(Sender: TObject);
var mat : array [1..4,1..5] of integer;
i, j : integer;
raiz, soma : real;
begin
soma := 0;
mat[1,1] := strtoint (edit1.Text);
mat[1,2] := strtoint (edit2.Text);
mat[1,3] := strtoint (edit3.Text);
mat[1,4] := strtoint (edit4.Text);
mat[1,5] := strtoint (edit5.Text);
mat[2,1] := strtoint (edit6.Text);
mat[2,2] := strtoint (edit7.Text);
mat[2,3] := strtoint (edit8.Text);
mat[2,4] := strtoint (edit9.Text);
mat[2,5] := strtoint (edit10.Text);
mat[3,1] := strtoint (edit11.Text);
mat[3,2] := strtoint (edit12.Text);
mat[3,3] := strtoint (edit13.Text);
mat[3,4] := strtoint (edit14.Text);
mat[3,5] := strtoint (edit15.Text);
mat[4,1] := strtoint (edit16.Text);
mat[4,2] := strtoint (edit17.Text);
mat[4,3] := strtoint (edit18.Text);
mat[4,4] := strtoint (edit19.Text);
mat[4,5] := strtoint (edit20.Text);
for i := 1 to 4 do
for j := 1 to 5 do
begin
if (i+j) mod 2 = 0 then
soma := soma + mat[i,j];
end;
raiz := sqrt (soma);
edit21.Text := formatfloat ('#,##0.00', raiz);
edit22.Text := floattostr (soma);
end;
2ª Questão:
procedure TForm1.BitBtn1Click(Sender: TObject);
var vet : array of integer;
i, n, soma : integer;
media : real;
begin
soma := 0;
n := strtoint (edit1.Text) ;
setlength (vet, n);
for i := 1 to n do
begin
vet[i] := strtoint(inputbox ('Valor Vetor','Valor',' '));
soma := soma + vet[i];
end;
media := soma / n;
for i := 1 to n do
begin
listbox1.Items.Add (inttostr(vet[i]));
end;
label2.Caption := ('Media dos Valores Inseridos no Vetor: '+ formatfloat('#,##0.00',media));
edit1.Clear;
end;
Boa sorte Galera..
Nenhum comentário:
Postar um comentário