МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ
ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
САМАРСКИЙ ГОСУДАРСТВЕННЫЙ АЭРОКОСМИЧЕСКИЙ
УНИВЕРСИТЕТ ИМЕНИ АКАДЕМИКА С.П. КОРОЛЕВА
(НАЦИОНАЛЬНЫЙ ИССЛЕДОВАТЕЛЬСКИЙ УНИВЕРСИТЕТ)» (СГАУ)
Кафедра летательных аппаратов
Контрольная работа
по информатике
Вариант №19
Выполнил студент группы
Проверил ассистент Пупков Е.А.
Самара 2013
Реферат
Контрольная работа: листов_ 6 _, таблиц ____, рисунков_ 1 __
Оператор условного перехода if, комплексный оператор «begin-end», деление на нуль.
Оператор цикла, определенный интеграл, метод прямоугольников, метод трапеций, точность вычислений.
Оператор массива, сортировка массивов.
Программа может быть полезна студентам при изучении некоторых разделов математики.
Задание 1
Составьте программу вычисления 
(вариант 3-19) c использованием условного оператора if.
Математическая формулировка задачи
Необходимо вычислить значение функции при определенных значениях x и y.
Листинг программы
program N3_19;
var x,y,res: real; { описание переменных}
begin {начало программы}
write (' Введите x: ');
readln(x);
write (' Введите y: ');
readln(y);
if (x<0)and(y<0) then res:=x+y;
if x=-1 then res:=x*x+4*x+1;
if (x>0)and(y>0) then res:=x+y*y*y;
writeln (' Значение функции равно: ', res:7:5);
writeln('Для окончания программы нажмите клавишу Enter');
readln;{Пустой оператор ввода для остановки программы}
end. {Конец программы}
Описание программы
1. На экран выводится сообщение о необходимости ввода аргументов x и y.
2. Проверяются условия для x и y, и в зависимости от них вычисляется значение функции по одной из трех формул.
Задание 2
Составьте программу вычисления определенного интеграла 
методом прямоугольников с использованием оператора цикла с заданной точностью 0,001 (вариант 2-4).
Математическая формулировка задачи
Приближенное вычисление определенного интеграла
Метод трапеций
|
 | |||||||||||
| |||||||||||
| |||||||||||
| | ||||||||||
| |||||||||||
Приближенное вычисление значения интеграла осуществляется путем разбиения подынтегральной площади на n частей и площадь между двумя ординатами заменяется площадью трапеций. Эти площади суммируются от a до b.
Возникает вопрос: на сколько частей нужно делить отрезок [ a;b ], чтобы получить заданную точность.
Для этого вычисляют интеграл int при разбиении на n частей, затем увеличивают число разбиений, например, в 2 раза, 2n, получаем int1, сравниваем abs(int-int1) с заданной ошибкой. Если разница превышает допустимую ошибку, то n увеличивают снова, до тех пор пока не достигнут желаемого abs(int-int1)<e.
Листинг программы по методу трапеций.
Program integ;
Var i,n:integer;
x,int,int1,a,b,h,e:real;
Begin
Write('Введите верхний и нижний пределы интегрирования, b, a');
Readln(b,a);
Write('Введите точность вычислений е');
Readln(e);
n:=2;int:=0;
repeat
int1:=int;
n:=n*2;
h:=(b-a)/n;
x:=a;
int:=0;
for i:=1 to n do
begin
int:=int+(cos(3*x)/(cos(x))+cos(3*(x+h))/(cos(x+h)))/2*h;
x:=x+h
end;
until abs(int-int1)<e;
writeln('Значение интеграла int = ',int:6:6);
readln;
end.
Описание программы
1. После запуска программы вводим значения пределов интегрирования b и a.
2. Задаем необходимую точность вычисления e.
3. Задаем начальные значения числа разбиений n; примем начальное значение интеграла равным 0, int=0.
4. Приравниваем предыдущее значение интеграла текущему int=int1;
5. Увеличиваем число делений n=n*2.
6. Определяем шаг разбиения h=(b-a)/n и начальное значение координаты x=a.
7. Делаем int=0.
8. Вычисляем площадь трапеции (f(xi)+ f(xi+1 ))/2*h.
9. Суммируем площади int= int+ f(x)*h.
10. Изменяем координату x=x+h.
11. Если x<b, повторяем вычисление площади трапеции и суммирование (возвращаемся к 6 – цикл).
12. Сравниваем предыдущее и текущее значения интеграла, если abs(int-int1)>e, увеличиваем n т.д. (идти к 4 – второй цикл).
13. Печатаем результат.
Задание 3
Разработать программу ввода одномерного массива из 5 элементов. Определить среднеквадратичное значение элементов массива. Результат отразить на мониторе (вариант 9).
Математическая формулировка задачи
Работа с массивом содержит следующие операции:
1) описание массива;
2) загрузка (ввод данных) массива;
3) обработка массива;
4) выдача информации.
Листинг программы
program mass1;
const n=5;
var m:array[1..n] of real;
i,k: integer; res:real;
begin
for i:=1 to n do
begin
write ('Введите', i, '-ый элемент массива');
readln (m[i]);
end;
res:=0;
for i:=1 to n do {вычисление среднеквадратичного значения}
begin
res:=res+m[i]*m[i];
end;
res:=res/n;
writeln('Среднеквадратичное значение=',res:6:3);
readln;
end.
Описание программы
1. В операторе цикла вводятся элементы массива.
2. Вычисляется среднеквадратичное значение элементов массива;
3. Вывод на экран результата работы программы
Заключение
В результате выполнения контрольной работы по информатике были изучены такие разделы языка программирование PASCAL как:
1. Оператор условного перехода if, комплексный оператор «begin-end».
2. Оператор цикла, определенный интеграл, метод прямоугольников, метод трапеций, точность вычислений.
3. Оператор массива, сортировка массивов.
В пояснительной записке представлены листинги программ, соответствующие выданному заданию.
Источники
1. Информатика. Ведение, устройство ЭВМ, операционные системы, Microsoft Office.Учебное пособие и контрольные работы для студентов заочной формы обучения / М.А.Петровичев, А.С.Кучеров, В.Н.Морозов; СГАУ. Самара, 1999. – 121 стр.
2. Информатика (Программирование на языке TURBO PASCAL 7.0). Учебное пособие и контрольные работы/ А.И. Шулепов, И.Е. Теличев, Л.П. Юмашев, Н.Н.Павлова, Е.И.Давыдов; СГАУ. Самара, 1999. – 100 стр.
