Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/25: Рейтинг темы: голосов - 25, средняя оценка - 4.88
Jok
3 / 3 / 0
Регистрация: 26.11.2010
Сообщений: 55
1

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

29.03.2011, 02:05. Просмотров 5125. Ответов 3
Метки нет (Все метки)

Напишите программу, использующую функцию, которая вычисляет стоимость поездки на автомобиле на дачу (туда и обратно). Параметрами функции являются: расстояние до дачи (км), количество бензина, которое потребляет автомобиль на 100 км пробега, цена одного литра бензина. Рекомендуемый вид экрана:
Расстояние до дачи (км.)=
Расход бензина (литров на 100 км пробега) =
Цена литра бензина (руб.) =
Поездка на дачу туда и обратно обойдется в … руб.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.03.2011, 02:05
Ответы с готовыми решениями:

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

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

Составить программу для расчета стоимости поездки на дачу туда и обратно
Help!Помогите! Составить программу для расчета стоимости поездки на дачу туда и обратно....

Вычислить стоимость поездки на разных автомобилях при известном расходе, расстоянии и цене на топливо.
22. Человеку нужно съездить из Лондона в расположенный в 390 милях Эдинбург. Он может ехать на...

Определить стоимость поездки
Помогите решить задачу: Составить программу для расчета стоимости поездки на дачу туда и обратно....

3
S9
Волшебник
652 / 255 / 88
Регистрация: 18.12.2010
Сообщений: 544
29.03.2011, 02:21 2
Вроде так;
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program S9;
Var
Distance,Expense,Cost,Res,L:Real;
Begin
WriteLn('Distance to a summer residence (km.) = ');
ReadLn(Distance);
WriteLn('The gasoline expense (litres on 100 km of run) = ');
ReadLn(Expense);
WriteLn('The price of litre of gasoline (rbl.) = ');
ReadLn(Cost);
L:=Cost/100;{Расход бензина на 1 км. }
Res:=Distance*L*Cost;
Write('The trip on a summer residence there also will back manage in = ');
Write(Res:5:2);
WriteLn(' rbl.');
ReadLn;
End.
Английский переводил в промте, поэтому может быть переведено коряво)))
0
Вложения
Тип файла: rar NEW.rar (4.4 Кб, 61 просмотров)
Jok
3 / 3 / 0
Регистрация: 26.11.2010
Сообщений: 55
29.03.2011, 04:12  [ТС] 3
спасибо огромное!!!!!

Добавлено через 58 минут
помогите пжл оформить ввиде функции, чё то оформлял и не работает
Pascal
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
program d14;
uses
 crt;
var
 rasst,rashod,cenl:real;
begin
 clrscr;
 writeln('Расстояние до дачи (км): ');
 readln(rasst);
 writeln('Расход бензина (литров на 100 км пробега): ');
 readln(rashod);
 writeln('Цена литра бензина (руб)');
 readln(cenl);
function dach(rasst,cenl,rashod:real):real;
var
 res,x:real;
begin
x:=rashod/100;  {Расход бензина на 1 км. пробега }
res:=rasst*x*cenl;
dach:=res;
 write('Поездка на дачу туда и обратно обойдётся в ');
 write(res:0:0);
 writeln(' руб.', dach(res));
 readln;
end.
0
orif
22 / 22 / 9
Регистрация: 08.03.2011
Сообщений: 155
29.03.2011, 14:49 4
У меня похожая задача помогите пожалуйста.
0
29.03.2011, 14:49
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.03.2011, 14:49

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

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

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


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

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

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