Информатика_ЗФ / Лабораторный практикум по программированию / Лабораторный_практикум_по_программированию_4
.pdf1) S=0 |
2) S=0 : K=0 : P=0 |
K=0 |
FOR I=1 TO 10 |
FOR I=1 TO 10 |
IF A(I)>0 THEN |
IF A(I)>0 THEN |
S=S+1 |
S=S+A(I) |
ELSEIF A(I)<0 THEN |
K=K+1 |
K=K+1 |
END IF |
ELSE |
NEXT I |
P=P+1 |
PRINT S/K |
END IF |
|
NEXT I |
|
PRINT "S=";S;"K=";K;"P=";P |
3) S =0
FOR I=1 TO 10
S=S+A(I) NEXT I PRINT S
5) FOR I=1 TO 5 S=A(I)+A(11-I) PRINT S; NEXT I
7)J=0
FOR I=1 TO 10
IF A(I)>=2 AND A(I)<=9
THEN
J=J+1
N(J)=I
PRINT N(J)
END IF
NEXT I
4) S=0
FOR I=1 TO 10
IF A(I)<0 THEN S=S+1 NEXT I
PRINT "S=";S
6) FOR I=1 TO 10
IF A(I)<0 THEN PRINT I NEXT I
8)K=0
FOR I=1 TO 10 STEP 3 K=K+1 Y(K)=A(I) PRINT Y(K);
NEXT I
23. Укажите, в каком порядке будут печататься элементы матрицы в результате работы фрагмента программы:
FOR I=1 TO 6 STEP 2
FOR J=1 TO 4 STEP 2 PRINT A(I,J); NEXT J
NEXT I
61
24.Укажите ответ, который получится в результате работы фрагмента программы, если исходный массив имеет вид:
1 |
2 |
5 |
4 |
5 |
|
|
|
8 |
5 |
1 |
|
А 2 |
6 |
||||
|
2 |
5 |
3 |
7 |
|
|
1 |
S=0
FOR J=1 TO 5
IF A(3,J)>4 AND A(3,J)<9 THEN S=S+A(3,J)
NEXT J
PRINT S
Содержание отчета
1.Тема работы.
2.Цель работы.
3.Задание к работе.
4.Визуальное представление алгоритмов.
5.Экранная форма (при программировании на VBA).
6.Программные коды.
7.Результаты выполнения программ.
8.Файлы протестированных и отлаженных программ на электронном носителе.
62
БИБЛИОГРАФИЧЕСКИЙ СПИСОК
Основная литература:
1.Информатика [Текст] : базовый курс : учеб. пособие для вузов / под ред. С.В. Симоновича. – 2-е изд. – СПб. : Питер, 2005. – 640 с. : ил.
2. Информатика [Текст] : учебник для вузов / Н.В. Макарова, Л.А. Матвеев, В.Л. Бройдо [и др.] ; под ред. Н.В. Макаровой. – Изд. 3-е, перераб. – М. : Финансы и статистика, 2006. – 768 с. : ил.
3.Каймин, В.А. Информатика [Текст] : учебник для вузов / В.А. Каймин. – 4-е изд., перераб. и доп. – М. : ИНФРА-М, 2005. – 285 с.
Дополнительная литература:
4.Назаров, С.В. Программирование на MS Visual Basic [Текст] : рек. УМО по образованию в обл. экономики, статистики, информ. систем и математ. методов в экономике в кач-ве учеб. пособия для студ. экон. вузов, обуч-ся по спец. «Финансы и кредит» / С.В. Назаров, П.П. Мельников ; под ред. С.В. Назарова. – М. : Финансы и статистика, 2003, 2002. – 320 с.
5.Иванова, Г.С. Основы программирования [Текст] : допущено МО РФ в качестве учебника для студ. вузов, обучающихся по напр. «Информатика и вычислительная техника» спец. «Вычислительные машины, комплексы, системы и сети», «Автоматизированные системы обработки информации и управления», «Программное обеспечение вычислительной техники и информационных систем» / Г.С. Иванова. – 2-е изд., перераб. и доп. – М. : Изд-во МГТУ им. Н.Э. Баумана, 2002. – 416 с.
6.Экономическая информатика и вычислительная техника [Текст] : учебник для вузов / под ред. В.П. Косарева и Л.В. Еремина. – М. : Финансы и статистика, 2002. – 592 с.
7.Данова, Н.С. Электронный учебник по информатике [Электронный ресурс] / Н.С. Данова, В.А. Лихачев. – URL: http://bsu.edu.ru:8801/projects/inf/default.htm.
8.Новиков, Ф.А. Microsoft Office XP в целом [Текст] / Ф.А. Новиков, А.Д. Яценко. – СПб. : БХВ-Петербург, 2002. – 928 с.
9.Каммингс, Стив. VBA для «чайников» [Текст] : учебное пособие ; пер. с англ. / Стив Каммингс. – М. : Вильямс, 2000. – 384 с.
Методические разработки ЮРГУЭС:
10.Диброва, Г.Д. Лабораторный практикум по программированию [Текст] :
в4 ч. / Г.Д. Диброва. – Шахты : Изд-во ЮРГУЭС, 2007. – Ч. 1. – 32 с.
11.Диброва, Г.Д. Лабораторный практикум по программированию [Текст] :
в4 ч. / Г.Д. Диброва. – Шахты : Изд-во ЮРГУЭС, 2008. – Ч. 2. – 34 с.
12.Диброва, Г.Д. Лабораторный практикум по программированию [Текст] :
в4 ч. / Г.Д. Диброва. – Шахты : Изд-во ЮРГУЭС, 2008. – Ч. 3. – 32 с.
63
Учебное издание
Диброва Галина Дмитриевна
ЛАБОРАТОРНЫЙ
ПРАКТИКУМ ПО ПРОГРАММИРОВАНИЮ
Ответственный за выпуск Н.В. Ковбасюк
ИД № 06457 от 19.12.01 г. Издательство ЮРГУЭС. Подписано в печать 15.05.09 г.
Формат бумаги 60x84/16. Усл. печ. л. 3,7. Тираж 100 экз. Заказ № 292.
ПЛД № 65-175 от 05.11.99 г. Типография Издательства ЮРГУЭС.
346500, г. Шахты, Ростовская обл., ул. Шевченко, 147
64