Приветствую Вас, Гость! Регистрация RSS

<Uzh.Soft/>

Пятница, 13.12.2024
Главная » 2011 » Октябрь » 31 » Задача про урожайность
21:14
Задача про урожайность
Задача: Урожайность пшеницы в год разработки целинных земель составила B ц/га, затраты на её получение - D руб./га. По прогнозу в последующие годы урожайность будет уменьшаться на P руб. в год при увеличении затрат на q%. Вывести среднюю себестоимость 1 ц пшеницы за последующие N лет.


  1. program p3;
  2. uses crt;
  3. var i,N :integer;
  4.     B,D,P,q,SX :real;
  5. begin
  6.     write('B= ');
  7.     readln(B);
  8.     write('D= ');
  9.     readln(D);
  10.     write('P= ');
  11.     readln(P);
  12.     write('q(%)= ');
  13.     readln(q);
  14.     write('N= ');
  15.     readln(N);
  16.     writeln('Year':8,'Cost':8);
  17.     SX:=0;
  18.     for i:=1 to N do
  19.     begin
  20.         B:=B-P;
  21.         D:=D*(1+q/100);
  22.         SX:=SX+D/B;
  23.         writeln(i:8,D/B:8:3)
  24.  
  25.     end;
  26.     writeln('Average cost of one quintal per ',N,' years ',SX/N:8:3);
  27.     writeln('Press any key to exit');
  28.     repeat until keypressed;
  29. end.
Категория: Простые примеры | Просмотров: 1663 | Добавил: is | Теги: Паскаль, урожайность | Рейтинг: 5.0/1
Всего комментариев: 0
Имя *:
Email *:
Код *: