Учебное пособие 36
.pdfPROGRAM KR2;
TYPE MAT1=ARRAY[1..5,1..10] OF REAL;
VEK1=ARRAY[1..5] OF REAL;
VAR MM:MAT1; VV:VEK1;
S:REAL; I,J:INTEGER;
BEGIN
WRITELN(‘Введите элементы матрицы MM’);
FOR I:=1 TO 5 DO
FOR J:=1 TO 10 DO READ(MM[I,J]);
WRITELN(‘Исходная матрица MM’);
FOR I:=1 TO 5 DO
BEGIN
FOR J:=1 TO 10 DO WRITE(MM[I,J]:8:2);
WRITELN
END;
FOR I:=1 TO 5 DO
BEGIN
S:=0;
FOR J:=1 TO 10 DO
IF MM[I,J]>=0 THEN S:=S+MM[I,J];
VV[I]:=S
END;
WRITELN(‘Вектор сумм’);
FOR I:=1 TO 5 DO
WRITELN(‘VV[‘,I,’]=’,VV[I]:8:2);
END.
Задача 3
Формула для определения номера варианта в данном случае имеет вид |a-b|.
Пусть требуется выполнить задание: составить программу, использую-
11
щую процедуру упорядочения по убыванию массива М, содержащего не более 100 вещественных чисел.
PROGRAM KR3;
TYPE MAS=ARRAY[1..100] OF REAL; VAR M:MAS; I,N:INTEGER;
PROCEDURE UP(VAR M:MAS; K:INTEGER); VAR J:INTEGER; T:REAL; P:BOOLEAN; BEGIN
P:=TRUE; WHILE P DO BEGIN
P:=FALSE;
FOR J:=1 TO K-1 DO
IF M[J]<M[J+1] THEN BEGIN
T:=M[J+1];
M[J+1]:=M[J];
M[J]:=T;
P:=TRUE;
END;
END;
END;
BEGIN
WRITELN(‘Введите число элементов массива’); READLN(N);
WRITELN(‘Введите элементы массива М’); FOR I:=1 TO N DO READLN(M[I]); UP(M,N);
WRITELN(‘Упорядоченный массив’); FOR I:=1 TO N DO
WRITELN(‘M[‘,I,’]=’,M[I]:5:1);
END.
Задача 4
Номер варианта определяется по формуле a+b и выбирается из заданий раздела 2.
12
Пример. Написать функцию поиска максимального элемента одномерного массива, содержащего не более N вещественных чисел.
Считаем, что в разделе констант основной программы задано конкретное значение N, а в разделе типов определен тип MAS=ARRAY[1..N] OF REAL.
FUNCTION MAX(M:MAS; K:INTEGER):REAL;
VAR I:INTEGER; T:REAL;
BEGIN
T:=M[1];
FOR I:=2 TO K DO
IF M[I]>T THEN T:=M[I];
MAX:=T;
END.
При обращении к функции MAX в качестве фактических параметров указывается имя массива и его реальная длина, не превышающая N. Сам массив должен быть типа MAS, так как соответствующие формальные и фактические параметры должны быть одного и того же типа.
БИБЛИОГРАФИЧЕСКИЙ СПИСОК РЕКОМЕНДУЕМОЙ ЛИТЕРАТУРЫ
1.Информатика: Учебник / Под ред. Н.В.Макаровой. - М.: Финансы и ста-
тистика. - 2005. - 768 с.
2.Информатика: Практикум по технологии работы на компьютере / Под ред. Н.В.Макаровой. - М.: Финансы и статистика. - 2007. - 384 с.
3.Могилев А.В. Информатика: Учебное пособие для пед. вузов – М.: Ака-
демия. – 2004. – 848 с.
4.Окулов С.М. Основы программирования – М.: БИНОМ. – 2006. – 440 с.
5.Зуев Е.А. Turbo Pascal. Практическое программирование. – М.: Стрикс.
-2007. - 331 с.
6.Авдеев В.П., Кононов А.Д., Кононов А.А. «Информатика» учебное пособие для подготовки к Интернет-экзамену (часть I). – Воронеж, ВГАСУ, 2010.
7.Гильмутдинов В.И., Кононов А.Д., Кононов А.А. «Информатика» учебное пособие для самостоятельной работы студентов всех специальностей. – Воронеж, ВГАСУ, 2010.
13
|
ОГЛАВЛЕНИЕ |
|
Введение..................................................................................................... |
3 |
|
1. |
Вычисление суммы членов бесконечного ряда.................................. |
4 |
2. |
Алгоритмы со структурой вложенных циклов.................................... |
4 |
3. |
Организация подпрограмм................................................................... |
5 |
3.1. Подпрограмма – процедура (procedure)........................................... |
5 |
|
3.2. Подпрограмма – функция (function).................................................. |
6 |
|
Пример выполнения контрольной работы........................................... |
7 |
|
Библиографический список рекомендуемой литературы.................... |
11 |
|
ИНФОРМАТИКА
Методические указания к выполнению контрольной работы № 2 для студентов заочного обучения всех направлений подготовки
Составители: Виктор Петрович Авдеев, Владимир Исламович Гильмутдинов, Александр Давыдович Кононов, Андрей Александрович Кононов
Подписано в печать 12.12.2012. Формат 60х84 1/16. Уч.-изд. л. 0,7. Усл.-печ. л. 0,8. Бумага писчая. Тираж 120 экз. Заказ № ______ .
________________________________________________________________________________
Отпечатано: отдел оперативной полиграфии издательства учебной литературы и учебно-методических пособий
Воронежского ГАСУ 394006, Воронеж, ул. 20-летия Октября, 84.
14