Лабораторная работа № 10 Построение графиков

Пример: Построить график y=cos(x).

Uses crt,graph;

Var

driver,regim:integer;

i,y:integer;

x:real;

BEGIN

driver:=detect;

initgraph(driver,regim,'c:\pascal\bgi');

SetBkColor(8);SetColor(11);SetFillStyle(1,11);

x:=0;i:=0;

repeat

y:=trunc(100*cos(x))+240; {расчитывается новое значение у, где 100 – это

масштабирование, а 240 – это смещение по у}

x:=x+0.05; {расчитывается новое значение угла}

i:=i+1; {расчитывается новое значение х}

FillEllipse(i,y,1,1); {строится точка с координатами х,у}

Delay(2500); {задержка перед новой точкой}

until i>640; {выполнять до значения х=640}

repeat until KeyPressed; {задержка выполнения программы}

END.

Функцию, по которой строить график взять из лабораторной работы № 4, задание 1

Лабораторная работа № 11 Одномерные массивы.

Задание 1. Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В - из m элементов), заполненных случайным образом числами из промежутка [L,P]. Сформировать из элементов этих массивов два новых массива (C,D) по правилу, описанному в Вашем варианте.

1. п= 15, т= 20, L= 10, Р=99; Массив С состоит из тех элементов исходных массивов, в которых обе цифры четные, а массив D - обе цифры нечетные.

2. п= 10, т= 25, L= 100, Р=500; Массив С состоит из тех элементов исходных массивов, в которых средняя цифра четная, а массив D - средняя цифра нечетная.

3. п= 20, т= 15, L= -50, Р=50; Массив С состоит из элементов исходных массивов, меньших -5, а массив D - больших 10.

4. п= 25, т= 12, L= 10, Р=2000; Массив С состоит из тех элементов исходных массивов, в которых последняя цифра равна 6, а массив D - последняя цифра равна 9.

5. п= 17, т= 18, L=-30, Р=60; Массив С состоит из положительных элементов исходных массивов, а массив D - отрицательных.

6. п= 12, т= 28, L= -60, Р=90; Массив С состоит из четных элементов исходных массивов, а массив D - нечетных.

7. п= 20, т= 30, L= 10, Р=50; Массив С состоит из элементов исходных массивов, меньших 30, а массив D - больших 30.

8. п=30, т= 10, L= 10, Р=150; Массив С состоит из элементов исходных массивов, кратных 5, а массив D — кратных 3.

9. п=22, т= 16, L= -50, Р=30; Массив С состоит из элементов исходных массивов, меньших первого элемента массива А, а массив D - больших второго элемента массива В.

10. п= 10, т= 20 L= 1000, Р=5000; Массив С состоит из элементов исходных массивов, первая цифра которых меньше последней, а массив D - первая цифра больше последней.

11. п= 15, т= 30, L= -100, Р=100; Массив С состоит из отрицательных элементов исходных массивов с четными индексами, а массив D - положительных элементов с нечетными индексами.

12. п= 30, т= 10, L= -200, Р=150; Массив С состоит из четных отрицательных элементов исходных массивов, а массив D - нечетных положительных элементов.

13. п=20, т= 10, L= 15, Р=150; Массив С состоит из элементов исходных массивов, кратных 7, а массив D — кратных 11.

Задание 2.

1. Задан массив чисел. Замените каждое число суммой предыдущих, включая заменяемое.

2. Даны действительные числа al,a2,...,al6. Найдите минимальное из произведений ala9, а2а!0, ..., а8а16.

3. Даны действительные al,a2,...,al6. Найдите максимальное из сумм al+a!6,a2+al5,...,a8+a9.

4. Даны целые al,a2,..,an. Bce члены последовательности, предшествующие первому по порядку наименьшему члену, умножить на этот наименьший член.

5. Даны действительные al,a2,..,an . Требуется найти b, равное среднему арифметическому чисел al,a2,..,an и наибольшее отклонение от среднего т.е. max(\al-b\,\a2-b\,...,\an-b\).

6. Ввести массив а[1],а[2],...,а[п] целого типа. Произвести сдвиг элементов массива на 2 позиции влево так, что наместо а[1] станет а[3], наместо а[2] станет а[4],на место а[п-1] станет а[1], на место а[п] станет а[2].

7. Ввести массив а[1],а[2],..,а[п] целого типа и число к<п. Произвести сдвиг элементов массива на к позиций вправо так, что на место а[п] станет а[п-к], на место а[1] станет а[п-к+1], на место а[2] станет а[п-к+2] и т.д..

8. Найти три максимальных значения тах!>=тах2>=тахЗ среди элементов таблицы из п вещественных чисел.

9. Дан массив из п целых элементов. Исключить последний минимальный элемент, то есть сдвинуть все значения таблицы, начиная с последнего минимального, влево на 1 позицию. Значение последнего элемента таблицы не определено.

10. Ввести массив а[1],а[2],...,а[п] целого типа и заменить все его элементы, стоящие до максимального, нулями.

11. Ввести массив а[1],а[2],...,а[п] целого типа и заменить все его элементы, стоящие после минимального, нулями

12. Задан массив чисел. Замените каждое число суммой двух предыдущих.

13. Найти три минимальных значения тin!<=тin2<= тinЗ среди элементов таблицы из п вещественных чисел.