Рассмотреть финансовую деятельность фирмы на протяжении десяти лет

@srs · Регистрация: 25.07.2016

Author24 — интернет-сервис помощи студентам

Просьба помочь в задаче.
Рассмотрим финансовою деятельность фирмы на протяжении десяти лет. Пусть доход фирмы, обсчитается формулой (это уже готовая формула для паскаль)

Код

o:=100*(8 * (((2 * sqr(x)) + 5) + cos(3.3 * x)) / ((x + 4) * ((2 * x) + 1))*k)

, где k это год (1997-2007). Если o>0 то фирма получила прибыль если о<0, то убыток.
Вывести на экран таблицу (10 строчек): номер года, количество дохода\убытка.

Вот до чего дошел я

Pascal

uses crt;
var
  k: array [1997..2006] of integer;
  o: integer;
begin
  clrscr;
  for k:=1997 to 2006 do
   begin   
    o:=100*(8 * (((2 * sqr(x)) + 5) + cos(3.3 * x)) / ((x + 4) * ((2 * x) + 1))*k);
    
    if o>0 then
      readln (o);
      writeln ('Прибыль=',o);
    if o<0 then
      readln (o);
      writeln ('Убытки=',o);
   end;  
  
end.

@Puporev · 21.05.2018, 14:40

Что такое х и где оно у Вас объявлено?

@srs · 21.05.2018, 17:43 **[ТС]**

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

Pascal

uses crt;
var
  p: array [1..10] of double;
  r: array [1997..2006] of integer;
  x,l,i: integer;
  sum2:real; 
begin
  clrscr;
  for i:=1997 to 2006 do
  begin
    for l:=1 to 10 do
      begin
        p[l]:=(100*(8 * (((2 * sqr(i)) + 5) + cos(3.3 * i)) / ((i + 4) * ((2 * i) + 1))));
        end;
        r[i]:=i;
     Writeln('год=',r[i],'доход=',p[l]);
   end;  
 sum2:=i+p[l];
 writeln ('Итого',sum2);
  
end.

@Puporev · 21.05.2018, 17:44

Ну так напиши формулу как нужно, Пушкин за тебя это сделает?

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.05.2018, 14:40	2
	Что такое х и где оно у Вас объявлено? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.05.2018, 17:44	4
	Ну так напиши формулу как нужно, Пушкин за тебя это сделает? 0