Оглавлени
4
Задание №1 4
10
10
Задание №2 11
Построение электронных таблиц. 11
Задание №3 19
29
Задание №5 29
Список используемой литературы 40
Задание №1 4
Задание №2 11
Задание №3 19
Задание №4 22
Задание №5 28
Список используемой литературы 37
Задание №1
Разработать алгоритм и написать программу на языке Turbo Pascal.
Задана матрица (двумерный массив) A размером N x М , состоящая из действительных элементов. Числа M и N вводятся с клавиатуры. Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел. Где это необходимо ввести квадратную матрицу. Во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы.
Сформировать вектор из разностей наибольших и наименьших значений элементов строк. В исходной матрице удалить К-й столбец. К вводится с клавиатуры. Вывести на экран полученную матрицу и вектор.
Блок-схема
начало
Ввод
n,m,k
Varian=1
Цикл по i
от 1 до n
Цикл по j
от 1 до m
Цикл по j
от 1 до m
Цикл по i
от 1 до n
A[i,j]:=50-random(100)
Ввод
A[i,j]
Цикл по i
от 1 до n
Max:=A[i,1]
Min:=A[i,1]
цикл по j
от 1 до m
Min:=A[i,1]
Max:=A[i,1]
A[i,j]<min
C[i]:=max-min
A[i,j]<min
1
//
1 Цикл
по i от
1 до n Цикл
по j от
1 до m j>k b:=j+1 b:=j A[i,j]:=A[i,b] Цикл
по i от
1 до n Цикл
по j от
1 до m-1 Вывод
A[i,j] Цикл
по i от
1 до n Вывод
C[i] конец
Листинг программы
program stolb;
var
j,i,n,m,k,b,variant:Integer;
max,min:real;
A:array[1..50,1..50] of integer;
C:array[1..50] of real;
begin
Randomize;
Write('Wwedite kol strok n: ');Readln(n);
Write('Wwedite kol stolbcov m: ');Readln(m);
Write('Wwedite 1(randon) ili 2(vruchnuj): ');Readln(variant);
if (variant=1) then
begin
for i:=1 to n do
for j:=1 to m do
A[i,j]:=50-random(100);
end
else
begin
for i:=1 to n do
begin
for j:=1 to m do
read(A[i,j])
readln
end;
end;
write('A[',i,',',j,']=');Read(A[i,j]);
end;
end;
Writeln('Write matrix:');
for i:=1 to n do
Begin
for j:=1 to m do
Write(A[i,j],' ');
writeln;
end;
Write('Wwedite nomer udaljemogo stolbca k: ');Readln(k);
for i:=1 to n do
Begin
max:=A[i,1]; min:=A[i,1];
for j:=1 to m do
if (A[i,j]>max) then max:=A[i,j]
else if (A[i,j]<min) then min:=A[i,j];
C[i]:=max-min;
end;
Writeln('Polucennij vector:');
for i:=1 to n do
Write(C[i]:2:2,' ');
Writeln;
for i:=1 to n do
for j:=1 to m do
Begin
if(j>=k)then b:=j+1
else b:=j;
A[i,j]:=A[i,b];
end;
Writeln('Poluchennaj matrix:');
for i:=1 to n do
Begin
for j:=1 to m-1 do
Write(A[i,j],' ');
writeln;
end;
Readln;
end.
Примеры работы программы
Задание №2 Построение электронных таблиц.
По 4-5 адресам находится не менее 15 фирм-арендаторов. Постройте для фирм таблицу, отражающую расчеты за услуги.
Расчет ячеек:
- В графе Начисления: аренда, коммун. платежи, тех. обслуживание рассчитываются как произведение площади аренды на соответствующий коэффициент. Коэффициент берется из таблицы коэффициентов.
- Процент НДС берется из таблицы коэффициентов и составляет 10-30%.
Таблица коэффициентов:
Услуга |
Коэффициент |
Аренда |
17,00% |
Коммун.Платежи |
21,00% |
Тех.обслуживание |
34,00% |
НДС |
23,00% |
С помощью функции итоги посчитать итоговые суммы по каждому адресу аренды.
Вывести на экран список фирм с использованием фильтра: Фирмы, не оплатившие арендную плату.
Используя имеющиеся или специально созданные таблицы, построить:
Диаграмму, отображающую долю каждого платежа в общей сумме одной
фирмы.
Таблица фирм-арендаторов
№ |
Фирма арендатор |
Адрес |
Занимаемая площадь |
На начало месяца |
Начисленно | |||||||||||||
задолженность |
переплата |
аренда |
НДС аренды |
коммун.платежи |
НДС |
тех обслуживание | ||||||||||||
1 |
Samsung |
ул.Урицкого |
2211 |
|
235,00 |
375,87р. |
508,53р. |
464,31р. |
508,53р. |
751,74р. | ||||||||
2 |
Xerox |
ул.Гагарина |
2136 |
5 364,00 |
|
363,12р. |
491,28р. |
448,56р. |
491,28р. |
726,24р. | ||||||||
3 |
Halloid Company |
ул.Красного Октября |
5133 |
3 242,00 |
|
872,61р. |
1 180,59р. |
1 077,93р. |
1 180,59р. |
1 745,22р. | ||||||||
4 |
Next |
ул.Маклая |
1353 |
|
344,00 |
230,01р. |
311,19р. |
284,13р. |
311,19р. |
460,02р. | ||||||||
5 |
Philips |
ул.Карла-Маркса |
2342 |
5 345,00 |
|
398,14р. |
538,66р. |
491,82р. |
538,66р. |
796,28р. | ||||||||
6 |
Связной |
ул.Картоново |
2465 |
4 135,00 |
|
419,05р. |
566,95р. |
517,65р. |
566,95р. |
838,10р. | ||||||||
7 |
Евросеть |
ул.Снуп дога |
1534 |
|
2 312,00 |
260,78р. |
352,82р. |
322,14р. |
352,82р. |
521,56р. | ||||||||
8 |
Ресурс Связь |
ул.Приборостроительная |
3454 |
3 342,00 |
|
587,18р. |
794,42р. |
725,34р. |
794,42р. |
1 174,36р. | ||||||||
9 |
Мегафон |
ул.Космонавта |
4535 |
9 567,00 |
|
770,95р. |
1 043,05р. |
952,35р. |
1 043,05р. |
1 541,90р. | ||||||||
10 |
BigBoo |
ул.Скрепкина |
546 |
6 325,00 |
|
92,82р. |
125,58р. |
114,66р. |
125,58р. |
185,64р. | ||||||||
11 |
Школьник |
ул.Мониторинга |
2545 |
|
1 233,00 |
432,65р. |
585,35р. |
534,45р. |
585,35р. |
865,30р. | ||||||||
12 |
MTC |
ул.Полжкова |
3567 |
8 435,00 |
|
606,39р. |
820,41р. |
749,07р. |
820,41р. |
1 212,78р. | ||||||||
13 |
GOLDI |
ул.Алиева |
3523 |
|
2 314,00 |
598,91р. |
810,29р. |
739,83р. |
810,29р. |
1 197,82р. | ||||||||
14 |
nAiks |
ул.Тетрадкина |
3456 |
5 636,00 |
|
587,52р. |
794,88р. |
725,76р. |
794,88р. |
1 175,04р. | ||||||||
15 |
Marlin Menson |
ул.Васечкина |
3453 |
8 654,00 |
|
587,01р. |
794,19р. |
725,13р. |
794,19р. |
1 174,02р. | ||||||||
16 |
SNOOP DOG |
ул.Поддубного |
5645 |
|
2 135,00 |
959,65р. |
1 298,35р. |
1 185,45р. |
1 298,35р. |
1 919,30р. | ||||||||
17 |
WDFG |
ул.Спицина |
4123 |
5 643,00 |
|
700,91р. |
948,29р. |
865,83р. |
948,29р. |
1 401,82р. | ||||||||
18 |
YAShUmICIO |
ул.Рюкзака |
2412 |
|
2 345,00 |
410,04р. |
554,76р. |
506,52р. |
554,76р. |
820,08р. | ||||||||
Итого |
54433 |
65 688,00 |
10 918,00 |
9 253,61р. |
12 519,59р. |
11 430,93р. |
12 519,59р. |
18 507,22р. |
Продолжения таблицы фирм-арендаторов.
Итого Начисленно |
Проплачено |
Итого проплачено |
Итоги на конец месяца |
Статус | ||||||
аренда |
коммун.платежи |
тех. Обслуживание |
задолжность |
переплата |
| |||||
2 608,98 |
3 000,00 |
245,00 |
|
3 245,00 |
0,00 |
871,02 |
| |||
2 520,48 |
2 500,00 |
3 364,00 |
|
5 864,00 |
2 020,48 |
0,00 |
Долг | |||
6 056,94 |
2 242,00 |
|
1 000,00 |
3 242,00 |
6 056,94 |
0,00 |
Долг | |||
1 596,54 |
|
3 456,00 |
|
3 456,00 |
0,00 |
2 203,46 |
| |||
2 763,56 |
2 500,00 |
2 345,00 |
100,00 |
4 945,00 |
3 163,56 |
0,00 |
Долг | |||
2 908,70 |
2 000,00 |
1 500,00 |
|
3 500,00 |
3 543,70 |
0,00 |
Долг | |||
1 810,12 |
1 500,00 |
500,00 |
|
2 000,00 |
0,00 |
2 501,88 |
| |||
4 075,72 |
2 020,00 |
|
1 322,00 |
3 342,00 |
4 075,72 |
0,00 |
Долг | |||
5 351,30 |
3 000,00 |
|
6 567,00 |
9 567,00 |
5 351,30 |
0,00 |
Долг | |||
644,28 |
2 600,00 |
2 000,00 |
400,00 |
5 000,00 |
1 969,28 |
0,00 |
Долг | |||
3 003,10 |
845,00 |
1 670,00 |
|
2 515,00 |
0,00 |
744,90 |
| |||
4 209,06 |
5 000,00 |
1 600,00 |
1 000,00 |
7 600,00 |
5 044,06 |
0,00 |
Долг | |||
4 157,14 |
3 200,00 |
1 000,00 |
1 800,00 |
6 000,00 |
0,00 |
4 156,86 |
| |||
4 078,08 |
2 000,00 |
3 567,00 |
|
5 567,00 |
4 147,08 |
0,00 |
Долг | |||
4 074,54 |
2 000,00 |
|
5 476,00 |
7 476,00 |
5 252,54 |
0,00 |
Долг | |||
6 661,10 |
2 300,00 |
|
2 000,00 |
4 300,00 |
226,10 |
0,00 |
Долг | |||
4 865,14 |
|
5 643,00 |
|
5 643,00 |
4 865,14 |
0,00 |
Долг | |||
2 846,16 |
3 567,00 |
1 000,00 |
1 000,00 |
5 567,00 |
0,00 |
5 065,84 |
| |||
64230,94 |
40 274,00 |
27 890,00 |
20 665,00 |
88 829,00 |
Должники есть |
Таблица в формульном виде:
№ |
Фирма арендатор |
Адрес |
Занимаемая площадь |
На начало месяца |
Начисленно | |||||||||||||
задолженность |
переплата |
аренда |
НДС аренды |
коммун.платежи |
НДС |
тех обслуживание | ||||||||||||
1 |
Samsung |
ул.Урицкого |
2211 |
|
235 |
=D3*$C$27 |
=D3*$C$30 |
=D3*$C$28 |
=D3*$C$30 |
=D3*$C$29 | ||||||||
2 |
Xerox |
ул.Гагарина |
2136 |
5364 |
|
=D4*$C$27 |
=D4*$C$30 |
=D4*$C$28 |
=D4*$C$30 |
=D4*$C$29 | ||||||||
3 |
Halloid Company |
ул.Красного Октября |
5133 |
3242 |
|
=D5*$C$27 |
=D5*$C$30 |
=D5*$C$28 |
=D5*$C$30 |
=D5*$C$29 | ||||||||
4 |
Next |
ул.Маклая |
1353 |
|
344 |
=D6*$C$27 |
=D6*$C$30 |
=D6*$C$28 |
=D6*$C$30 |
=D6*$C$29 | ||||||||
5 |
Philips |
ул.Карла-Маркса |
2342 |
5345 |
|
=D7*$C$27 |
=D7*$C$30 |
=D7*$C$28 |
=D7*$C$30 |
=D7*$C$29 | ||||||||
6 |
Связной |
ул.Картоново |
2465 |
4135 |
|
=D8*$C$27 |
=D8*$C$30 |
=D8*$C$28 |
=D8*$C$30 |
=D8*$C$29 | ||||||||
7 |
Евросеть |
ул.Снуп дога |
1534 |
|
2312 |
=D9*$C$27 |
=D9*$C$30 |
=D9*$C$28 |
=D9*$C$30 |
=D9*$C$29 | ||||||||
8 |
Ресурс Связь |
ул.Приборостроительная |
3454 |
3342 |
|
=D10*$C$27 |
=D10*$C$30 |
=D10*$C$28 |
=D10*$C$30 |
=D10*$C$29 | ||||||||
9 |
Мегафон |
ул.Космонавта |
4535 |
9567 |
|
=D11*$C$27 |
=D11*$C$30 |
=D11*$C$28 |
=D11*$C$30 |
=D11*$C$29 | ||||||||
10 |
BigBoo |
ул.Скрепкина |
546 |
6325 |
|
=D12*$C$27 |
=D12*$C$30 |
=D12*$C$28 |
=D12*$C$30 |
=D12*$C$29 | ||||||||
11 |
Школьник |
ул.Мониторинга |
2545 |
|
1233 |
=D13*$C$27 |
=D13*$C$30 |
=D13*$C$28 |
=D13*$C$30 |
=D13*$C$29 | ||||||||
12 |
MTC |
ул.Полжкова |
3567 |
8435 |
|
=D14*$C$27 |
=D14*$C$30 |
=D14*$C$28 |
=D14*$C$30 |
=D14*$C$29 | ||||||||
13 |
GOLDI |
ул.Алиева |
3523 |
|
2314 |
=D15*$C$27 |
=D15*$C$30 |
=D15*$C$28 |
=D15*$C$30 |
=D15*$C$29 | ||||||||
14 |
nAiks |
ул.Тетрадкина |
3456 |
5636 |
|
=D16*$C$27 |
=D16*$C$30 |
=D16*$C$28 |
=D16*$C$30 |
=D16*$C$29 | ||||||||
15 |
Marlin Menson |
ул.Васечкина |
3453 |
8654 |
|
=D17*$C$27 |
=D17*$C$30 |
=D17*$C$28 |
=D17*$C$30 |
=D17*$C$29 | ||||||||
16 |
SNOOP DOG |
ул.Поддубного |
5645 |
|
2135 |
=D18*$C$27 |
=D18*$C$30 |
=D18*$C$28 |
=D18*$C$30 |
=D18*$C$29 | ||||||||
17 |
WDFG |
ул.Спицина |
4123 |
5643 |
|
=D19*$C$27 |
=D19*$C$30 |
=D19*$C$28 |
=D19*$C$30 |
=D19*$C$29 | ||||||||
18 |
YAShUmICIO |
ул.Рюкзака |
2412 |
|
2345 |
=D20*$C$27 |
=D20*$C$30 |
=D20*$C$28 |
=D20*$C$30 |
=D20*$C$29 | ||||||||
Итого |
=СУММ(D3:D20) |
=СУММ(E3:E20) |
=СУММ(F3:F20) |
=СУММ(G3:G20) |
=СУММ(H3:H20) |
=СУММ(I3:I20) |
=СУММ(J3:J20) |
=СУММ(K3:K20) |
Продолжение таблицы в формульном виде:
Итого Начисленно |
Проплачено |
Итого проплачено |
Итоги на конец месяца |
Статус | ||||||
аренда |
коммун.платежи |
тех. Обслуживание |
задолжность |
переплата |
| |||||
=СУММ(G3:K3) |
3000 |
245 |
|
=СУММ(M3:O3) |
=ЕСЛИ(E3+L3-F3-P3>0;E3+L3-F3-P3;) |
=ЕСЛИ(-E3-L3+F3+P3>0;-E3-L3+F3+P3;) |
=ЕСЛИ(Q3>0;"Долг";"") | |||
=СУММ(G4:K4) |
2500 |
3364 |
|
=СУММ(M4:O4) |
=ЕСЛИ(E4+L4-F4-P4>0;E4+L4-F4-P4;) |
=ЕСЛИ(-E4-L4+F4+P4>0;-E4-L4+F4+P4;) |
=ЕСЛИ(Q4>0;"Долг";"") | |||
=СУММ(G5:K5) |
2242 |
|
1000 |
=СУММ(M5:O5) |
=ЕСЛИ(E5+L5-F5-P5>0;E5+L5-F5-P5;) |
=ЕСЛИ(-E5-L5+F5+P5>0;-E5-L5+F5+P5;) |
=ЕСЛИ(Q5>0;"Долг";"") | |||
=СУММ(G6:K6) |
|
3456 |
|
=СУММ(M6:O6) |
=ЕСЛИ(E6+L6-F6-P6>0;E6+L6-F6-P6;) |
=ЕСЛИ(-E6-L6+F6+P6>0;-E6-L6+F6+P6;) |
=ЕСЛИ(Q6>0;"Долг";"") | |||
=СУММ(G7:K7) |
2500 |
2345 |
100 |
=СУММ(M7:O7) |
=ЕСЛИ(E7+L7-F7-P7>0;E7+L7-F7-P7;) |
=ЕСЛИ(-E7-L7+F7+P7>0;-E7-L7+F7+P7;) |
=ЕСЛИ(Q7>0;"Долг";"") | |||
=СУММ(G8:K8) |
2000 |
1500 |
|
=СУММ(M8:O8) |
=ЕСЛИ(E8+L8-F8-P8>0;E8+L8-F8-P8;) |
=ЕСЛИ(-E8-L8+F8+P8>0;-E8-L8+F8+P8;) |
=ЕСЛИ(Q8>0;"Долг";"") | |||
=СУММ(G9:K9) |
1500 |
500 |
|
=СУММ(M9:O9) |
=ЕСЛИ(E9+L9-F9-P9>0;E9+L9-F9-P9;) |
=ЕСЛИ(-E9-L9+F9+P9>0;-E9-L9+F9+P9;) |
=ЕСЛИ(Q9>0;"Долг";"") | |||
=СУММ(G10:K10) |
2020 |
|
1322 |
=СУММ(M10:O10) |
=ЕСЛИ(E10+L10-F10-P10>0;E10+L10-F10-P10;) |
=ЕСЛИ(-E10-L10+F10+P10>0;-E10-L10+F10+P10;) |
=ЕСЛИ(Q10>0;"Долг";"") | |||
=СУММ(G11:K11) |
3000 |
|
6567 |
=СУММ(M11:O11) |
=ЕСЛИ(E11+L11-F11-P11>0;E11+L11-F11-P11;) |
=ЕСЛИ(-E11-L11+F11+P11>0;-E11-L11+F11+P11;) |
=ЕСЛИ(Q11>0;"Долг";"") | |||
=СУММ(G12:K12) |
2600 |
2000 |
400 |
=СУММ(M12:O12) |
=ЕСЛИ(E12+L12-F12-P12>0;E12+L12-F12-P12;) |
=ЕСЛИ(-E12-L12+F12+P12>0;-E12-L12+F12+P12;) |
=ЕСЛИ(Q12>0;"Долг";"") | |||
=СУММ(G13:K13) |
845 |
1670 |
|
=СУММ(M13:O13) |
=ЕСЛИ(E13+L13-F13-P13>0;E13+L13-F13-P13;) |
=ЕСЛИ(-E13-L13+F13+P13>0;-E13-L13+F13+P13;) |
=ЕСЛИ(Q13>0;"Долг";"") | |||
=СУММ(G14:K14) |
5000 |
1600 |
1000 |
=СУММ(M14:O14) |
=ЕСЛИ(E14+L14-F14-P14>0;E14+L14-F14-P14;) |
=ЕСЛИ(-E14-L14+F14+P14>0;-E14-L14+F14+P14;) |
=ЕСЛИ(Q14>0;"Долг";"") | |||
=СУММ(G15:K15) |
3200 |
1000 |
1800 |
=СУММ(M15:O15) |
=ЕСЛИ(E15+L15-F15-P15>0;E15+L15-F15-P15;) |
=ЕСЛИ(-E15-L15+F15+P15>0;-E15-L15+F15+P15;) |
=ЕСЛИ(Q15>0;"Долг";"") | |||
=СУММ(G16:K16) |
2000 |
3567 |
|
=СУММ(M16:O16) |
=ЕСЛИ(E16+L16-F16-P16>0;E16+L16-F16-P16;) |
=ЕСЛИ(-E16-L16+F16+P16>0;-E16-L16+F16+P16;) |
=ЕСЛИ(Q16>0;"Долг";"") | |||
=СУММ(G17:K17) |
2000 |
|
5476 |
=СУММ(M17:O17) |
=ЕСЛИ(E17+L17-F17-P17>0;E17+L17-F17-P17;) |
=ЕСЛИ(-E17-L17+F17+P17>0;-E17-L17+F17+P17;) |
=ЕСЛИ(Q17>0;"Долг";"") | |||
=СУММ(G18:K18) |
2300 |
|
2000 |
=СУММ(M18:O18) |
=ЕСЛИ(E18+L18-F18-P18>0;E18+L18-F18-P18;) |
=ЕСЛИ(-E18-L18+F18+P18>0;-E18-L18+F18+P18;) |
=ЕСЛИ(Q18>0;"Долг";"") | |||
=СУММ(G19:K19) |
|
5643 |
|
=СУММ(M19:O19) |
=ЕСЛИ(E19+L19-F19-P19>0;E19+L19-F19-P19;) |
=ЕСЛИ(-E19-L19+F19+P19>0;-E19-L19+F19+P19;) |
=ЕСЛИ(Q19>0;"Долг";"") | |||
=СУММ(G20:K20) |
3567 |
1000 |
1000 |
=СУММ(M20:O20) |
=ЕСЛИ(E20+L20-F20-P20>0;E20+L20-F20-P20;) |
=ЕСЛИ(-E20-L20+F20+P20>0;-E20-L20+F20+P20;) |
=ЕСЛИ(Q20>0;"Долг";"") | |||
=СУММ(G21:K21) |
=СУММ(M3:M20) |
=СУММ(N3:N20) |
=СУММ(O3:O20) |
=СУММ(P3:P20) |
=ЕСЛИ(СЧЁТЕСЛИ(S3:S20;"Долг");"Должники есть";"Должников нету") |
Вывести на экран список фирм с использованием фильтра - Фирмы, не оплатившие арендную плату.
Результат :
фирмы |
аренда |
Next |
|
WDFG |
|
Построить Диаграмму, отображающую долю каждого платежа в общей сумме одной фирмы.