Отчёт о прохождении практики по дисциплине "Информатика"

520 PRINT “-“;

530 NEXT K

540 RETURN 

Выводим на LIST при помощи клавиши F1

Запускаем программу при помощи клавиши  F2 
 
 

Экзаменационная ведомость

по дисциплине информатика

                                                          для студентов группы 119 

 
 

33

Задание № 3

Разработать программу  создания ведомости, используя одномерные массивы. Вывести на экран таблицу. Заполнить таблицу данными, используя  функцию TAB

5 PRINT “ввод N”

10 INPUT N

20 DIM KP(N), A(N), B(N), C(N), X(N)

30 PRINT “ввод данных в массивы”

40 FOR I=1 TO N

50 INPUT KP(I), A(I), B(I), C(I)

60 NEXT I

70 LET Y=0

80 FOR I=1 TO N

90 LET X(I)= A(I)+B(I)+C(I)

100 LET Y=Y+X(I)

110 NEXT I

120 PRINT TAB(15);”Ведомость поступления зерна, ц”

125 PRINT

130 GOSUB 500

140 PRINT TAB(3);”:”; TAB(5);”Код”; TAB(20);”:”; TAB(27);”№ тока “; TAB(42);”:”; TAB(45);”Всего”; TAB(55);”:”

150 PRINT TAB(3);”:”; TAB(5);”Подразделения”; TAB(20);”:”;”---------------------“; TAB(42);”:”; TAB(55);”:”

160 PRINT TAB(3);”:”; TAB(20);”:”; TAB(23);”№ 1”; TAB(28);”:”; TAB(30);”№ 2”; TAB(35);”:”; TAB(37);”№ 3”;TAB(42);”:”; TAB(55);”:”

34

170 GOSUB 500

180 PRINT

190 FOR I=1 TO N

200 PRINT TAB(3);":";TAB(5);KP(I);TAB(20);":";TAB(22);A(I);TAB(28);":";TAB(29);B(I);TAB(35);":";TAB(36);C(I);TAB(42);":";TAB(43);X(I);TAB(55);":"

210 NEXT I

220 PRINT

230 GOSUB 500

240 PRINT TAB(3);":";TAB(5);"ИТОГО  ПО";TAB(20);":";TAB(28);":";TAB(35);":";TAB(42);":";TAB(43);Y;TAB(55);":"

245 PRINT TAB(3);":";TAB(5);"ХОЗЯЙСТВУ";TAB(20);":";TAB(28);":";TAB(35);":";TAB(42);":";TAB(55);":"

250 OSUB 500

260 END

500 REM "ПРОГРАММА РИСОВАНИЯ ЛИНИИ"

510 FOR K=1 TO N

520 PRINT "-";

530 NEXT K

540 RETURN 

Выводим на LIST при помощи клавиши F1

Запускаем программу при помощи клавиши  F2 

35

Ведомость поступления  зерна, ц 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

36

Задание № 4

Разработать программу  создания ведомости, используя двумерный  массив. Вывести на экран таблицу. Заполнить таблицу данными, используя  функцию TAB

10 PRINT “ввод количества строк”

20 INPUT N

30 DIM A(N,5)

40 PRINT “Ввод элементов массива”

50 FOR I=1 TO N

60 INPUT A(I,1), A(I,2), A(I,3), A(I,4)

70 NEXT I

80 LET Y=0

90 FOR I=1 TO N

100 LET X(I,5)= A(I,2)+A(I,3)+A(I,4)

110 LET Y= Y+X(I,5)

120 NEXT I

130 PRINT TAB(15);”Ведомость поступления зерна, ц”

140 PRINT

150 GOSUB 500

160 PRINT TAB(3);”:”; TAB(5);”Код”; TAB(20);”:”; TAB(27);”№ тока “; TAB(42);”:”; TAB(45);”Всего”; TAB(55);”:”

170 PRINT TAB(3);”:”; TAB(5);”Подразделения”; TAB(20);”:”;”---------------------“; TAB(42);”:”; TAB(55);”:”

180 PRINT TAB(3);”:”; TAB(20);”:”; TAB(23);”№ 1”; TAB(28);”:”; TAB(30);”№ 2”; TAB(35);”:”; TAB(37);”№ 3”;TAB(42);”:”; TAB(55);”:”

37

190 GOSUB 500

200 PRINT

210 FOR I=1 TO N

220 PRINT TAB(3);":";TAB(5);A(I,1);TAB(20);":";TAB(23);A(I,2);TAB(28);":";TAB(30);A(I,3);TAB(35);":";TAB(37);A(I,4);TAB(42);":";TAB(43);X(I,5);TAB(55);":"

230 NEXT I

240 PRINT

250 GOSUB 500

260 PRINT TAB(3);":";TAB(5);"ИТОГО  ПО";TAB(20);":";TAB(28);":";TAB(35);":";TAB(42);":";TAB(43);Y;TAB(55);":"

270 PRINT TAB(3);":";TAB(5);"ХОЗЯЙСТВУ";TAB(20);":";TAB(28);":";TAB(35);":";TAB(42);":";TAB(55);":"

280 GOSUB 500

290 END

500 REM "ПРОГРАММА РИСОВАНИЯ ЛИНИИ"

510 FOR K=1 TO N

520 PRINT "-";

530 NEXT K

540 RETURN 

Выводим на LIST при помощи клавиши F1

Запускаем программу при помощи клавиши  F2 

38

Ведомость поступления  зерна, ц 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

39

Список  используемой литературы: 

1)Зверев В.С. Информатика:  Учебное пособие для студентов  вузов

2) Информатика. Лекции

3) Крейнак Д. Интернет. Энциклопедия

4)Поисковая система  yandex, сайты:

http://net.e-publish.ru/p216aa1.html

http://www.agakids.ru/informatic/8.htm

http://marklv.narod.ru/book/urok4.htm