Работа в Microsoft Excel Задача 3. Предприятие ООО «Верона» в первом квартале реализовало продукцию на 300 тыс. руб. Среднеквартальный остаток оборотных средств составляет 23 тыс. руб. В связи с планированием деятельности предприятия во втором квартале планируется увеличение объема реализации на 10%, а время одного оборота оборотных средств будет сокращено на один день. Определить: коэффициент оборота оборотных средств и продолжительность одного оборота в первом квартале, коэффициент оборота оборотных средств и их абсолютный размер во втором квартале, высвобождение оборотных средств, вследствие сокращения продолжительности одного оборота оборотных средств. Провести анализ скорости оборота средств и сделать выводы по предложенному планированию во втором квартале Задача 4. Годовой объем реализации продукции предприятия ООО «СОВТРАНС» составил 5 тыс. шт. продукции, себестоимость единицы продукции - 180тыс. руб., цена реализации на 15% превышает себестоимость. Среднегодовой остаток оборотных средств - 145 млн. руб. Определить коэффициент оборачиваемости оборотных средств, длительность одного оборота и коэффициент загрузки. Провести анализ данных расчетов и сделать выводы о рентабельности предприятия. Задача 5. Необходимо определить объем выпускаемой продукции асфальтобетонного завода за год, за два и за три года, если коэффициент оборачиваемости – 2, 2, объем оборотных средств за год – 150 млн. рублей. На основании проведенных расчетов построить объемную круговую диаграмму. Провести анализ и записать выводы по работе данного предприятия за три года.
Ответы
//Pascal ABC.NET v3.0 сборка 1111
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
Point=record
x,y:real
end;
procedure GetPoint(c:char;var M:Point);
begin
Write('Введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var A,B,C:Point;
GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
var ab:=Dist(A,B);
var bc:=Dist(B,C);
var ac:=Dist(A,C);
if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует