Массивы

[Kati]

Написать программу, позволяющую ввести 10 целых чисел. Введенное число n лежит в диапазоне от 0 до 1000. Исходя их введенного числа n, необходимо рассчитать элемент массива k, следующим образом:
если n от 1 до 10 тогда к=0.1*n^2 -0.2*n
если n от 11 до 100 тогда к=0.6*n^3 +0.1*n^2
если n от 101 до 1000 тогда к=0.7*n/3 -0.5*n/2
Вывести массив на экран.


Попыталась, но не правильно!

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
StringGrid1: TStringGrid;
Button1: TButton;
Label2: TLabel;
Button2: TButton;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var n:array[1..10] of integer;
k:array[1..10] of real;
i,j:integer;
begin
// вводим массив n
for i:=1 to 10 do n[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
end;
begin
if (n[i]>=0) and (n[i]=<10) then k[i]:=0.1* n[i]*n[i]-0.2*n[i];
if (n[i]>=11) and (n[i]=<100) then k[i]:=0.6* n[i]*n[i]*n[i]+0.1*n[i]*n[i];
if (n[i]>=101) and (n[i]=<1000) then k[i]:=0.7* n[i]/3-0.5*n[i]/2;
Label3.Coption:= FloatToStr(k[i]);

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;
end.

[Don Karleone]

procedure TForm1.Button1Click(Sender: TObject);
var 
  n:array[1..10] of integer;
  k:array[1..10] of real;
  i,j:integer;
begin
 // вводим массив n
 for i:=1 to 10 do 
   begin
     n[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

     if  (n[i]>=1) and (n[i]=<10) then k[i]:=0.1* n[i]*n[i]-0.2*n[i];
     if  (n[i]>=11) and (n[i]=<100) then k[i]:=0.6* n[i]*n[i]*n[i]+0.1*n[i]*n[i];
     if  (n[i]>=101) and (n[i]=<1000) then k[i]:=0.7* n[i]/3-0.5*n[i]/2;
// а тут выводим массив k в другой StringGrid
     StringGrid2.Cells[i-1,0]:=FloatToStr(k[i]);
  end;

вроде так.

[Mad_Cat]

если n от 1 до 10 тогда к=0.1*n^2 -0.2*n
если n от 11 до 100 тогда к=0.6*n^3 +0.1*n^2
если n от 101 до 1000 тогда к=0.7*n/3 -0.5*n/2

case n[i] of
1..10:k[i]:=0.1*n[i]*n[i]-0.2*n[i];
11..100:k[i]=0.6*n[i]*n[i]*n[i]+0.1*n[i]*n[i];
101..1000:k[i]=0.7*n[i]/3-0.5*n[i]/2;
end;

[Kati]

Спасибо!
Работает.

[Kati]

а как написать что 0<n<1000 ?

[Don Karleone]

Сообщение от Kati

а как написать что 0<n<1000 ?

(n > 0) and (n < 1000)