my-programs.3dn.ru
Быстрая навигация
Главная
Домашняя страница
Решенные задачи
Все решенные задачи
Форум
Наш форум
Выход
Выход из сайта
Реклама
Пусто
Меню сайта
Категории раздела
С подпрограммой [8]
Простые задачи [11]
Строки [5]
Массивы [7]
Графика [2]
Сложные задачи [2]
Мини-чат
Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » Turbo Pascal - готовые задачи » Простые задачи

Вычисление стоимости поездки.

Написать программу вычисления стоимости поездки на дачу(туда и обратно). Расстояние до дачи в км, количество бензина которое сжигает автомобиль на 100км. Цена 1 литра бензина.

Решение:


program avto;
var k,s,r,a:real;
BEGIN
writeln('Вычисление стоимости поездки на дачу и обратно.');
writeln('Расстояние до дачи(км) ->');
readln(S);
wruteln('Расход бензина(метров на 100км пробега) ->');
readln(k);
writeln('Цена литра бензина(руб) ->');
readln(a);
B:=2*s/100*A*R;
writeln('Поездка обойдется в ',b,'руб);
readln;
END.

Объяснение:
При запуске программы введется следующие:
Вычисление стоимости поездки на дачу и обратно. ->enter
Расстояние до дачи(км) ->   вводим число ->enter
Расход бензина(метров на 100км пробега) ->  вводим число ->enter
Цена литра бензина(руб) ->  вводим число ->enter
Далее высчитывается стоимость поездки по формуле  B:=2*s/100*A*R и выводится ответ.
Категория: Простые задачи | Добавил: deespe (29.01.2011)
Просмотров: 7251 | Комментарии: 1 | Рейтинг: 3.5/6
Всего комментариев: 0
Имя *:
Email *:
Код *:

Поиск
Опрос
Вам помог наш сайт?
Всего ответов: 133
Хостинг от uCoz