В области 12 районов.Известны количество жителей(в тыс.чел) и площадь (в квадратных км)каждого района

@Marina Andreevn · Регистрация: 17.12.2012

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

В области 12 районов.Известны количество жителей(в тыс.чел) и площадь (в квадратных км)каждого района. Определить среднюю плотность населения по области в целом.

@Latino · 26.09.2013, 21:08

и что нужно сделать?

@Marina Andreevn · 26.09.2013, 21:11 **[ТС]**

в Делфи) написать код,который определит среднюю плотность населения по области в целом.

@Latino · 26.09.2013, 21:15

а какие механизмы использовать для реализации? или просто чтобы считало?)

@Marina Andreevn · 26.09.2013, 21:19 **[ТС]**

просто,чтобы считало

в форме,чтобы рассчитало)))

@Latino · 26.09.2013, 21:26

данные должны быть забиты или пользователь их забивает сам? Просто Вы дали очень мало информации)

@Marina Andreevn · 26.09.2013, 21:47 **[ТС]**

наверное самим) в задаче кроме этого ничего не написано) ну думаю самим вбивать инфо

@бодричком · 26.09.2013, 22:15

Прежде на форму нужно закинуть 3 - label 2 edit 1 button

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 a,b, z:real;
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if  (Key in ['a'..'z','A'..'Z','à'..'ÿ','À'..'ß']) then Key:=#0;
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if  (Key in ['a'..'z','A'..'Z','à'..'ÿ','À'..'ß']) then Key:=#0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtoint(edit1.Text);
b:= strtoint(edit2.Text);
z:=a/b ;
label3.Caption:='ïëîòíîñòü íàñèëåíèÿ ='+floattostr(z)+'÷åë/ì2';
end;
 
end

@northener · 26.09.2013, 22:24

Сообщение от бодричком

if (Key in ['a'..'z','A'..'Z','а'..'я','А'..'Я']) then Key:=#0;

Очень плохая фильтрация.

@Marina Andreevn · 26.09.2013, 22:32 **[ТС]**

спасибо)) А вот в Форме,сколько TEdit создать?

@northener · 26.09.2013, 22:41

Не по теме:

Сообщение от Marina Andreevn

А вот в Форме,сколько TEdit создать?

Либо сколько нужно, либо сколько не жалко

@Latino · 27.09.2013, 06:04

Marina Andreevn, Если как в примере который сверху, то два.

@Marina Andreevn · 27.09.2013, 20:00 **[ТС]**

спасибо

надеюсь сдам)

@Marina Andreevn · 10.10.2013, 12:06 **[ТС]**

Сообщение от бодричком

Прежде на форму нужно закинуть 3 - label 2 edit 1 button

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 a,b, z:real;
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if  (Key in ['a'..'z','A'..'Z','à'..'ÿ','À'..'ß']) then Key:=#0;
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if  (Key in ['a'..'z','A'..'Z','à'..'ÿ','À'..'ß']) then Key:=#0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtoint(edit1.Text);
b:= strtoint(edit2.Text);
z:=a/b ;
label3.Caption:='ïëîòíîñòü íàñèëåíèÿ ='+floattostr(z)+'÷åë/ì2';
end;
 
end

у меня почему то не компилируется (

@northener · 10.10.2013, 12:28

Сообщение от Marina Andreevn

у меня почему то не компилируется

А кто обещал что простой копипаст будет компилироваться? Даже чтобы воспользоваться примерами из интернета надо хоть что-то знать и уметь.

@chizz · 10.10.2013, 12:39

Вот держи проект. Он по крайней мере компилируется

@Marina Andreevn 2 / 2 / 0 Регистрация: 17.12.2012 Сообщений: 58
		1
	В области 12 районов.Известны количество жителей(в тыс.чел) и площадь (в квадратных км)каждого района 26.09.2013, 21:06. Показов 3854. Ответов 15 Метки нет (Все метки) В области 12 районов.Известны количество жителей(в тыс.чел) и площадь (в квадратных км)каждого района. Определить среднюю плотность населения по области в целом. 1

@Latino 35 / 35 / 4 Регистрация: 28.05.2013 Сообщений: 180
	26.09.2013, 21:08	2
	и что нужно сделать? 0

@Marina Andreevn 2 / 2 / 0 Регистрация: 17.12.2012 Сообщений: 58
	26.09.2013, 21:11 [ТС]	3
	в Делфи) написать код,который определит среднюю плотность населения по области в целом. 0

@Latino 35 / 35 / 4 Регистрация: 28.05.2013 Сообщений: 180
	26.09.2013, 21:15	4
	а какие механизмы использовать для реализации? или просто чтобы считало?) 0

@Marina Andreevn 2 / 2 / 0 Регистрация: 17.12.2012 Сообщений: 58
	26.09.2013, 21:19 [ТС]	5
	просто,чтобы считало в форме,чтобы рассчитало))) 0

@Latino 35 / 35 / 4 Регистрация: 28.05.2013 Сообщений: 180
	26.09.2013, 21:26	6
	данные должны быть забиты или пользователь их забивает сам? Просто Вы дали очень мало информации) 0

@Marina Andreevn 2 / 2 / 0 Регистрация: 17.12.2012 Сообщений: 58
	26.09.2013, 21:47 [ТС]	7
	наверное самим) в задаче кроме этого ничего не написано) ну думаю самим вбивать инфо 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	26.09.2013, 22:24	9
	Сообщение от бодричком if (Key in ['a'..'z','A'..'Z','а'..'я','А'..'Я']) then Key:=#0; Очень плохая фильтрация. 0

@Marina Andreevn 2 / 2 / 0 Регистрация: 17.12.2012 Сообщений: 58
	26.09.2013, 22:32 [ТС]	10
	спасибо)) А вот в Форме,сколько TEdit создать? 0

@northener
	26.09.2013, 22:41 #11
	Не по теме: Сообщение от Marina Andreevn А вот в Форме,сколько TEdit создать? Либо сколько нужно, либо сколько не жалко 0

	10.10.2013, 12:39

@Latino 35 / 35 / 4 Регистрация: 28.05.2013 Сообщений: 180
	27.09.2013, 06:04	12
	Marina Andreevn, Если как в примере который сверху, то два. 0

@Marina Andreevn 2 / 2 / 0 Регистрация: 17.12.2012 Сообщений: 58
	27.09.2013, 20:00 [ТС]	13
	спасибо надеюсь сдам) 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	10.10.2013, 12:28	15
	Сообщение от Marina Andreevn у меня почему то не компилируется А кто обещал что простой копипаст будет компилироваться? Даже чтобы воспользоваться примерами из интернета надо хоть что-то знать и уметь. 0