Вывести среднюю заработную плату

@Antoschka · Регистрация: 27.04.2012

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

Доброго времени суток... пишу программу и столкнулся с проблемой!)

суть ее в том что бы при нажатии на кнопку "анализировать" в поле мемо выводилась информация в виде "№ год (который выбирается из списка комбобокс1) по сравнению с № год (из комбобокс2) заработная плата изменилась на № рублей)"

как в этом случае следует запрограммировать эту кнопку? еще учитывая что когда выбираешь год то в поле эдит сразу появляется значение в рублях средней заработной платы...

@HanDi · 13.05.2012, 12:56

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

в рублях средней заработной платы...

оно уже сразу задано?

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

еще учитывая что когда выбираешь год то в поле эдит сразу появляется значение в рублях средней заработной платы...

Delphi

if ComboBox1.ItemIndex = 0 then
edit1.Text:='20000 рублей';
 
if ComboBox1.ItemIndex = 1 then
edit1.Text:='30000 рублей';
 
if ComboBox1.ItemIndex = 2 then
edit1.Text:='40000 рублей';
 
end;
 
procedure TForm2.ComboBox2Change(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then
edit1.Text:='20000 рублей';
 
if ComboBox1.ItemIndex = 1 then
edit1.Text:='30000 рублей';
 
if ComboBox1.ItemIndex = 2 then
edit1.Text:='40000 рублей';

@Antoschka · 13.05.2012, 13:04 **[ТС]**

да это понятно) вопрос в том как в поле мемо вывести при нажатии кнопки анализировать))
ну например
"в 2012 году по сравнению с 2010 годом зароботная плата изменилась на 600 рублей"
как это вывести таким текстом?

@Antoschka · 13.05.2012, 14:05 **[ТС]**

вот так выглядит программа... только не знаю как в поле мемо выводить данные в виде который я описал выше...(

@Antoschka · 13.05.2012, 18:21 **[ТС]**

ну что поможет кто нибудь?

надо результат сравнения вывести в поле мемо, вот так проще сформулировал... и со словами, мол изменилась так то так то... подскажите пожалуйста как

@Чиполлино · 13.05.2012, 19:10

Немного переделаю:

Pascal

if ComboBox1.ItemIndex = 0 then
edit1.Text:='20000';
 
if ComboBox1.ItemIndex = 1 then
edit1.Text:='30000';
 
if ComboBox1.ItemIndex = 2 then
edit1.Text:='40000';
 
end;
 
procedure TForm2.ComboBox2Change(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then
edit2.Text:='20000';
 
if ComboBox1.ItemIndex = 1 then
edit2.Text:='30000';
 
if ComboBox1.ItemIndex = 2 then
edit2.Text:='40000';

При нажатии на кнопку:

Pascal

1	Memo1.Lines.Add('Разница составляет: ' + strtoint(Edit1.Text - Edit2.Text));

@Antoschka · 13.05.2012, 20:34 **[ТС]**

ошибку выдает...[Error] Unit1.pas(197): Operator not applicable to this operand type

@Antoschka 0 / 0 / 0 Регистрация: 27.04.2012 Сообщений: 19
		1
	Вывести среднюю заработную плату 13.05.2012, 12:29. Показов 1310. Ответов 6 Метки нет (Все метки) Доброго времени суток... пишу программу и столкнулся с проблемой!) суть ее в том что бы при нажатии на кнопку "анализировать" в поле мемо выводилась информация в виде "№ год (который выбирается из списка комбобокс1) по сравнению с № год (из комбобокс2) заработная плата изменилась на № рублей)" как в этом случае следует запрограммировать эту кнопку? еще учитывая что когда выбираешь год то в поле эдит сразу появляется значение в рублях средней заработной платы... 0

@Antoschka 0 / 0 / 0 Регистрация: 27.04.2012 Сообщений: 19
	13.05.2012, 13:04 [ТС]	3
	да это понятно) вопрос в том как в поле мемо вывести при нажатии кнопки анализировать)) ну например "в 2012 году по сравнению с 2010 годом зароботная плата изменилась на 600 рублей" как это вывести таким текстом? 0

@Antoschka 0 / 0 / 0 Регистрация: 27.04.2012 Сообщений: 19
	13.05.2012, 14:05 [ТС]	4
	вот так выглядит программа... только не знаю как в поле мемо выводить данные в виде который я описал выше...( Миниатюры 0

@Antoschka 0 / 0 / 0 Регистрация: 27.04.2012 Сообщений: 19
	13.05.2012, 18:21 [ТС]	5
	ну что поможет кто нибудь? надо результат сравнения вывести в поле мемо, вот так проще сформулировал... и со словами, мол изменилась так то так то... подскажите пожалуйста как 0

@Antoschka 0 / 0 / 0 Регистрация: 27.04.2012 Сообщений: 19
	13.05.2012, 20:34 [ТС]	7
	ошибку выдает...[Error] Unit1.pas(197): Operator not applicable to this operand type 0