Сделать из одного массива другой

@anna4a · Регистрация: 25.11.2016

Author24 — интернет-сервис помощи студентам

13.Задана последовательность X=(x1,x2,….x10).
Сформировать из неё одномерный массив Y, состоящий из элементов, удовлетворяющих условию: Xi > p, где p - произведение элементов массива X, имеющих чётные индексы /если таковых не окажется, напечатать: “Искомых элементов нет”/. Полученный массив напечатать в столбик.
X={2.95, 7.34, -4.2, 0.5, -4.9, 0.22, 0.35, 1, 10.1, 12}.
Ввод из файла сделала, дальше считает не правильно. P должно получиться 9.6888, значит выводиться должны 10.1 и 12
вот код

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var k,i:integer;
    p:real;
begin
p:=1;
k:=0;
for i:=1 to 10 do
begin
if (i mod 2=0) then
p:=p*x[i];
if x[i]>=p then
begin
k:=k+1;
Y[k]:=x[i];
end;
for k:=1 to 10 do
Label2.Caption:=Label2.Caption+'  y( '+inttostr(k)+')='+floattostr(y[k]);
end;
if k=0 then  label2.Caption:=Label2.Caption+'Искомых элементов нет';
 
end;
begin
Label3.Caption:=Label3.Caption+floattostr(p);
end;
 
 
 
end.

@cfbogd · 26.11.2016, 13:33

Не по теме:

anna4a, вставляйте ваш код в тэги Delphi! вот пример: [DELPHI] ВАШ КОД [/DELPHI]. Пользователям очень тяжело смотреть на ваш код

@anna4a · 26.11.2016, 13:59 **[ТС]**

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var k,i:integer;
    p:real;
begin
p:=1;
k:=0;
for i:=1 to 10 do
begin
if (i mod 2=0) then
p:=p*x[i];
if x[i]>=p th;en
begin
k:=k+1
Y[k]:=x[i];
end;
for k:=1 to 10 do
Label2.Caption:=Label2.Caption+'  y( '+inttostr(k)+')='+floattostr(y[k]);
end;
if k=0 then  label2.Caption:=Label2.Caption+'Искомых элементов нет';
 
end;
begin
Label3.Caption:=Label3.Caption+floattostr(p);
end;
 
 
 
end.

@cfbogd · 26.11.2016, 14:37

Delphi

var
  Form1: TForm1;
  X:array [1..10] of real=(2.95, 7.34, -4.2, 0.5, -4.9, 0.22, 0.35, 1, 10.1, 12);
  Y:array [1..10] of real;
  implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
p:real;
begin
p:=1; k:=0;
memo1.Clear;
memo1.Lines.Add('X[i]    Y[i]');
for i:=1 to 10 do
if i mod 2 = 0 then
p:=p*x[i];
 
for i:=1 to 10 do
if x[i]>=p then
begin
inc(k);
Y[i]:=X[i]
end;
if k=0 then
begin
showmessage('“Искомых элементов нет”');
exit;
end;
for i:=1 to 10 do
begin
memo1.Lines.Add(floattostr(X[i])+'   '+floattostr(Y[i]));
edit2.Text:=edit2.Text+floattostr(Y[i])+' |';
end;
caption:=('P = '+floattostr(p));
end;

@cfbogd · 26.11.2016, 14:45

лучше сделать динамический массив Y. Это будет вашим ДЗ)

@cfbogd
	26.11.2016, 13:33 #2
	Не по теме: anna4a, вставляйте ваш код в тэги Delphi! вот пример: [DELPHI] ВАШ КОД [/DELPHI]. Пользователям очень тяжело смотреть на ваш код 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	26.11.2016, 14:45	5
	лучше сделать динамический массив Y. Это будет вашим ДЗ) 0

Сделать из одного массива другой

Решение