Работа в Microsoft Excel
Задача 1.
Предприятие ООО «Весна» заключила договор №75 от 20.12.2018 года на
поставку строительных материалов с организацией ООО «Искра», сроком на 6
месяцев. За период с января по июнь 2019 года было поставлено строительных
материалов с учетом НДС на сумму:
Январь -210 000 руб.,
Февраль- 240 000 руб.,
Март- 290 000 руб.,
Апрель – 380 000 руб.,
Май- 450 000 руб.,
Июнь- 680 000 руб.,
Необходимо рассчитать сумму поставок товара за 6 месяцев используя Microsoft Excel, и вычислить сумму НДС за этот период. Построить диаграмму динамики на основании исходных данных.
Задача 2.
Фирма «Делюкс» обратилась в банк для рассмотрения во инвестирования
проекта в течение трех лет.
Имеется два варианта инвестирования:
1-й вариант: под 12% годовых в начале каждого года;
2-й вариант: под 14% годовых в конце каждого года.
Предполагается ежегодно вносить по 500 000 руб.
Определить, в какую сумму обойдется проект.
Постройте сравнительную диаграмму по результатам расчетов для двух вариантов инвестирования.
uinput = input('трёхзначное натуральное число: ') # 123
numbers = [int(i) for i in uinput] # [1, 2, 3]
highest = max(numbers) # 3
lowest = min(numbers) # 1
numbers.pop(numbers.index(highest)) # [1, 2, 3] = [1, 2]
numbers.pop(numbers.index(lowest)) # [1, 2] = [2]
middle = numbers[0] # 2
# print(highest, lowest, middle) 3 1 2
num1 = str(highest) + str(middle) # '32'
if lowest == 0:
~~~~if middle == 0:
~~~~~~~~num2 = str(highest) + str(lowest)
~~~~else:
~~~~~~~~num2 = str(middle) + str(lowest)
else:
~~~~num2 = str(lowest) + str(middle) # '12'
print(num1 + ' - ' + num2 + ' = ' + str(int(num1) - int(num2))) # 32 - 12 = 20
nm = 50;
type
Data = record
day: 1..31;
month: 1..12;
year: integer
end;
lichn = record
famnam: string;
datr: Data
end;
listlichn = array [1..nm] of lichn;
var
m: listlichn;
n: integer;
procedure GetLichn(k: integer);
begin
Write(k, ') Введите через пробел фамилию, имя: ');
Readln(m[k].famnam);
Writeln('Введите через пробел день, месяц и год рождения: ');
Readln(m[k].datr.day, m[k].datr.month, m[k].datr.year)
end;
procedure WriteLichn(k: integer);
begin
Writeln(m[k].famnam, ' ', m[k].datr.day, '.', m[k].datr.month, '.', m[k].datr.year)
end;
procedure Vvod(var p: integer);
var
i: integer;
begin
Write('Введите количество лиц n (максимум 50) -> ');
Readln(p);
if p <= 50 then for i := 1 to p do GetLichn(i)
else begin Writeln('Вы ввели неправильное значение'); p := 0 end
end;
procedure Zapros1;
{ фамилии и имена тех кто родился в месяц l года }
var
i: integer;
l: 1..12;
begin
Write('Введите номер месяца рождения (1-12): ');
Readln(l);
for i := 1 to n do
if m[i].datr.month = l then WriteLichn(i)
end;
procedure Zapros2;
{ фамилии и имена тех кто родился в год a }
var
a, i: integer;
begin
Write('Введите год рождения: ');
Readln(a);
for i := 1 to n do
if m[i].datr.year = a then WriteLichn(i)
end;
procedure Zapros3;
{ фамилии и имена тех чья дата рождения z.l.a }
var
a, i: integer;
z: 1..31;
l: 1..12;
begin
Write('Введите через пробел день, месяц и год рождения: ');
Readln(z, l, a);
for i := 1 to n do
if (m[i].datr.year = a) and (m[i].datr.month = l)
and (m[i].datr.day = z) then
WriteLichn(i)
end;
begin
Vvod(n);
Zapros1;
Zapros2;
Zapros3
end.
Тестовое решение:
Введите количество лиц n (максимум 50) -> 3
1) Введите через пробел фамилию, имя: Иванов Иван
Введите через пробел день, месяц и год рождения:
24 12 1973
2) Введите через пробел фамилию, имя: Петров Петр
Введите через пробел день, месяц и год рождения:
05 03 1982
3) Введите через пробел фамилию, имя: Козлова Екатерина
Введите через пробел день, месяц и год рождения:
1 12 1994
Введите номер месяца рождения (1-12): 12
Иванов Иван 24.12.1973
Козлова Екатерина 1.12.1994
Введите год рождения: 1982
Петров Петр 5.3.1982
Введите через пробел день, месяц и год рождения: 5 3 1982
Петров Петр 5.3.1982