Вычислить коэффициент эластичности
Программа считывает с клавиатуры «q0», «q1, «p0», «p1» и вычисляет
коэффициент эластичности (Экономика).
Решение:
program f;
var q0,q1,p0,p1:real;
p,q:real;
BEGIN
writeln('ввести q0,q1,p0,p1');
readln(q0,q1,p0,p1);
p:=(p1+p0)/(p1-p0);
q:=(q1-q0)/(q1+q0);
writeln('коэ. эластичности=',q*p:0:2);
readln;
END.
|
| Категория: Простые задачи | Добавил: deespe (04.02.2011)
|
| Просмотров: 2752
| Рейтинг: 0.0/0 |
|
