Var
x0, xk, dx, e, x, a, s: real;
i: integer;
begin
write('Введите промежуток и шаг ([a,b] h) и точность Е ');
readln(x0, xk, dx, e);
x := x0;
writeln(' i ':3, ' | ', ' x ':10, ' | ', ' s ':10, ' | ', ' y(x) ':10);
repeat
a := 1;
s := a;
i := 0;
repeat
i := i + 1;
a := a * (-1) * 2 * x / (2 * i) / (2 * i - 1);
s := s + a;
until abs(a) < e;
writeln(i:3, ' | ', x:10:3, ' | ', s:10:3, ' | ', (cos(sqrt(2 * x))):10:3);
x := x + dx;
until x >= xk;
end.
<span>Excel – это табличный процессор. Табличный процессор - это прикладная программа, которая предназначена для создания электронных таблиц и автоматизированной обработки табличных данных. 1.рабочая книга</span>
Линии пересекаются в точках, где их уравнения при одинаковых аргументах возвращают одинаковые значения. Чтобы определить условия точек пересечения заданных уравнений линий
следует приравнять их правые части и решить полученное уравнение относительно аргумента х.
Сделаем подстановку и получим квадратное уравнение:
Далее находим дискриминант, проверяем его знак, производим ветвление алгоритма в зависимости от результата. При неотрицательных t определяем х, извлекая из t квадратный корень и для каждого х вычисляем у из второго уравнения (оно короче).
var
a, b, c, d, f, m, p: real;
function y(x: real): real;
begin
y := b * x * sqr(x) + m * sqr(x) + d * x + p
end;
procedure OutPoint(x: real);
begin
writeln('Найдена точка пересечения функций (', x, ',', y(x), ')')
end;
procedure TDev(t: real; var np: Boolean);
var
x: real;
begin
if t = 0 then begin
np := false;
OutPoint(0)
end
else if t > 0 then begin
np := false;
x := -sqrt(t);
OutPoint(x);
x := sqrt(t);
OutPoint(x)
end
end;
var
x1, x2, u, v, t1, t2, Dis: real;
NoPoints: Boolean;
begin
writeln('Введите значения переменных a,b,c,d,f,m,p');
readln(a, c, f, m, p);
u := c - m;
v := f - p;
Dis := sqr(u) - 4 * a * v;
NoPoints := true;
if Dis = 0 then begin
t1 := -u / (2 * a);
TDev(t1,NoPoints);
end
else begin
t1 := (-u - sqrt(Dis)) / (2 * a);
TDev(t1,NoPoints);
t2 := (-u + sqrt(Dis)) / (2 * a);
TDev(t2,NoPoints);
end;
if NoPoints then writeln('Общих точек пересечения нет')
end.
Тестовое решение
Введите значения переменных a,b,c,d,f,m,p
2 3 4 5 6 7 8
Найдена точка пересечения функций (-1.27201964951407,14.0901699437495)
Найдена точка пересечения функций (1.27201964951407,14.0901699437495)
Введите значения переменных a,b,c,d,f,m,p
-3 -5 -3 2 1 4 5
Общих точек пересечения нет
Идея компьютера была предложена английским математиком Чарльзом Бэбиджем (Charles Babage) в середине девятнадцатого века. Его механическая «аналитическая машина» так и не смогла по-настоящему заработать, потому что технологии того времени не удовлетворяли требованиям, необходимым для изготовления нужных деталей точной механики. Конечно, никакой речи об операционной системедля этого «компьютера» не шло. Настоящее рождение цифровых вычислительных машин произошло вскоре после окончания Второй мировой войны. В середине 40-х были созданы первые ламповые вычислительные устройства. В то время одна и та же группа людей участвовала и в проектировании, и в эксплуатации, и в программировании вычислительной машины. Это была скорее научно-исследовательская работа в области вычислительной техники, а не использование компьютеров в качестве инструмента решения каких-либо практических задач из других прикладных областей. Программирование осуществлялось исключительно на машинном языке. Не было никакогосистемного программного обеспечения, кроме библиотек математических и служебных подпрограмм, которые программист мог использовать для того, чтобы не писать каждый раз коды, вычисляющие значение какой-либо математической функции или управляющие стандартным устройством ввода-вывода.Операционные системывсе еще не появились, все задачи организации вычислительного процесса решались вручную каждым программистом с пульта управления, который представлял собой примитивное устройство ввода-вывода, состоящее из кнопок, переключателей и индикаторов. С середины 50-х годов начался новый период в развитии вычислительной техники, связанный с появлением новой технической базы. Выросло быстродействиепроцессоров, увеличились объемыоперативнойи внешней памяти. Компьютеры стали более надежными, теперь они могли непрерывно работать настолько долго, чтобы на них можно было возложить выполнение действительно практически важных задач. Но выполнение каждой программы включало в себя большое количество вспомогательных работ (загрузка, запуск, получение результирующей программы в машинных кодах и т.д.), поэтому для организации эффективного совместного использования были введены должности операторов, профессионально выполнявших работу по организации вычислительного процесса для всех пользователей этого центра.
Но как бы быстро и надежно ни работали операторы, они никак не могли состязаться в производительности с работой устройств компьютера. А поскольку процессорпредставлял собой весьма дорогое устройство, то низкая эффективность его использования означала низкую эффективность использования компьютера в целом. Для решения этой проблемы и были разработаны первые системыпакетной обработки, которые автоматизировали всю последовательность действий оператора по организации вычислительного процесса. Ранние системыпакетной обработкиявились прообразом современныхоперационных систем, они стали первыми системными программами, предназначенными не для обработки данных, а для управления вычислительным процессом.
В ходе реализации систем пакетной обработкибыл разработан формализованный язык управления заданиями, с помощью которого программист сообщал системе и оператору, какие действия и в какой последовательности он хочет выполнить на вычислительной машине.
Ранние системы пакетной обработки значительно сократили затраты времени на вспомогательные действия по организации вычислительного процесса, а значит, был сделан еще один шаг по повышению эффективности использования компьютеров. Однако при этом программисты-пользователи лишились непосредственного доступа к компьютеру, что снижало эффективность их работы — внесение любого исправления требовало значительно больше времени, чем при интерактивной работе за пультом машины.
