Задание 1.1
Вычислить значение функции
y(x) на промежутке [1;2.8] с шагом h=0.3.
В Pascal:
program z1;
uses crt;
var Xn,Xk,X,Y,H,Z:REAL;
begin
clrscr;
write('‚Enter Xn,Xk,H=');
readln(Xn,Xk,H);
X:=Xn;
repeat
z:= 1-exp((0.5)*x);
if z=0 then writeln('NO') else
Y:=ln(6.8*sqrt(x))*(exp((1/3)*(ln(abs(Z))))*(abs(Z)/Z));
writeln('X=',X:6:1,' Y=',Y:8:3);
X:=X+H;
until X>=Xk+H/2;
readkey;
end.
Результаты вычислений:
В Excel:
В MathCAD:
В Delphi:
var
i:integer;
s,Xn,z,F,h,Xk:real;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Xn:=strtoFloat(edit1.text);
h:=strtoFloat(edit2.text);
Xk:=strtoFloat(edit3.text);
repeat
z:= 1-exp((0.5)*Xn);
F:=ln(6.8*sqrt(Xn))*(exp((1/3)*(ln(abs(Z))))*(abs(Z)/Z));
Memo1.Lines.Add('x='+FormatFloat('0.0',xn)+'
y='+FormatFloat('0.000',F));
Xn:=Xn+h;
until Xn>Xk;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form1.close;
end;
end.
Вывод: т.к. ответы в Pascal,Excel,MathCAD и Delphi
сошлись – решение верно.
Блок-схема алгоритма
решения задания №1.1
Задание 1.2
Вычислить значение
функции y(x) с условием на промежутке [-2;3] с шагом h=0.5
В Pascal:
program z2;
uses crt;
label 20;
var x,y,Xn,Xk,h:real;
begin clrscr;
writeln('Please ENTER Xn,Xk,h=');
readln(Xn,Xk,h);
x:=Xn;
while x<=Xk+h/2 do
begin
if x<0 then y:=1/sin(x) else
if (x>=0) and (x<2) then
y:=(2*x)/((abs(x-2)/(x-2))*(exp(1/3*(ln(abs(x-2)))))) else
if x>2 then y:=sqr(cos(x))/(x-2)
else
begin
writeln('NO answer');
goto 20;
end;
writeln('x=',x:3:1,' y=',y:6:3);
20: x:=x+h;
end;
readkey;
end.
Результаты вычислений:
компьютерный
вычисление функция алгоритм
В Excel:
В MathCAD:
В Delphi:
var
x,Xn,Xk,h,y: Real;
begin
Xn:=strtoFloat(edit1.text);
Xk:=strtoFloat(edit2.text);
h:=strtoFloat(edit3.text);
begin
x:=Xn;
while x<=Xk+h/2 do
begin
If (x=2) then
begin
memo1.Lines.Add('No answer');
end
else
begin
if x<0 then y:=1/sin(x) else
if (x>=0) and (x<2) then
y:=(2*x)/((abs(x-2)/(x-2))*(exp(1/3*(ln(abs(x-2)))))) else
if x>2 then y:=sqr(cos(x))/(x-2);
memo1.Lines.Add('y='+FormatFloat('0.000',y));
Series1.AddXY(x,y,'',clred);
end;
x:=x+h;
end;
end;
end;
end.
Вывод: т.к. ответы в Pascal,
Excel, MathCAD и Delphi сошлись – решение верно.
Блок-схема алгоритма
решения задания: 1.2
Нахождение функции,
заданной условием:
Вычислить функцию y(x) по заданному массиву x
В Pascal:
program zadanie3;
uses crt;
const n=4;
var x,y:array[1..n] of real;
i:integer;
z,j,d:real;
begin
clrscr;
for i:=1 to n do
begin
write('Enter x[i]=');
readln(x[i]);
end;
for i:=1 to n do
begin
j:=exp(x[i])-8.35*x[i]*x[i];
z:=exp(1/3*ln(abs(j)))*(abs(j)/j);
d:=exp(x[i]*ln(37))+ln(abs(sin(2*x[i])))*(abs(2*x[i])/2*x[i]);
y[i]:=z/d;
writeln('x[i]=',x[i]:5:1,' y[i]=',y[i]:5:3);
end;
readkey;
end.
Результаты
вычислений:
В Excel:
В MathCAD:
В Delphi:
var x,y:array[0..3]of real;
i:integer;
z,j,d:real;
begin
randomize;
for i:=0 to 3 do
begin
x[i]:=strtofloat(stringGrid1.cells[i,0]);
j:=exp(x[i])-8.35*x[i]*x[i];
z:=exp(1/3*ln(abs(j)))*(abs(j)/j);
d:=exp(x[i]*ln(37))+ln(abs(sin(2*x[i])))*(abs(2*x[i])/2*x[i]);
y[i]:=z/d;
stringgrid1.Cells[i,1]:=FormatFloat('0.000',y[i]);
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form1.close;
end;
end.
Вывод: т.к. ответы в Pascal,Excel,MathCAD и Delphi
сошлись – решение верно.
Блок-схема алгоритма
решения задания №1.3
Нахождение функции
заданном массиве:
Задание 1.4
Найти сумму, если задана
функция y(x), задан массив а, даны Xn, n, h.
В Pascal:
Program Summa;
uses crt;
const n=6;
Var x,j,z,d,Xn,h,F,S:Real;
i:Integer;
a:array [1..n] of Real;
BEGIN
clrscr;
randomize;
Write('enter please Xn,h=');
ReadLN(Xn,h);
for i:=1 to n Do
begin
Write('enter please a[i]=');
ReadLN(a[i]);
end;
x:=Xn;
S:=0;
for i:=1 to n Do
begin
j:=(ln(abs(3+x*x*x))*(abs(3+x*x*x)/(3+x*x*x)))-(exp((cos(x)*cos(x))*ln(2)));
z:=exp(1/7*ln(abs(j)))*abs(j)/j;
d:=sin(2*x)*cos(3*x)+sqrt(1+exp((x)*ln(2)));
F:=z/d;
S:=S+F*a[i];
x:=x+h;
end;
WriteLN('S=',S:10:3);
END.
Результаты
вычислений:
В Excel:
В MathCAD:
В Delphi:
var a:array[0..5]of real;
i:integer;
x,s,Xn,z,F,j,d,h:real;
begin
Xn:=strtoFloat(edit1.text);
h:=strtoFloat(edit2.text);
x:=Xn;
s:=0;
for i:=0 to 5 do
begin
j:=(ln(abs(3+x*x*x))*(abs(3+x*x*x)/(3+x*x*x)))-(exp((cos(x)*cos(x))*ln(2)));
j:=(ln(abs(3+x*x*x))*(abs(3+x*x*x)/(3+x*x*x)))-(exp((cos(x)*cos(x))*ln(2)));
z:=exp(1/7*ln(abs(j)))*abs(j)/j;
d:=sin(2*x)*cos(3*x)+sqrt(1+exp((x)*ln(2)));
F:=z/d;
a[i]:=strtofloat(stringGrid1.cells[i,0]);
s:=s+F*a[i];
x:=x+h;
end;
memo1.Lines.Add(' Ñóììà=
'+FormatFloat('0.000',s));
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form1.close;
end;
end.
Вывод: т.к. ответы в Pascal, Excel, MathCAD и Delphi сошлись – решение верно.
Блок-схема алгоритма
решения задания №1.4
Нахождение функции, если
дан x, h, n, задан массив:
Другие работы по теме:
Однофакторный дисперсионный анализ 3
дисперсионный анализ. Вариант 1. 10. Двух и трёх факторные Д. А. Содержание задания. Определить влияние времени откачки и напряжения на нагревателе насоса на давление внутри вакуумной камеры (р). Выбраны три уровня для времени откачки и два значения напряжения.
Физика. Билеты к экзамену за 9 класс
Физика 9 кл. Бровкиной Билет №1 Механическое движение. Система отсчета. Материальная точка. Траектория. Путь и перемещение материальной точки. Лабораторная работа. Определение коэффициента трения скольжения.
Физика. Билеты к экзамену за 9 класс
Физика 9 кл. Бровкиной Билет №1 Механическое движение. Система отсчета. Материальная точка. Траектория. Путь и перемещение материальной точки. Лабораторная работа. Определение коэффициента трения скольжения.
Вычисление определенных интегралов. Квадратурные формулы
Решение задачи по вычислению определенного интеграла с помощью квадратурных формул и основная идея их построения. Количество параметров квадратурного выражения, степень подынтегральной функции. Построение квадратурных формул с плавающими узлами.
Формулы по математическому анализу
Формулы дифференцирования Таблица основных интегралов Правила интегрирования Основные правила дифференцирования Пусть С—постоянная, u=u(x), v=v(x) – функции, имеющие
Контрольные билеты по алгебре
Алгебра и начала анализа. 11 класс. Билет №1. Функция y = sin x, ее свойства и график. Показательная функция, ее свойства для случая, когда основание больше единицы (доказательство одного из свойств по желанию ученика).
Приближенное вычисление определенных интегралов
Магнитогорский Государственный технический университет Приближенное вычисление определенных интегралов. Формула парабол (формула симпсона) Подготовил: Студент группы ФГК-98 Григоренко М.В.
Вычисление корней нелинейного уравнения
Нахождение нулей функции графическим методом. Вычисление корней уравнения при помощи вычислительных блоков Givel и Root. Поиск экстремумов функции. Разложение функции в степенной ряд.
Нелинейное уравнение и интервал изоляции корня
Изучение методов уточнения корней нелинейных уравнений (половинного деления, хорд, касательных, простой итерации). Метод хорд и касательных дает высокую скорость сходимости при решении уравнений, и небольшую - метод половинного деления и простой итерации.
Приближенное вычисление определенного интеграла методом прямоугольника и трапеции
Контрольная работа Тема: Приближенное вычисление определенного интеграла методом прямоугольника и трапеции. Пусть требуется вычислить определенный интеграл , где есть некоторая заданная в промежутке [a,b] непрерывная функция. Истолковывая данный определенный интеграл как площадь некоторой фигуры, ограниченной кривой , необходимо определить эту площадь.
Фильтр скользящего среднего
Рособразование ГОУ ВПО Пензенская государственная технологическая академия Институт промышленных технологий Кафедра «Автоматизация и управление»
Фильтр скользящего среднего
Программная реализация фильтра. Аналоговый и дискретный варианты реализации фильтра скользящего среднего, схема фильтрации. Реализация вычислений среднего значения функции в заданном интервале времени. Описание амплитудно-фазовой характеристики фильтра.
Работа в среде Visual Basic
Создание приложения для вычисления значений функций и определение суммы этих функций: эскиз формы, таблица свойств объекта, список идентификаторов и непосредственные коды процедур. Результаты вычислений и выводы, проверка работы данной программы.
Для чего нужна процедура Function?
Функция выполняет служебное действие, например вычисление, и возвращает значение. Вызвать функцию можно, написав её имя и передав ей аргументы, в нужном месте вашей программы.
Лабораторная работа №6
Цель работы: Освоение правил составления программ циклической структуры с параметром. Задание № 17 . Вычислить значение функции , по указанному графику для значений аргумента
Лабараторная работа №8
Цель работы: Получение навыков реализации циклических алгоритмов с неизвестным числом повторений цикла, операторов цикла с предусловием и постусловием и итерационных циклических алгоритмов.
Алгоритмизация и програмирование
РЕФЕРАТ ояснительная записка содержит 15 листов, 2 рисунка, 3 использованных источника, 1 приложение. СТРУКТУРА ЭВМ, СХЕМА АЛГОРИТМА, ПРОГРАММА, РЕЗУЛЬТАТЫ РАСЧЕТОВ
Регрессионные зависимости
Вычисление значений регрессионно-авторегрессионной зависимости заданного выражения линейного программирования. Графическое представление математической модели в виде уравнения регрессии. Принципи оптимизации производственных и коммерческих операций.
Расчет будущей стоимости по формуле простых процентов
Ввод данных, построение графиков, встроенные функции БС и ПС для вычисления будущей стоимости с помощью формулы простых процентов (MS Excel). Синтаксис функции БС, вычисление будущего значения единой суммы. Вычисление текущего значения суммы (функция ПС).
Расчет задач вычислительных систем
Алгоритм и программа вычисления функции на параллельной структуре. Разложение функции в ряд Маклорена. Однопроцессорный и многопроцессорный алгоритмы решения. Программа на Паскале. Размер буферной памяти между звеньями. Матрица вероятностных переходов.
ЛИСП-реализация основных способов вычисления гамма-функции
Изучение представления, основных способов расчета для целых положительных, простых чисел и ряда точек, и вычисления путем аппроксимации логарифма гамма-функции. Предоставление функциональных моделей, блок-схем и программной реализации решения задачи.
Расчет задач вычислительных систем
МІНІСТЕРСТВО ОСВІТИ ТА НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ ТЕХНІЧНИЙ УНІВЕРСИТЕТ “ХАРКІВСЬКИЙ ПОЛІТЕХНІЧНИЙ ІНСТИТУТ” Кафедра “Обчислювальна техніка та програмування”
Метки. Оператор GOTO. Процедура Halt
С.А. Григорьев Операторы в Паскале могут быть помечены. Метки - это идентификаторы, или целые числа от 0 до 9999, они могут записываться перед любым выполняемым оператором и отделяются от него двоеточием. Оператор может иметь любое количество меток. Все метки, использованные в программе, должны быть описаны в разделе описаний с ключевым словом LABEL.
Вычисление количества информации с помощью калькулятора
ПРАКТИЧЕСКАЯ РАБОТА «Вычисление количества информации с помощью калькулятора» Цель работы: Овладеть навыками сложных вычислений, в том числе вычисления степени числа 2 с натуральным показателем, для перевода единиц количества информации.
Работа в среде Visual Basic
Федеральное агентство по образованию Государственное образовательное учреждение высшего профессионального образования «Вятский Государственный Университет» социально-экономический факультет