Контрольная работа по "Информатика"

Автор работы: Пользователь скрыл имя, 15 Марта 2016 в 18:56, контрольная работа

Описание работы

Разработать алгоритм и написать программу на языке Turbo Pascal.
Задана матрица (двумерный массив) A размером N x М, состоящая из действительных элементов. Числа M и N вводятся с клавиатуры. Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел. Где это необходимо ввести квадратную матрицу. Во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы.
Найти, сколько отрицательных элементов содержит данная матрица в каждой строке. Заменить все отрицательные элементы на 0. Вывести на экран число отрицательных элементов по каждой строке и полученную матрицу.
Матрица квадратная.

Содержание работы

Задание №1……………………………………………………………………………….4
Задание №2……………………………………………………………………………….10
Задание №3……………………………………………………………………………….18
Задание №4……………………………………………………………………………….24
Задание №5……………………………………………………………………………….30
Список литературы………………………

Скачать архив (277.13 Кб) Сколько стоит заказать работу?

Файлы: 1 файл

Вариант №5.doc

— 1.08 Мб (Скачать файл)

Оглавление

Задание №1……………………………………………………………………………….4

Задание №2……………………………………………………………………………….10

Задание №3……………………………………………………………………………….18

Задание №4……………………………………………………………………………….24

Задание №5……………………………………………………………………………….30

Список литературы………………………………………………………………………42

Задание №1

Разработать алгоритм и написать программу на языке Turbo Pascal.

Задана матрица (двумерный массив) A размером N x М, состоящая из действительных элементов. Числа M и N вводятся с клавиатуры. Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел. Где это необходимо ввести квадратную матрицу. Во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы.

Найти, сколько отрицательных элементов содержит данная матрица в каждой строке. Заменить все отрицательные элементы на 0. Вывести на экран число отрицательных элементов по каждой строке и полученную матрицу.

Матрица квадратная.

Блок-схема

Пример 1

Пример исходных данных:

n=3,

Результат работы программы:

1 строка – 1

2 строка – 1

3 строка – 2

Пример 2

Листинг программы

uses crt;

var

i,j,n,chis:integer;

A:array[1..50,1..50]of integer;

kol:array[1..50]of integer;

variant:byte;

begin

clrscr;

Randomize;

Write('Wwedite n: ');Readln(n);

Write('Wwedite 1 ili 2: ');Readln(variant);

if (variant=1) then

begin

for i:=1 to n do

for j:=1 to n do

A[i,j]:=5-random(10);

end

else

begin

for i:=1 to n do

for j:=1 to n do

begin

write('A[',i,',',j,']=');

Read(chis);A[i,j]:=chis;

end;

for i:=1 to n do

for j:=1 to n do

if(A[i,j]<0)then kol[i]:=kol[i]+1;

for i:=1 to n do

Writeln(i,'-aj stroka - ',kol[i]);

for i:=1 to n do

begin

for j:=1 to n do

begin

if(A[i,j]<0) then A[i,j]:=0;

Write(A[i,j],' ');

end;

Writeln;

end;

Readln;

end.

Задание №2

Построение электронных таблиц.

По 4-5 адресам находится не менее 15 фирм-арендаторов. Постройте для фирм таблицу, отражающую расчеты за услуги.

Правила формирования столбцов

Столбцы с заголовками №, Фирма-арендатор, Адрес, Занимаемая площадь заполняются произвольно
На начало месяца фирма по услугам имеет долг или переплату, т.е. произвольно заполняется ячейка или в столбце Задолженность или в столбце Переплата.
Графа Оплачено заполняется произвольно, причём фирма может оплатить только некоторые из услуг или все услуги в неполном объёме.

Расчёт ячеек

В графе Начисления: аренда, коммун. услуги, тех. обслуживание рассчитываются как произведение площади аренды на соответствующий коэффициент. Коэффициент берётся из таблицы коэффициентов, которая заполняется самостоятельно ниже основной таблицы.
Процент НДС берётся из таблицы коэффициентов и составляет 10-20%

Таблица коэффициентов:

Услуга	Коэффициент
Аренда	9,208
Коммун. Платежи	5,304
Тех. обслуживание	3,125
НДС	18%

С помощью функции итоги посчитать итоговые суммы по каждому адресу аренды.

Вывести на экран список фирм с использованием фильтра:

Фирмы, не оплатившие арендную плату.

Построить диаграмму, отображающую долю каждого адреса в общей сумме задолженностей на начало и конец месяца.

Таблица фирм-арендаторов

Фирма-арендатор

Адрес

Занимаемая площадь

На начало месяца

Начислено

Итого начислено

Проплачено

Итого проплачено

На конец месяца

Статус

задолженность

переплата

аренда

НДС аренды

коммун. платежи

НДС

тех. обслуживание

аренда

коммун. платежи

тех. обслуживание

задолженность

переплата

ОАО "Орелинтурист"

г. Орел, ул. Пушкина, 4

2,30р.

230,20р.

41,44р.

132,60р.

23,87р.

78,13р.

506,23р.

0,00р.

135,00р.

120,00р.

515,00р.

0,00р.

6,47р.

Долг

ООО "Мед-тур"

г. Орел, ул. Гагарина, 8

2,30р.

211,78р.

38,12р.

121,99р.

21,96р.

71,88р.

465,73р.

220,00р.

125,00р.

79,00р.

424,00р.

44,03р.

0,00р.

Долг

Турагентство "Дельфин"

г. Орел, ул. Матвеева, 1

26,30р.

220,99р.

39,78р.

127,30р.

22,91р.

75,00р.

485,98р.

230,00р.

130,00р.

79,00р.

439,00р.

20,68р.

0,00р.

Долг

Турагентство "Солнечный тур"

г. Орел, ул. Гагарина, 8

6,15р.

294,66р.

53,04р.

169,73р.

30,55р.

100,00р.

647,97р.

365,00р.

170,00р.

135,00р.

670,00р.

0,00р.

15,88р.

Турагентство "Мечта"

г. Орел, ул. Матвеева, 1

39,30р.

285,45р.

51,38р.

164,42р.

29,60р.

96,88р.

627,72р.

350,00р.

165,00р.

100,00р.

615,00р.

0,00р.

26,58р.

Турагентство "Милан"

г. Орел, ул. Пушкина, 4

46,15р.

322,28р.

58,01р.

185,64р.

33,42р.

109,38р.

708,72р.

370,00р.

190,00р.

110,00р.

670,00р.

0,00р.

7,43р.

Магазин "Арбат"

г. Орел, ул. Гагарина, 8

33,18р.

414,36р.

74,58р.

238,68р.

42,96р.

140,63р.

911,21р.

450,00р.

240,00р.

150,00р.

840,00р.

38,03р.

0,00р.

Долг

ТЦ Мебель Сити

г. Орел, ул. Пушкина, 4

15,26р.

580,10р.

104,42р.

334,15р.

60,15р.

196,88р.

1 275,70р.

600,00р.

350,00р.

200,00р.

1 150,00р.

140,96р.

0,00р.

Долг

ТЦ Атолл

г. Орел, ул. Гайдара, 3

120

19,82р.

1 104,96р.

198,89р.

636,48р.

114,57р.

375,00р.

2 429,90р.

1 120,00р.

637,00р.

400,00р.

2 157,00р.

253,08р.

0,00р.

Долг

Торговый дом "Солнышко"

г. Орел, ул. Матвеева, 1

18,73р.

570,90р.

102,76р.

328,85р.

59,19р.

193,75р.

1 255,45р.

600,00р.

330,00р.

200,00р.

1 130,00р.

106,72р.

0,00р.

Долг

ООО "Чистый воздух"

г. Орел, ул. Гайдара, 3

5,30р.

267,03р.

48,07р.

153,82р.

27,69р.

90,63р.

587,23р.

320,00р.

180,00р.

100,00р.

600,00р.

0,00р.

7,47р.

ЗАО "Союз Иж""

г. Орел, ул. Гагарина, 8

24,18р.

377,53р.

67,96р.

217,46р.

39,14р.

128,13р.

830,22р.

0,00р.

220,00р.

130,00р.

750,00р.

56,04р.

0,00р.

Долг

Зоомагазин "Кормушка"

г. Орел, ул. Гайдара, 3

30,08р.

395,94р.

71,27р.

228,07р.

41,05р.

134,38р.

870,71р.

400,00р.

230,00р.

150,00р.

780,00р.

60,63р.

0,00р.

Долг

Зоомагазин "Природа"

г. Орел, ул. Матвеева, 1

34,48р.

414,36р.

74,58р.

238,68р.

42,96р.

140,63р.

911,21р.

500,00р.

240,00р.

150,00р.

890,00р.

0,00р.

13,27р.

ОАО "Орел-Лада"

г. Орел, ул. Пушкина, 4

4,19р.

349,90р.

62,98р.

201,55р.

36,28р.

118,75р.

769,47р.

350,00р.

205,00р.

120,00р.

675,00р.

98,66р.

0,00р.

Долг

ООО "БАМ-Орел"

г. Орел, ул. Гагарина, 8

3,65р.

248,62р.

44,75р.

143,21р.

25,78р.

84,38р.

546,73р.

0,00р.

150,00р.

100,00р.

570,00р.

0,00р.

19,62р.

Долг

Итого

39,15р.

272,22р.

6 289,06р.

1 132,03р.

3 622,63р.

652,07р.

2 134,38р.

13 830,18р.

5875,00р.

3 697,00р.

2 323,00р.

12 875,00р.

818,82р.

96,72р.

Таблица в формульном виде:

N	Фирма-арендатор	Адрес	Занимаемая площадь	На начало месяца		Начислено					Итого начислено
N	Фирма-арендатор	Адрес	Занимаемая площадь	задолженность	переплата	аренда	НДС аренды	коммун. платежи	НДС	тех. обслуживание	Итого начислено

1	ОАО "Орелинтурист"	г. Орел, ул. Пушкина, 4	25	2,3		=D4*$C$24	=G4*$C$27	=D4*$C$25	=I4*$C$27	=D4*$C$26	=G4+H4+I4+K4+J4
2	ООО "Мед-тур"	г. Орел, ул. Гагарина, 8	23	2,3		=D5*$C$24	=G5*$C$27	=D5*$C$25	=I5*$C$27	=D5*$C$26	=G5+H5+I5+K5+J5
3	Турагентство "Дельфин"	г. Орел, ул. Матвеева, 1	24		26,3	=D6*$C$24	=G6*$C$27	=D6*$C$25	=I6*$C$27	=D6*$C$26	=G6+H6+I6+K6+J6
4	Турагентство "Солнечный тур"	г. Орел, ул. Гагарина, 8	32	6,15		=D7*$C$24	=G7*$C$27	=D7*$C$25	=I7*$C$27	=D7*$C$26	=G7+H7+I7+K7+J7
5	Турагентство "Мечта"	г. Орел, ул. Матвеева, 1	31		39,3	=D8*$C$24	=G8*$C$27	=D8*$C$25	=I8*$C$27	=D8*$C$26	=G8+H8+I8+K8+J8
6	Турагентство "Милан"	г. Орел, ул. Пушкина, 4	35		46,15	=D9*$C$24	=G9*$C$27	=D9*$C$25	=I9*$C$27	=D9*$C$26	=G9+H9+I9+K9+J9
7	Магазин "Арбат"	г. Орел, ул. Гагарина, 8	45		33,18	=D10*$C$24	=G10*$C$27	=D10*$C$25	=I10*$C$27	=D10*$C$26	=G10+H10+I10+K10+J10
8	ТЦ Мебель Сити	г. Орел, ул. Пушкина, 4	63	15,26		=D11*$C$24	=G11*$C$27	=D11*$C$25	=I11*$C$27	=D11*$C$26	=G11+H11+I11+K11+J11
9	ТЦ Атолл	г. Орел, ул. Гайдара, 3	120		19,82	=D12*$C$24	=G12*$C$27	=D12*$C$25	=I12*$C$27	=D12*$C$26	=G12+H12+I12+K12+J12
10	Торговый дом "Солнышко"	г. Орел, ул. Матвеева, 1	62		18,73	=D13*$C$24	=G13*$C$27	=D13*$C$25	=I13*$C$27	=D13*$C$26	=G13+H13+I13+K13+J13
11	ООО "Чистый воздух"	г. Орел, ул. Гайдара, 3	29	5,3		=D14*$C$24	=G14*$C$27	=D14*$C$25	=I14*$C$27	=D14*$C$26	=G14+H14+I14+K14+J14
12	ЗАО "Союз Иж""	г. Орел, ул. Гагарина, 8	41		24,18	=D15*$C$24	=G15*$C$27	=D15*$C$25	=I15*$C$27	=D15*$C$26	=G15+H15+I15+K15+J15
13	Зоомагазин "Кормушка"	г. Орел, ул. Гайдара, 3	43		30,08	=D16*$C$24	=G16*$C$27	=D16*$C$25	=I16*$C$27	=D16*$C$26	=G16+H16+I16+K16+J16
14	Зоомагазин "Природа"	г. Орел, ул. Матвеева, 1	45		34,48	=D17*$C$24	=G17*$C$27	=D17*$C$25	=I17*$C$27	=D17*$C$26	=G17+H17+I17+K17+J17
15	ОАО "Орел-Лада"	г. Орел, ул. Пушкина, 4	38	4,19		=D18*$C$24	=G18*$C$27	=D18*$C$25	=I18*$C$27	=D18*$C$26	=G18+H18+I18+K18+J18
16	ООО "БАМ-Орел"	г. Орел, ул. Гагарина, 8	27	3,65		=D19*$C$24	=G19*$C$27	=D19*$C$25	=I19*$C$27	=D19*$C$26	=G19+H19+I19+K19+J19
Итого				=СУММ(E4:E19)	=СУММ(F4:F19)	=СУММ(G4:G19)	=СУММ(H4:H19)	=СУММ(I4:I19)	=СУММ(J4:J19)	=СУММ(K4:K19)	=СУММ(L4:L19)

Продолжение таблицы в формульном виде:

Проплачено			Итого проплачено	На конец месяца		Статус
аренда	коммун. платежи	тех. обслуживание	Итого проплачено	задолженность	переплата	Статус

0	135	120	=M4+N4+O4	=ЕСЛИ(E4+L4-F4-P4>0;E4+L4-F4-P4;0)	=ЕСЛИ(F4+P4-E4-L4>0;F4+P4-E4-L4;0)	=ЕСЛИ(Q4>0;"Долг";"")
220	125	79	=M5+N5+O5	=ЕСЛИ(E5+L5-F5-P5>0;E5+L5-F5-P5;0)	=ЕСЛИ(F5+P5-E5-L5>0;F5+P5-E5-L5;0)	=ЕСЛИ(Q5>0;"Долг";"")
230	130	79	=M6+N6+O6	=ЕСЛИ(E6+L6-F6-P6>0;E6+L6-F6-P6;0)	=ЕСЛИ(F6+P6-E6-L6>0;F6+P6-E6-L6;0)	=ЕСЛИ(Q6>0;"Долг";"")
365	170	135	=M7+N7+O7	=ЕСЛИ(E7+L7-F7-P7>0;E7+L7-F7-P7;0)	=ЕСЛИ(F7+P7-E7-L7>0;F7+P7-E7-L7;0)	=ЕСЛИ(Q7>0;"Долг";"")
350	165	100	=M8+N8+O8	=ЕСЛИ(E8+L8-F8-P8>0;E8+L8-F8-P8;0)	=ЕСЛИ(F8+P8-E8-L8>0;F8+P8-E8-L8;0)	=ЕСЛИ(Q8>0;"Долг";"")
370	190	110	=M9+N9+O9	=ЕСЛИ(E9+L9-F9-P9>0;E9+L9-F9-P9;0)	=ЕСЛИ(F9+P9-E9-L9>0;F9+P9-E9-L9;0)	=ЕСЛИ(Q9>0;"Долг";"")
450	240	150	=M10+N10+O10	=ЕСЛИ(E10+L10-F10-P10>0;E10+L10-F10-P10;0)	=ЕСЛИ(F10+P10-E10-L10>0;F10+P10-E10-L10;0)	=ЕСЛИ(Q10>0;"Долг";"")
600	350	200	=M11+N11+O11	=ЕСЛИ(E11+L11-F11-P11>0;E11+L11-F11-P11;0)	=ЕСЛИ(F11+P11-E11-L11>0;F11+P11-E11-L11;0)	=ЕСЛИ(Q11>0;"Долг";"")
1120	637	400	=M12+N12+O12	=ЕСЛИ(E12+L12-F12-P12>0;E12+L12-F12-P12;0)	=ЕСЛИ(F12+P12-E12-L12>0;F12+P12-E12-L12;0)	=ЕСЛИ(Q12>0;"Долг";"")
600	330	200	=M13+N13+O13	=ЕСЛИ(E13+L13-F13-P13>0;E13+L13-F13-P13;0)	=ЕСЛИ(F13+P13-E13-L13>0;F13+P13-E13-L13;0)	=ЕСЛИ(Q13>0;"Долг";"")
320	180	100	=M14+N14+O14	=ЕСЛИ(E14+L14-F14-P14>0;E14+L14-F14-P14;0)	=ЕСЛИ(F14+P14-E14-L14>0;F14+P14-E14-L14;0)	=ЕСЛИ(Q14>0;"Долг";"")
0	220	130	=M15+N15+O15	=ЕСЛИ(E15+L15-F15-P15>0;E15+L15-F15-P15;0)	=ЕСЛИ(F15+P15-E15-L15>0;F15+P15-E15-L15;0)	=ЕСЛИ(Q15>0;"Долг";"")
400	230	150	=M16+N16+O16	=ЕСЛИ(E16+L16-F16-P16>0;E16+L16-F16-P16;0)	=ЕСЛИ(F16+P16-E16-L16>0;F16+P16-E16-L16;0)	=ЕСЛИ(Q16>0;"Долг";"")
500	240	150	=M17+N17+O17	=ЕСЛИ(E17+L17-F17-P17>0;E17+L17-F17-P17;0)	=ЕСЛИ(F17+P17-E17-L17>0;F17+P17-E17-L17;0)	=ЕСЛИ(Q17>0;"Долг";"")
350	205	120	=M18+N18+O18	=ЕСЛИ(E18+L18-F18-P18>0;E18+L18-F18-P18;0)	=ЕСЛИ(F18+P18-E18-L18>0;F18+P18-E18-L18;0)	=ЕСЛИ(Q18>0;"Долг";"")
0	150	100	=M19+N19+O19	=ЕСЛИ(E19+L19-F19-P19>0;E19+L19-F19-P19;0)	=ЕСЛИ(F19+P19-E19-L19>0;F19+P19-E19-L19;0)	=ЕСЛИ(Q19>0;"Долг";"")
=СУММ(M4:M19)	=СУММ(N4:N19)	=СУММ(O4:O19)	=СУММ(P4:P19)	=СУММ(Q4:Q19)	=СУММ(R4:R19)	=СЧЁТЕСЛИ(S4:S19;’’долг’’)

Фирмы, не оплатившие арендную плату.

Фирма-арендатор

Адрес

Занимаемая площадь

На начало месяца

Начислено

Итого начислено

Проплачено

Итого проплачено

На конец месяца

Статус

задолженность

переплата

аренда

НДС аренды

коммун. платежи

НДС

тех. обслуживание

аренда

коммун. платежи

тех. обслуживание

задолженность

переплата

ОАО "Орелинтурист"

г. Орел, ул. Пушкина, 4

2,30р.

230,20р.

41,44р.

132,60р.

23,87р.

78,13р.

506,23р.

0,00р.

135,00р.

120,00р.

515,00р.

0,00р.

6,47р.

Долг

ЗАО "Союз Иж""

г. Орел, ул. Гагарина, 8

24,18р.

377,53р.

67,96р.

217,46р.

39,14р.

128,13р.

830,22р.

0,00р.

220,00р.

130,00р.

750,00р.

56,04р.

0,00р.

Долг

ООО "БАМ-Орел"

г. Орел, ул. Гагарина, 8

3,65р.

248,62р.

44,75р.

143,21р.

25,78р.

84,38р.

546,73р.

0,00р.

150,00р.

100,00р.

570,00р.

0,00р.

19,62р.

Долг

Информация о работе Контрольная работа по "Информатика"