V. Разветвление в цикле

На основании табл. 4 для вычисленного номера варианта написать программу на алгоритмическом языке PASCAL с использованием любого оператора цикла.

Таблица 4

Варианты к выполнению задания 5

№ варианта	Табулируемая функция	Пределы изменения х	Шаг
0		[ -1,3; 1,8 ]	0,2
1		[ -1; 0,8 ]	0,1
2		[ 3,0; 7,5 ]	0,25
3		[ -5; 10,1 ]	0,9
4		[ 0,5; 25 ]	1,5
5		[ 0; 5,1 ]	0,25
6		[ -3,4; 14,7 ]	1
Окончание табл. 4
№ варианта	Табулируемая функция	Пределы изменения х	Шаг
7		[ -4,8; 10,4 ]	0,91
8		[ -2,3; 1,2 ]	0,2
9		[ -3; 7,2 ]	0,82

VI. Работа с одномерными массивами

Определив номер варианта для данного задания, составить на языке PASCAL программу обработки одномерного массива. (Допускается использование любых операторов цикла).

0)Вычислить сумму и произведение всех элементов массива Т(10).

1)Определить максимальный элемент массива В(12) и его номер.

2)Вычислить среднее арифметическое элементов массива С(14).

3)Найти произведение отрицательных элементов массива D(11), стоящих на нечетных местах.

4)Установить, сколько элементов массива F(15) удовлетворяют следующему условию: 3<f_i<10,5.

5)Определить сумму положительных элементов массива G(10), стоящих на четных местах.

6)Поменять местами первый и последний элементы массива К(9).

7)Найти сумму элементов массива L(11), меньших 5,18.

8)Вычислить разность между максимальным и первым элементом массива М(15).

9)Установить номера максимального и минимального элементов массива N(13), а затем поменять эти элементы местами.

ПРИМЕР ВЫПОЛНЕНИЯ КОНТРОЛЬНОЙ РАБОТЫ

При выполнении задач № 3 - № 6 необходимо приводить блок-схемы алгоритмов соответствующих вычислительных процессов. Составление таких блок-схем базируется на материале курса средней школы по информатике, доступно для самостоятельного выполнения /1, 2, 4/ и поэтому в приводимом примере не рассматривается.

Предположим, что номер Вашей зачетной книжки заканчивается на 79, то есть a = 7, b = 9.

Задача 1 (Номер варианта определяется цифрой 7).

Допустим, что в задании оказались следующие примеры:

а)Перевести числа 148 и 0,149 из десятичной системы счисления в двоичную.

148₍₁₀₎ = 10010100₍₂₎

0 , 149 х 2

0 298 х 2

0 596 х 2

1 192 х 2

0 384 х 2

0 768 х 2

1 536 х 2

1 072 х 2

0 144 х 2

0 288 х 2

0 576 0,149₍₁₀₎ = 0,0010011000₍₂₎

б)Каким будет результат выполнения в TURBO PASCAL следующих функций и операций.

Round(3) = Error (нельзя применять к данным целого типа), Pred(-2) = -3

в)Записать на языке программирования PASCAL выражение

(aexp(-sqr(x)/(2sqr(c)))+bln(abs(sin(x/2)/

cos(x/2))+f))/(csqr(sin(exp(5ln(x))+1)))

Задача 2 (Номер варианта определяется цифрой 9).

Пусть это задание следующего вида. Составить на языке PASCAL программу вычисления значения функции

PROGRAM KR2;

VAR R,q,a:REAL;

BEGIN

WRITELN(‘Введите значения q,a’);

READLN(q,a);

R:=ABS(SIN(q)-7.2)+EXP(25/37LN(a))-COS(SQR(PI/5+a));

WRITELN(‘q=‘,q:8:2,’ a=‘,a:8:2);

WRITELN(‘R=‘,R:8:2);

END.

Задача 3 (Номер варианта определяется по формуле |а -b|=|7-9|=2).

Пусть это будет задание: составить программу вычисления функции на языке PASCAL.

PROGRAM KR3;

VAR x,y:REAL;

BEGIN

WRITELN(‘Ввод х’);

READLN(x);

IF x<=-2 THEN y:=x-12 ELSE

IF x<=3 THEN y:=SIN(x) ELSE y:=x+8;

WRITELN(‘x=‘,x:9:3,’ y=‘,y:9:3);

END.

Задача 4 (Номер варианта определяется по формуле а+b=7+9=16. Следовательно, нужно выполнить задание № 6).

Допустим, требуется следующее. Составить программу вычисления значения функции , при этом c шагом 0,8 (используем оператор FOR).

В языке PASCAL у оператора цикла FOR шаг равен 1 (или -1). Поэтому для решения задачи необходимо определить количество повторений по формуле

.

Квадратные скобки в данном случае показывают, что дробная часть отбрасывается.

Для поставленной задачи .

PROGRAM KR4;

VAR X,K:REAL; I:INTEGER;

BEGIN

X:=2.0;

FOR I:=1 TO 16 DO BEGIN

K:=EXP(3LN(X))+EXP(5LN(LN(SQR(X))));

WRITELN(‘X=‘,X:8:1,’ K=‘,K:9:2);

X:=X+0.8

END;

END.

Задача 5 (Номер задания определяется в соответствии с шифром по формуле |a-b|*a=|7-9|*7=14. Таким образом, исходные данные берутся для варианта № 4).

Пусть условие задачи выглядит следующим образом. Написать программу на алгоритмическом языке PASCAL для вычисления функции

при c шагом 0,35. Допускается использование любого оператора цикла. Воспользуемся оператором WHILE.

PROGRAM KR5;

VAR X,Z,D:REAL;

BEGIN

WRITE(‘Введите значение Z’);

READ(Z);

WRITELN(‘Z=‘,Z:8:2);

X:=-0.3;

WHILE X<=8.9 DO BEGIN

IF X<=2 THEN D:=SIN(X)-Z ELSE

IF X<5 THEN D:=SQRT(X)+SQR(Z) ELSE D:=LN(X)+EXP(5(LN(Z));

WRITELN(‘X=‘,X:8:2,’ D=‘,D:8:2);

X:=X+0.35

END

END.

Задача 6 (Формула для определения номера варианта в данном случае имеет вид: a*b=7*9|=63. То есть требуется выполнить задание № 3).

Сделаем предположение, что условие задачи следующее. Дан одномерный массив А(20). Найти первый по порядку отрицательный элемент и его номер.

Из задания следует, что возможно использование любых операторов цикла. Воспользуемся операторами FOR и REPEAT.

PROGRAM KR6;

LABEL M;

VAR I:INTEGER;

A:ARRAY[1..20] OF REAL;

BEGIN

WRITE(‘Введите массив А’);

FOR I:=1 TO 20 DO READLN(A[I]);

WRITELN(‘Исходный массив A’);

I:=1;

REPEAT

WRITELN(‘A[‘,I,’]=‘,A[I]:9:2);

I:=I+1

UNTIL I>20;

FOR I:=1 TO 20 DO

IF A[I]<0 THEN BEGIN

WRITELN(‘A[‘,I,’]=‘,A[I]:9:2,’ номер=‘,I);

GOTO M;

END;

WRITELN(‘Таких элементов нет’);

M: END.

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

1. Могилев А.В. Информатика: учеб. пособие/ А.В. Могилев, Н.И. Пак, Е.К. Хеннер. ‑ М.: Академия, 2004. – 848 с.

2. Информатика: учебник / под ред. Н.В. Макаровой. – М: Финансы и статистика, 2008. – 766 с.

3. Окулов, С.М. Основы программирования/ С.М. Окулов. – М.: БИНОМ, 2013. – 440 с.

4. Кудинов, Ю.И. Пащенко Ф.Ф. Основы современной информатики/ С.М. Окулов, Ф.Ф, Пащенко. – М: Лань, 2010. – 256 с.

5. Основы алгоритмизации вычислительных процессов: метод. указания по курсу «Информатика» / сост. В.П. Авдеев. В.И. Гильмутдинов, А.Д. Кононов. А.А. Кононов; ВГАСУ. – Воронеж, 2005. – 41 с.

6. Информатика: учеб. пособие / Гильмутдинов В.И, Кононов А.Д., Кононов А.А., 2010. – 56 с.

7. Хлебников, А.А. Информатика: учебник/А.А. Хлебников. – М.: Феникс, 2013. – 443 с.

ОГЛАВЛЕНИЕ

Введение........................................................................................................	3
I. Арифметические основы ЭВМ. Базовые элементы алгоритмического языка Pascal..............................................................	4
II. Линейный вычислительный процесс.....................................................	5
III. Разветвляющийся вычислительный процесс......................................	5
IV. Циклический вычислительный процесс..............................................	6
V. Разветвление в цикле...............................................................................	7
VI. Работа с одномерными массивами.......................................................	8
Пример выполнения контрольной работы.................................................	9
Библиографический список рекомендуемой литературы......................	13

Методические указания

к выполнению контрольной работы № 1

по курсу “Информатика” для студентов заочного обучения всех направлений подготовки

Составители: д. т. н., проф. Авдеев Виктор Петрович,

к. т. н., проф. Гильмутдинов Владимир Исламович,

к. ф.-м. н., проф. Кононов Александр Давыдович,

д. т. н., проф. Кононов Андрей Александрович.

Подписано в печать 16.02. 2017. . Формат 60х84. 1/16

Уч.-изд. л. 0,9.. Усл.-печ. л. 1,0. Бумага для множительных аппаратов.

Тираж 250 экз. Заказ №

________________________________________________________

Отпечатано: отдел оперативной полиграфии издательства учебной литературы и учебно-методических пособий ВГТУ