Выполнить по excel 1. рассчитать и показать на графике структуру кредитных вложений коммерческого банка. для решения используется следующая входная информация (в миллионах тенге): объем ссуд, предоставленных государственным предприятиям; объем ссуд, предоставленных совместным предприятиям; объем ссуд, предоставленных кооперативам; объем ссуд, предоставленных предпринимателям; объем ссуд, предоставленных лицам; объем ссуд, предоставленных инофирмам; объем ссуд, предоставленных сельскохозяйственным предприятиям; объем ссуд, предоставленных предприятиям, организованным в форме ао и тоо; объем ссуд, предоставленных ичп; объем межбанковских кредитов. в результате решения необходимо сформировать следующий выходной документ: структура кредитных вложений коммерческого банка вложения коммерческого банка сумма уд. вес (%) объем ссуд государственным предприятиям 1000 u(1) объем ссуд кооперативам 400 u(2) объем ссуд совместным предприятиям 2000 u(3) объем ссуд предпринимателям 350 u(4) объем ссуд лицам 650 u(5) объем ссуд инофирмам 1000 u(6) объем ссуд с/х предприятиям 300 u(7) объем ссуд предприятиям в форме ао и тоо 1200 u(8) объем ссуд ичп 500 u(9) объем межбанковских кредитов 3000 u(10) итого ss 100 % формулы для расчета выходных показателей имеют следующий вид: ss = sum (s( где s(i) – сумма i-той ссуды (млн. тенге); u(i) = s(i) / ss 100, где u(i) – удельный вес i-той ссуды, i = [1,n], n – количество видов предоставляемых суд. 2. выполнить сортировку документа по возрастанию объемов вложений коммерческого банка. 3. построить на отдельном листе excel круговую диаграмму, отражающую структуру сумм каждого вида ссуды в виде соответствующего сектора, вывести значения объемов вложений по каждому виду ссуды, а также легенду и название графика структура кредитных вложений банка. 4. построить на новом листе excel смешанную диаграмму, в которой суммы объемов каждого вида ссуды коммерческого банка были бы представлены в виде гистограмм, а их удельные веса в виде линейного графика на той же диаграмме. вывести легенду и название графика анализ кредитных вложений коммерческого банка. 5. сформировать новый выходной документ, содержащий только те кредитные вложения коммерческого банка, объем ссуд которых больше среднего значения этого показателя по всей таблице. выходной документ должен иметь следующий вид: вложения коммерческого банка сумма 6. подготовить результаты расчетов и диаграммы к выводу на печать.
program wstawka;
uses crt;
const min=1;
max=20;
type zona=min..max;
massiw=array[zona] of integer;
var mas:massiw;
i,j:zona;
a,N,M:integer;
T:boolean;
BEGIN randomize;
clrscr; N:=random(20);
writeln('4ucJlo N = ',N);
M:=random(20); Writeln('4ucJlo M = ',M);
for i:=min to max-2 do
begin
mas[i+1]:=mas[i]+random(5);
write(mas[i],' ');
end;
for i:=min to max-2 do
if (mas[i]>N) and (t=false) then
begin
t:=true;
a:=mas[i];
mas[i]:=N;
for j:=i+1 to max do
begin
N:=mas[j];
mas[j]:=a;
a:=N;
end;
end;
for i:=min to max-1 do
if (mas[i]>M) and (t=true) then
begin
t:=false;
a:=mas[i];
mas[i]:=M;
for j:=i+1 to max do
begin
M:=mas[j];
mas[j]:=a;
a:=M;
end;
end;
writeln;
for i:=min to max do
write(mas[i],' ');
readkey;
END.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969