31. Паскаль программа численного упорядочения.

Геометрический смысл определённого интеграла – это площадь криволинейной трапеции ограниченной графиком функции сверху, а и b по бокам и снизу осью Ox. Для вычисления площади, трапецию делят на прямоугольники равное n частей. Тогда высота каждого прямоугольника равна h=b-a/n. Далее необходимо просуммировать все прямоугольники и получиться площадь трапеции. Чем больше количество прямоугольников тем точнее будет результат.

program integririvanie; - описание заголовка

var a,b,h,x,y,s,s1:real; - описание переменных

i,n:integer;

begin – начало тела программы

write('a='); readln(a); вывод и ввод сообщения

write('b='); readln(b);

write('n='); readln(n);

h:=(b-a)/n; - присовение h значения выражения (b-a)/n

x:=a; - присвоения x значения a

s1:=h*y; присвоение s1 значения выражения h*y

for i:=1 to n-1 do цикл for

begin начало цикла

x:=x+h; присвоение

y:=sqr(x); присвоение

s1:=h*y; присвоение

s:=s1+s; присвоение

end; конец тела программы

writeln('s=',s);

end.

32. Паскаль-программа решения трансцендентного уравнения.

Функцией называется самостоятельный фрагмент программы, оформленный особым способом и имеющий имя. Упоминание имени процедур или функции в основной части программы называется вызовом (обращением) к этой функции. Описание функции начинается с заголовка и имеет следующий вид: function имя_функции( форм_параметров: тип_параметра):тип_функции

Begin

Имя_функции:=выражение;

End;

Довольно часто бывает, что необходимо решить некоторое уравнение, которое не имеет аналитического решения. В таком случае решения численных методов, которые позволяют решить приближенный ответ. Одним из таких способов является решение уравнений методом половинного деления. Суть метода половинного деления состоит в том, что вначале находтся середина отрезка [a,b] путем деления пополам c=a+b/2. Далее вычисляется на какой половине уравнение имеет решение. Это вычисляется путем проверки условия f(a)*f(c)<0. Так как при пересечение оси Ox значения функций на концах отрезка будут противоположны по знаку, а следовательно их произведение будет отрицательным.

program reshenie_uravneniya; - описание заголовка

var a,b,c,x,e:real; -описание переменных

function f(x:real):real; - описание функций

begin начало функции

f:=x-2; присвоение

end; конеч йункции

begin начало тела программы

write('a='); readln(a); вывод и ввод сообщения

write('b='); readln(b);

write('e='); readln(e);

repeat цикл repeat

c:=(a+b)/2; - присвоение

if f(a)*f(c)<0 then b:=c else a:=c; - проверка условия

until b-a<e; условие цикла repeat

x:=(a+b)/2; присвоение

writeln('x=',x:3:3); вывод сообщения

end. Конец тела программы

33. Компьютерная графика языка программирования Бейсик.

Первый компьютер ЭНИАК созданный в 1946 году предназначалось для обработки числовой информации. Это было первое поколение компьютеров построенных на радиолампах. Второе поколение компьютеров, построенных на транзисторах, использовали в качестве устройства вывода и ввода информации электронные пишущие машинки. Третье поколение компьютеров, построенных на интегральных микросхемах, использовала в качестве вывода информации TV приемники. Поэтому возникла возможность создания компьютерной графики. Язык программирования Basic, созданная в 1964 году в первых своих версиях не имел команд компьютерной графики. Однако, в 70-х годах 20 века графическая команда навсегда вошли в состав языка программирования Basic. Basic имеет систему координат отличающуюся ориентацией от традиционной системы координат. Начало компьютерной системы координат начинается в левом верхнем углу. Здесь ось Ox совпадает, а Oy имеет противоположное направление. Это необходимо учитывать при переводе обычных координат в компьютерные. Геометрическая точка на экране компьютера под управлением языка программирования Basic задается командой Point(x,y),с , в скобках указаны координаты точки, а параметр «с» принимает целое значение от 1 до 15, что соответствует цвету отображаемой точки. 0 – черный, 15 – белый. Отрезок линии создается командой Line(x1,y1)-(x2,y2),c. Здесь x1,y1 координаты начала отрезка, x2,y2 – конец отрезка. Окружность с радиусом R задается командой Circle(x,y),R,C, где x,y – координаты центра окружности, R – радиус окружности. С помощью этих трех команд на языке программирования Basic можно отображать на экране любой геометрический объект.