БУ «НИЖНЕВАРТОВСКИЙ ПОЛИТЕХНИЧЕСКИЙ КОЛЛЕДЖ»
ЭКЗАМЕНАЦИОННАЯ РАБОТА
по учебной дисциплине ОП. 05. Основы программирования
специальность 230115 Программирование в компьютерных системах
Выполнил: Губайдуллин Айдар Фанисович
Группа № 227
Преподаватель: Козлова Марина Юрьевна
Дата проверки: «__»__________2014 г.
Оценка:________________________
Подпись преподавателя:__________
г.Нижневартовск
2014 г.
СОДЕРЖАНИЕ
1.ТЕОРИТИЧЕСКАЯ ЧАСТЬ 2
2.ПРАКТИЧЕСКАЯ ЧАСТЬ 3
СПИСОК ЛИТЕРАТУРЫ 28
1.Теоритическая часть
1.1. Стандартные функциии и процедуры в паскале
Таблица 1. Арифметические функции
Функция |
Назначение |
Тип результата |
abs (x) |
абсолютное значение аргумента |
совпадает с типом аргумента |
sqr (x) |
квадрат аргумента |
совпадает с типом аргумента |
sqrt (x) |
квадратный корень аргумента |
вещественный |
cos (x) |
косинус аргумента |
вещественный |
sin (x) |
синус аргумента |
вещественный |
arctan (x) |
арктангенс аргумента |
вещественный |
exp (x) |
ex |
вещественный |
ln (x) |
натуральный логарифм |
вещественный |
int (x) |
целая часть числа |
вещественный |
frac (x) |
дробная часть числа |
вещественный |
Таблица 2. Функции преобразования типов
Функция |
назначение |
ord (x) |
возвращает порядковый номер аргумента и, таким образом, преобразует величину порядкового типа в величину целого типа. |
round (x) |
округляет вещественное число до ближайшего целого |
trunc (x) |
выдает целую часть вещественного числа, отбрасывая дробную. |
Таблица 3. Функции для величин порядкового типа
функция |
назначение |
odd (x) |
проверяет аргумент на нечетность. Аргумент функции величина типа longint, результатtrue, если аргумент нечетный, false – если четный. |
pred (x) |
определяет предыдущее значение величины x. |
succ (x) |
определяет последующее значение величины x. |
ord (x) |
возвращает порядковый номер величины x. |
2.Практическая часть
2.1 Текст задания Задача 1.
Найдите среднее арифметическое пяти чисел, введенных с клавиатуры.
Составьте блок-схему программы вычисления значения y по указанной ниже формуле при заданных с клавиатуры необходимых целых данных.
Отладьте программу на следующем примере:
a |
c |
x |
y |
1 |
2 |
-1 |
20.4122 |
Решение:пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
Листинг:
var
a,b,c,d,e,x,y:real;
begin
1:write('Ввести a,c,x через пробел --> ');
readln(a,c,x);
if (c=0) or (x=0) then begin
writeln('Деление на 0 !!! ввести снова'); goto 1 end;
b:=3*abs(a*a -5*power(sin(c*c)/cos(c*c),3));// writeln('b= ',b:8:5);
e:= power(cos(5*sqr(sin(x))),3); // writeln('e= ',e:8:5);
d:=4*e*cos(x)/5/power(sin(3*x),3*x); // writeln('d= ',d:8:5);
d:=sqrt(d); // writeln('d= ',d:8:5);
y:=b + d -4*sqrt(a)/(5*power(sin(c)/cos(c),5));
writeln('y= ',y:8:5);
writeln('конец');
readln;
end.
Алгоритм:
Тестовый пример:
Проверка: