Вывести номера второго, четвертого и пятого положительных элементов одномерного массива.
procedure TForm1.Button1Click(Sender: TObject);
const n=10;
var a:array[1..n] of integer; k,i,m,l:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=-10+random(21);
label1.Caption:=label1.caption+inttostr(a[i])+' ';
end;
k:=0;
for i:=1 to n do begin
if a[i]>0 then
begin
k:=k+1;
if k=2 then label2.Caption:=label2.caption+inttostr(i)+' ';
end;
end;
for i:=1 to n do begin
if a[i]>0 then
begin
m:=m+1;
if m=4 then label3.Caption:=label3.caption+inttostr(i)+' ';
end;
end;
for i:=1 to n do begin
if a[i]>0 then
begin
l:=l+1;
if l=5 then label4.Caption:=label4.caption+inttostr(i)+' ';;
end;
end;
1. Дано натуральное n. Вычиcлить:
(i=1, p=3, i=2, p=7,5)
(i=1, s=2,i=2,s=3,5)
var
a,i:integer;
s,j,g,d,o,b:real;
begin
b:=1;
d:=1;
o:=0;
j:=1;
a:=strtoint(edit1.Text);
for i:=1 to a do
begin
b:=b*i;
s:=2+1/b;
d:=d*s;
j:=j*i;
g:=(1+i)/j;
o:=o+g;
end;
label1.Caption:=floattostr(d)+' '+floattostr(o);;
end;
- Вычислить произведение элементов над главной диагональю матрицы и определить их количество.
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..10,1..10] of integer;
i,j,k,sum:Integer;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=Random(100);
StringGrid1.Cells[i-1, j-1]:= IntToStr(a[i,j]);
end;
end;
k:=0;
sum:=1;
for i:= 1 to 10 do
for j:= 1 to 10 do
if i<j then
begin
k:=k+1;
sum:=sum*a[i,j];
end;
label1.caption:='kolichestvo='+inttostr(k);
label2.caption:='proizvedenie='+inttostr(sum);
end;
Дата добавления: 2015-12-17; просмотров: 18; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!