Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.65/54: Рейтинг темы: голосов - 54, средняя оценка - 4.65
GENERATOR
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 37
1

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

31.01.2013, 21:06. Просмотров 9767. Ответов 4
Метки нет (Все метки)

Написать программу, которая вычисляет стоимость поездки на автомобиле, например, на дачу.
0
Изображения
Тип файла: png Безымянный.png (50.4 Кб, 299 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.01.2013, 21:06
Ответы с готовыми решениями:

Вычислить стоимость поездки на автомобиле на дачу
вычислить стоимость поездки на автомобиле на дачу.exe файл плиз если можно

Стоимость поездки на дачу
Создайте приложение позволяющее рассчитать стоимость поездки на дачу в один конец, или туда и...

Стоимость поездки на дачу
7. Написать программу вычисления стоимости поездки на автомобиле на дачу (туда и обратно). Известно...

Функция: рассчитать стоимость бензина, необходимого для поездки на дачу
Рассчитать стоимость бензина, необходимого для поездки на дачу, если известен путь, расход топлива...

Создайте приложение, позволяющее рассчитать стоимость поездки на дачу в один конец, или туда и обратно
Помогите сделать лабу 4. Создайте приложение позволяющее рассчитать стоимость поездки на дачу в...

4
GENERATOR
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 37
31.01.2013, 21:17  [ТС] 2
Мне только код, плз........
0
kolobock
3 / 3 / 0
Регистрация: 31.01.2013
Сообщений: 18
31.01.2013, 21:33 3
procedure TForm1.Button1Click(Sender: TObject);
var cena,rostoyanie,potreblenie:Integer;summa:Real;
begin
cena:=strtoint(edit1.Text);
rostoyanie:=strtoint(edit2.Text);
potreblenie:=strtoint(edit3.Text);
if CheckBox1.Checked=true then
summa:=rostoyanie*potreblenie*cena/50
else
summa:=rostoyanie*potreblenie*cena/100;
Label1.Caption:=FloatToStr(summa);
end;
end.


я конешно новичок но прга роботает)
3
GENERATOR
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 37
31.01.2013, 21:44  [ТС] 4
Во! Спасибо! я тож так делал, но думал, что не правильно...
0
droider
Universal
Эксперт Pascal/Delphi
4537 / 2545 / 810
Регистрация: 04.10.2012
Сообщений: 9,268
31.01.2013, 21:48 5
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
procedure TForml.ButtonlClick(Sender: TObject);
var
w, p, r, sum:rеal; 
itog: string; 
begin
 try
w := StrToFloat(Editl.Text); //путь
p := StrToFloat(Edit2.Text); //цена
r := StrToFloat(Edit3.Text); //расход бензина
except
on EConvertError do 
begin
ShowMessage('Заполните все поля!');
end;
sum := (w / 100) * r * p; //расчет суммы поездки
if CheckBoxl.Checked //при обратной поездке
 then 
begin
sum := sum * 2; 
 end;
itog := 'Стоимость поездки ' + FloatToStrF(sum, ffGeneral, 3, 2)+ ' руб.';
ShowMessage (itog); //результат
end;
end.
2
31.01.2013, 21:48
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.01.2013, 21:48

Рассчитать стоимость бензина, необходимого для поездки на дачу, если известен путь, расход топлива на 100 км и
Рассчитать стоимость бензина, необходимого для поездки на дачу, если известен путь, расход топлива...

Создать проект "Стоимость поездки на дачу"
Создать проект «Стоимость поездки на дачу». После щелчка на кнопке «Вычислить» должно появляться...

Вычислить стоимость поездки на автомобиле на дачу
3.Расстояние от дома до дачи s км, стоимость 1 л бензина х грн. n - количество литров бензина,...


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

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

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