Программа, методические указания и контрольные задания по курсу «основы программирования на языке паскаль» Для студентов бакалавриата направления 230400с заочной формы обучения

Вид материалаПрограмма

Содержание


Пример решения задачи 2
Алгоритм Программа
Задание 3. Программирование ветвящихся вычислительных процессов
Методические указания к выполнению задания 3
Задание 4. Организация циклов
Задания к задаче 4
Методические указания к выполнению задания 4
Подобный материал:
1   2   3   4   5   6   7   8

Пример решения задачи 2


Составить схему алгоритма и программу линейного вычислительного процесса:



A=10; B=3,18; C=0,125; D=0,2510-1

Алгоритм





Программа


Program z1;

Var a, b, c, d, z, w: Real;

Begin

Writeln (’ Введите a, b, c и d’ ); Readln (a, b, c, d);

z:=ln(a+sqr(b))/sqrt(exp(1.8*ln(b))+exp(c));

w:=cos(sqr(a+d))+ln(abs(z))/ln(2);

Writeln(’z=’, z, ’w=’, w);

End.

Задание 3. Программирование ветвящихся вычислительных процессов

Составить схему алгоритма и программу ветвящегося вычислительного процесса. Значения исходных данных выбрать самостоятельно. Варианты заданий приведены в табл. 2.

Таблица 2

Номер

варианта

Вариант

1

2

0



Продолжение табл.2

1

2

1



2



3

Известно, что из четырех целых чисел а1, а2, а3, а4 одно отлично от других, равных между собой. Определить это число и его порядковый номер (индекс) присвоить переменной k.

4



5



6



Оклнчание табл.2

1

2

7

Даны числа a, b, c (a  b  c). Определить, какое из них является наибольшим по модулю.

8



9

Определить, попадает ли точка А(х,у) внутрь треугольника, углы которого заданы координатами (0,2), (-2,0), (2,0).

Методические указания к выполнению задания 3

Прежде, чем приступить к решению задачи, необходимо изучить раздел программы 3.7, затем разработать алгоритм задачи, после чего составить программу.

Пример выполнения задания 3

Составить схему алгоритма и программу ветвящегося вычислительного процесса.



Алгоритм


Программа


Program z2;

Var a, b, x, y: Real;

Begin

Writeln (’ Введите x, a и b ’ ); Readln (x, a, b);

If x > b Then y:=abs(sin(x))+1

Else If x >= a Then y:=sqr(cos(x))+2

Else y:=cos(sqr(x))/sin(sqr(x));

Writeln( ’y=’,y)

End.

Задание 4. Организация циклов


Составить схему алгоритма и программу циклического вычислительного процесса. Варианты задачи приведены в табл. 3. Для организации цикла использовать оператор, указанный в задании. Значения исходных данных выбрать самостоятельно.
Задания к задаче 4
  1. Индексацию элементов заданного массива начать с 0. Для перебора элементов массива использовать оператор While.
  2. Индексацию элементов заданного массива начать с 1. Для перебора элементов массива использовать оператор For.
  3. Индексацию элементов заданного массива начать с 2. Для перебора элементов массива использовать оператор For.
  4. Индексацию элементов заданного массива начать с –5. Для перебора элементов массива использовать оператор Repeat.
  5. Индексацию элементов заданного массива начать с –3. Для перебора элементов массива использовать оператор While.
  6. Индексацию элементов заданного массива начать с 0. Для перебора элементов массива использовать оператор For.
  7. Индексацию элементов заданного массива начать с 10. Для перебора элементов массива использовать оператор Repeat.
  8. Индексацию элементов заданного массива начать с 20. Для перебора элементов массива использовать оператор For.
  9. Индексацию элементов заданного массива начать с 0. Для перебора элементов массива использовать оператор For.
  10. Индексацию элементов заданного массива начать с 15. Для перебора элементов массива использовать оператор Repeat.

Таблица 3

Номер варианта

Вариант

1

2

0

Дан массив В, содержащий 12 элементов целого типа, образуют ли 8 последних элементов этого массива возрастающую последовательность? Если нет – вывести индекс элемента, на котором она заканчивается.

1

Дан массив К1, содержащий 10 элементов вещественного типа – положительных, отрицательных и равных нулю. Сосчитать количество нулевых элементов массива и записать их индексы в массиве IND.

2

Дан массив М, содержащий 15 элементов вещественного типа. Определить, сколько из них больше своих «соседей» по ряду.

3

Дан массив А, содержащий 10 элементов вещественного типа, в котором первые k элементов имеют один знак, а остальные – другой. Определить индекс элемента массива, у которого знак сменился на противоположный. Найти сумму элементов массива, начиная с k+1-го.

4

Дан массив LL, содержащий 12 элементов вещественного типа – положительных, отрицательных и равных нулю. Сосчитать количество ненулевых элементов массива и сформировать из них новый массив. Найти модуль сумы элементов нового массива.

5

Дан массив В, содержащий 12 положительных и отрицательных элементов. Среди отрицательных элементов массива найти минимальный. Определить его индекс.

6

Дан массив AS, содержащий 20 элементов целого типа. Посчитать количество нулевых элементов. Из ненулевых элементов сформировать массив А и найти произведение модулей его элементов.

7

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

8

Дан массив, содержащий 15 элементов вещественного типа – положительных и отрицательных. Из отрицательных элементов данного массива сформировать новый массив и найти среднее геометрическое модулей его элементов.

9

Дан массив М вещественного типа, содержащий отрицательные, положительные элементы и элементы, равные нулю. Из положительных элементов массива М, имеющих нечетный индекс сформировать новый массив и вычислить среднее арифметическое его элементов.

Методические указания к выполнению задания 4

Перед выполнением следует изучить разделы 3.8 – 3.9, затем разработать алгоритм задачи, затем составить программу.