Поволжский Государственный Университет сервиса

Использование программирования в математике

Содержание

Задание 1. Вычисление значения арифметического выражения

Задание 2. Использование условного оператора

Задание 3. Использование циклических структур

Задание 4. Работа с двумерными массива

Задание 5. Использование процедур

Задание 6. Текстовый файл

 

Задание 1. Вычисление значения арифметического выражения

для того, чтобы Вычислить значение переменной z, которая является функцией двух переменных x и y. Для вычисления x и y требуется определить значения арифметических выражений, зависящих от переменных a и b и константы k и m.

для Расчета

Текст программы:

Program pr_1;

var x,y,z,a,b:real;

const k=1; m=2;

begin

writeln('Vvedite a');

readln(a);

writeln('Vvedite b');

readln(b);

x:=a*k-(k*sqr(sqr(b))*b)/(1.2 sqr(sin(a b)));

y:=(1 sqr(sin(a/2)/cos(a/2))/((a/(a b), 2.1)*ln(m)/ln(10)));

z:=m*exp(ln(x)*y) 2*k*x*y-0.81;

writeln('x = ',x:5:2);

writeln('y = ',y:5:2);

writeln('z = ',z:5:2);

end.

Результат:

 

Задание 2. Использование условного оператора

даны три целых числа A, B, C. Определить значения переменных X, Y, Z. Вывести их на экран. Пусть D₁ и D₂ – заштрихованные плоскости, и пусть U определяется как функция X и Y. Вывести U на экране дисплея. Вывод результатов оформить пояснительным тестом.

Текст программы:

Program pr_2;

var

A,B,C,X,Y,Z,U:real;

begin

writeln('Vvedite A');

read(A);

writeln('Vvedite B');

read(B);

writeln('Vvedite C');

read(C);

X:=B;

if X>C then X:=C;

if X>a B C then X:=a B C;

Y:=;

if Y<2*B then Y:=2*B;

if Y>3*C then Y:=3*C;

Z:=X/Y;

if ((X>=-3) and (X<=-2)) and ((Y<=1) and (Y>=-2)) then

begin

U:=ln(X, Y)/ln(10);

end

остальное

if X*X-Y*Y<=1*1 then

begin

U:=X-Y-Z;

end

else U:=1;

writeln('U = ',U:5:2);

end.

Результат:

 

Задание 3. Использование циклических структур

Составить программу для расчета значений функции двух переменных z=f(x,y) с использованием оператора цикла. Значение переменных x и y изменяется соответственно от х