VPF::Incompatible types: array and integer - Форум программистов

Fantik1990

Дата 5.11.2010, 22:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 5.11.2010

Репутация: нет
Всего: нет

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Memo2: TMemo;
    Label5: TLabel;
    Memo3: TMemo;
    Label2: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure Button1Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const n=8;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..n] of real;
b:array[1..n] of real;
c:array[1..n] of real;
i,j,k:integer;
s1,sg,s2,sb,s3:real;
//---------------
begin
for i:=1 to n do
c[i]:=StrToFloat(memo3.lines[i-1]);
s1:=1;
for i:=1 to n do
begin
s1:=s1*c[i];
sg:=Power(s1,1/n);
//----------------------
begin
for j:=1 to n do
b[j]:=StrToFloat(memo2.lines[j-1]);
s2:=0;
for j:=1 to n do
begin
s2:=s2+b[j];
sb:=s2/n;
//------------------------
begin
for k:=1 to n do
a[k]:=StrToFloat(memo1.lines[k-1]);
s3:=0;
for k:=1 to n do
begin
if (sg<=a[k]) and (a[k]<=sb) then s3:=s3+1;
end;
end;
end;
end;
end;
  label2.Caption:=FloatToStr(sb);
  label7.Caption:=FloatToStr(sg);
  label9.Caption:=FloatToStr(s3);
end;
end.

Добавлено @ 22:48
Задача работает.это готовый вариант

Это сообщение отредактировал(а) bems - 7.11.2010, 16:25

bems

Дата 7.11.2010, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Fantik1990, используй подсветку кода

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »