Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 03.04.2014
Сообщений: 25
1

Разработать программу для вычисления плотности населения, площади района и количества жителей

12.11.2014, 17:49. Просмотров 1425. Ответов 2
Метки нет (Все метки)

Всем доброго времени суток! Прошу помочь мне написать код программы на языке Delphi исходя из следующих условий:
"Разработать программу для вычисления плотности населения (чел/км2), площади района (в км2), количества жителей (тыс. чел.), если заданы значения двух величин. На форме расположить три зависимые кнопки выбора, два поля ввода. Во время работы программы, в результате выбора переключателя Плотность населения, Площадь района или Количество жителей, текст, поясняющий назначение полей ввода, должен меняться. Создать также общую процедуру обработки данных в полях ввода, проверяющую правильность ввода вещественного числа без знака." Заранее спасибо
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2014, 17:49
Ответы с готовыми решениями:

Класс Государство (вычисление плотности населения, отношения числа жителей столицы к общей численности населения)
Помогите составить прогу: Напишите программу, которая будет включать описание указанного ниже...

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

Известны данные о численности населения (в миллионах жителей) и площади (в тысячах квадратных километров) 28 государств
Известны данные о численности населения (в миллионах жителей) и площади (в тысячах квадратных...

Вывести список республик с указанием плотности населения и количества больниц на 1000 человек
Таджикистан, Молдавия, Украина. Напечатать список республик, указав плотность населения, число школ...

__________________
2
836 / 731 / 342
Регистрация: 22.09.2012
Сообщений: 5,034
12.11.2014, 23:35 2
Цитата Сообщение от Valkyr1e Посмотреть сообщение
На форме расположить три зависимые кнопки выбора, два поля ввода.
Это обычная программа типа конвертер.
Кидай на форму компоненты RadioButton и Edit в нужном количестве, кнопку и на кнопке код конвертирующий одни величины в другие, ничего там сложного нету.
1
58 / 48 / 25
Регистрация: 17.12.2013
Сообщений: 221
13.11.2014, 06:18 3
Лучший ответ Сообщение было отмечено Valkyr1e как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    if (StrToFloat(Edit2.Text) < 0) or (StrToFloat(Edit1.Text) < 0) then begin
      ShowMessage('Неверно введены данные');
    end;
  except
      ShowMessage('Неверно введены данные');
  end;
  case RadioGroup1.ItemIndex of
    0: begin
      ShowMessage('Плотность населения (тыс.чел/кв.км.)' + #13 + FloatToStr(StrToFloat(Edit2.Text) / StrToFloat(Edit1.Text)));
    end;
    1: begin
      ShowMessage('Площадь района (кв.км.)' + #13 + FloatToStr(StrToFloat(Edit2.Text) / StrToFloat(Edit1.Text)));
    end;
    2: begin
      ShowMessage('Количество жителей (тыс.чел.)' + #13 + FloatToStr(StrToFloat(Edit2.Text) * StrToFloat(Edit1.Text)));
    end;
  end;
end;
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: begin
      Label1.Caption := 'Площадь района (кв.км.)';
      Label2.Caption := 'Количество жителей (тыс.чел.)';
    end;
    1: begin
      Label1.Caption := 'Плотность населения (тыс.чел/кв.км.)';
      Label2.Caption := 'Количество жителей (тыс.чел.)';
    end;
    2: begin
      Label1.Caption := 'Плотность населения (тыс.чел/кв.км.)';
      Label2.Caption := 'Площадь района (кв.км.)';
    end;
  end;
end;
 
end.
1
Миниатюры
Разработать программу для вычисления плотности населения, площади района и количества жителей  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.11.2014, 06:18

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Упорядочить файл структур по убыванию количества жителей (при равенстве - по возрастанию площади)
Есть задача. Меня конкретно интересует как упорядочить по возрастанию площади, если количество...

Разработать подпрограмму для вычисления площади кольца
Разработать подпрограмму для вычисления площади кольца. Использовать разработанную подпрограмму...

Разработать функцию для вычисления количества цифр Х, входящих в число Y
разработать функцию для вычисления количества цифр Х. входящих в целое положительное число Y. с...

Известно количество жителей и площадь, определить плотность каждого района и области в целом
В области 5 районов , известно кол-во жителей и площадь , определить плотность каждого района и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.