Задачи в делфи.

@Mae Ari · Регистрация: 26.11.2016

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

Задача 1. Допустим организации часто требуется красить баки цилиндрической формы. Красят при этом только верхнюю часть и стенки с внешней стороны. Написать программу, определяющую количество банок краски для покраски того или иного бака.
Задача 2. Сгенерировать любое трехзначное число, вывести его на экран, подсчитать сумму и произведение его чисел.

Помогите пожалуйста решить.

@Nanotentacle · 26.11.2016, 08:51

С чем у вас затруднения? Или вам надо, чтобы все решили за вас?

@Mae Ari · 26.11.2016, 09:02 **[ТС]**

задачи эти у меня решены на паскале. надо их перевести в дэлфи, но не знаю как это сделать. т. к не понимаю прграмму

Добавлено через 5 минут
как понимаю сначала надо вставить компоненты кнопка , текстовой поле для ввода и т.д. а как прописать само решение

Delphi

var 
d, h, b: real; // диаметр, высота и площадь, окрашиваемая одной банкой 
top, wall, q: real; //верхняя часть бака, внешняя стенка бака , кол-во требуемых банок 
q_int: integer; //вывод только целой части 
 
begin 
write('Диаметр: '); 
readln(d); 
write('Высота: '); 
readln(h); 
write('Окрашиваемая площадь одной банкой: '); 
readln(b); 
 
top := pi * sqr(d) / 4; 
wall := pi * d * h; 
q := (top + wall) / b; 
q_int := trunc(q) + 1; 
 
write('Количество банок: ', q_int); 
 
readln 
end.

нужно писать что то типа : top:=(IntToStr(pi*sqr(d)/4)) ? и прописывать это в компоненте кнопки?

@AHBAR · 26.11.2016, 09:34

Сообщение от Mae Ari

надо их перевести в дэлфи

аналог writeln это Label
аналог readln это Edit
выводите на экран

Delphi

1	Label1.Caption := 'Высота';

Ввод

Delphi

1 2	d := StrToInt(Edit1.Text); h := StrToInt(Edit2.Text);

@Nanotentacle · 26.11.2016, 10:59

Mae Ari, все правильно. Расставляете TLabel, TEdit и кнопку для расчета. Т.е. формируете интерфейс программы. Тут все интуитивно понятно должно быть. В делфи есть инспектор объектов со всеми их свойствами, и там же есть закладка с событиями объектов. Находите у кнопки событие OnClick, дважды щелкаете на поле правее этого события и вам автоматически формируется шаблон процедуры-обработчика события нажатия кнопки. Внутри пишете код обработки, учитывая, что написал AHBAR.

Если вам нужно консольное приложение, то, в целом, код должен подойти без изменений. Возможно, будут мелкие претензии со стороны компилятора, но если они будут - пишите на что он жалуется, решим этот вопрос.

@Mae Ari · 26.11.2016, 11:59 **[ТС]**

спасибо за помощь

Добавлено через 33 минуты

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

Mae Ari, все правильно. Расставляете TLabel, TEdit и кнопку для расчета. Т.е. формируете интерфейс программы. Тут все интуитивно понятно должно быть. В делфи есть инспектор объектов со всеми их свойствами, и там же есть закладка с событиями объектов. Находите у кнопки событие OnClick, дважды щелкаете на поле правее этого события и вам автоматически формируется шаблон процедуры-обработчика события нажатия кнопки. Внутри пишете код обработки, учитывая, что написал AHBAR.

Если вам нужно консольное приложение, то, в целом, код должен подойти без изменений. Возможно, будут мелкие претензии со стороны компилятора, но если они будут - пишите на что он жалуется, решим этот вопрос.

в событии onclick

Delphi

procedure TForm1.btn1Click(Sender: TObject);
d,h,b:Integer;// äèàìåòð, âûñîòà è ïëîùàäü, îêðàøèâàåìàÿ îäíîé áàíêîé
top,wall,q:Integer;//âåðõíÿÿ ÷àñòü áàêà, âíåøíÿÿ ñòåíêà áàêà, êîë-âî òðåáóåìûõ áàíîê
begin
 d:=StrToInt(Edit1.Text);
 h:=StrToInt(Edit2.Text);
 b:=StrToInt(Edit3.Text);
 top:=pi*sqr(d)/4;
 wall:=pi*d*h;
 q:=(top+wall)/b;
 Memo1.Text:=IntToStr(q);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
end.

там ошибку выдает по поводу переменных

@cfbogd · 26.11.2016, 12:07

Сообщение от Mae Ari

Delphi

procedure TForm1.btn1Click(Sender: TObject);
d,h,b:Integer;
top,wall,q:Integer;
begin

var d,h,b:Integer;
top,wall,q:Integer;

@Mae Ari · 26.11.2016, 12:13 **[ТС]**

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

var d,h,b:Integer;
top,wall,q:Integer;

блин точно, не заметила.
и еще в этой строке красным выделяет
d:=StrToInt(Edit1.Text);

@cfbogd · 26.11.2016, 12:17

Сообщение от Mae Ari

top,wall,q:Integer;

нужно real, т.к. там будет деление и умножение на пи

Добавлено через 49 секунд

Сообщение от Mae Ari

и еще в этой строке красным выделяет

дайте угадаю ошибку: не кинули TEdit на форму?

@Mae Ari · 26.11.2016, 12:31 **[ТС]**

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

нужно real, т.к. там будет деление и умножение на пи

Добавлено через 49 секунд

дайте угадаю ошибку: не кинули TEdit на форму?

эммм а как это сделать?

@Mae Ari · 26.11.2016, 12:33 **[ТС]**

@Mae Ari · 26.11.2016, 12:35 **[ТС]**

@cfbogd · 26.11.2016, 13:00

Mae Ari, меняйте названия компонентов!!! вам для чего окно Object TreeView ? вот там и смотрите, где ваш "EDIT" и где остальные компоненты

Добавлено через 36 секунд
и в редакторе кода я вашего edit'а тоже не вижу

Добавлено через 9 минут
____________
жмем на edit, в окне Object Inspector ищем поле Name и меняем его свойство на Edit1 потом Edit2 и так далее пока не переименуете остальные edit'ы

@Mae Ari · 26.11.2016, 13:15 **[ТС]**

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

Mae Ari, меняйте названия компонентов!!! вам для чего окно Object TreeView ? вот там и смотрите, где ваш "EDIT" и где остальные компоненты

Добавлено через 36 секунд
и в редакторе кода я вашего edit'а тоже не вижу

Добавлено через 9 минут
____________
жмем на edit, в окне Object Inspector ищем поле Name и меняем его свойство на Edit1 потом Edit2 и так далее пока не переименуете остальные edit'ы

всеее, до меня дошло, получилось все, спасибо

@Mae Ari 0 / 0 / 0 Регистрация: 26.11.2016 Сообщений: 17
	26.11.2016, 13:15 [ТС]	14
	Сообщение от cfbogd Mae Ari, меняйте названия компонентов!!! вам для чего окно Object TreeView ? вот там и смотрите, где ваш "EDIT" и где остальные компоненты Добавлено через 36 секунд и в редакторе кода я вашего edit'а тоже не вижу Добавлено через 9 минут ____________ жмем на edit, в окне Object Inspector ищем поле Name и меняем его свойство на Edit1 потом Edit2 и так далее пока не переименуете остальные edit'ы всеее, до меня дошло, получилось все, спасибо 0

@Mae Ari 0 / 0 / 0 Регистрация: 26.11.2016 Сообщений: 17
		1
	Задачи в делфи. 26.11.2016, 08:43. Показов 1900. Ответов 13 Метки нет (Все метки) Задача 1. Допустим организации часто требуется красить баки цилиндрической формы. Красят при этом только верхнюю часть и стенки с внешней стороны. Написать программу, определяющую количество банок краски для покраски того или иного бака. Задача 2. Сгенерировать любое трехзначное число, вывести его на экран, подсчитать сумму и произведение его чисел. Помогите пожалуйста решить. 0

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	26.11.2016, 08:51	2
	С чем у вас затруднения? Или вам надо, чтобы все решили за вас? 1

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	26.11.2016, 10:59	5
	Mae Ari, все правильно. Расставляете TLabel, TEdit и кнопку для расчета. Т.е. формируете интерфейс программы. Тут все интуитивно понятно должно быть. В делфи есть инспектор объектов со всеми их свойствами, и там же есть закладка с событиями объектов. Находите у кнопки событие OnClick, дважды щелкаете на поле правее этого события и вам автоматически формируется шаблон процедуры-обработчика события нажатия кнопки. Внутри пишете код обработки, учитывая, что написал AHBAR. Если вам нужно консольное приложение, то, в целом, код должен подойти без изменений. Возможно, будут мелкие претензии со стороны компилятора, но если они будут - пишите на что он жалуется, решим этот вопрос. 0

@Mae Ari 0 / 0 / 0 Регистрация: 26.11.2016 Сообщений: 17
	26.11.2016, 12:13 [ТС]	8
	Сообщение от cfbogd var d,h,b:Integer; top,wall,q:Integer; блин точно, не заметила. и еще в этой строке красным выделяет d:=StrToInt(Edit1.Text); 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	26.11.2016, 12:17	9
	Сообщение от Mae Ari top,wall,q:Integer; нужно real, т.к. там будет деление и умножение на пи Добавлено через 49 секунд Сообщение от Mae Ari и еще в этой строке красным выделяет дайте угадаю ошибку: не кинули TEdit на форму? 0

@Mae Ari 0 / 0 / 0 Регистрация: 26.11.2016 Сообщений: 17
	26.11.2016, 12:31 [ТС]	10
	Сообщение от cfbogd нужно real, т.к. там будет деление и умножение на пи Добавлено через 49 секунд дайте угадаю ошибку: не кинули TEdit на форму? эммм а как это сделать? 0

@Mae Ari 0 / 0 / 0 Регистрация: 26.11.2016 Сообщений: 17
	26.11.2016, 12:33 [ТС]	11
	0

@Mae Ari 0 / 0 / 0 Регистрация: 26.11.2016 Сообщений: 17
	26.11.2016, 12:35 [ТС]	12
	0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	26.11.2016, 13:00	13
	Mae Ari, меняйте названия компонентов!!! вам для чего окно Object TreeView ? вот там и смотрите, где ваш "EDIT" и где остальные компоненты Добавлено через 36 секунд и в редакторе кода я вашего edit'а тоже не вижу Добавлено через 9 минут ____________ жмем на edit, в окне Object Inspector ищем поле Name и меняем его свойство на Edit1 потом Edit2 и так далее пока не переименуете остальные edit'ы 0