Чес гря не понимаю, в чем заморочка... Тут же все указано. Безо всЯкого С++ в экселе мона сотворить этакий "калькулятор"))
есть постоянная 100 (гк золота)
и переменные Х и У, их вводит, я так понял, пользователь программулечки,
дальше сии переменные суммируются
и из них считают
70% - результат сообщают польщователю с пометкой "погибшие"
26% результат сообщают польщователю с пометкой "тяжело ранено"
4% результат сообщают польщователю с пометкой "Осталось в живых"
а постоянную100 делят на эти 4% от Х+У ( то есть на к-во выживших) и сообщают результат пользователю с пометкой "досталось золота каждому из них (выживших)"
затем, если надо, обнулить Х и У для следкющего года.
А результаты, если надо получить данные за два года, прибавлять к предыдущим, уже посчитанным... Ну и еще куча вариантов обработки результатов... Вдруг нужна выборка по четным годам, вдруг еще чего)))
мона поставить переменную, считающую годы с каждым вводом Х и У...
В ощем - подвинтеся, дайте простор моей фантазии!))
программа на Turbo pascal 7.1:
содержание progs.pas:
{$N+}{-директива для подключения 8087 препоцессора}
uses output1; {здесь подключаем модуль output1}
var p:double;
function F1(p:double):double;
begin
F1:=Sqr(p);
end;
procedure P1(var p:double);
begin
readln(p);
p:=F1(p);
end;
begin
write('Введите длину стороны квадрата = ');
P1(p);
P2(p);
end.
содержание output1.tpu:
{$N+}{-директива для подключения 8087 препоцессора}
unit output1;{здесь объявляем модуль output1}
interface
procedure P2(p:double);
implementation
procedure P2;
begin
writeln('Площадь квадрата = ',p:0:5);
end;
end.
function fib(n) {
var a = 1,
b = 1;
for (var i = 3; i <= n; i++) {
var c = a + b;
a = b;
b = c;
}
return a;
}