close

Вход

Забыли?

вход по аккаунту

код для вставкиСкачать
program inf_1_a;
//вычисление значения констант
const A = ((17 * 2 + 15) / 17 - (8 * 7 + 5) / 8) / (0.1 + 1 / 15);
var K, C1, C2, y, x: Real; //объявляем переменные
begin
Write('Введите любое целое число K: ');
Readln(K);//вводим значение
Write('Введите значение С1: ');
Readln(C1);
Write('Введите значение С2: ');
Readln(C2);
Write('Введите значение x: ');
Readln(x);
//вычисляем значение функции на основании введенных значений
//корень 7-й степени вычисляем через экспоненту и логарифм exp(1/7
ln(подкоренное))
y := K / C1 * Exp(1 / 7 * ln(3 + abs(sin(x)))) + C1 / K * ln(abs(A - x));
writeln('Значение y, при С = ', C1, ', y = ', y);
y := K / C2 * Exp(1 / 7 * ln(3 + abs(sin(x)))) + C2 / K * ln(abs(A - x));
writeln('Значение y, при С = ', C2, ', y = ', y);
readln;
end.
*
program inf_1_b;
var u, x, arc: Real;//объявляем переменные
begin
Write('Введите значение x: ');
Readln(x);//вводим значение
arc := (1 - ln(x)) / (1 + ln(x));//вычисляем подкоренное выражение
arc := 2 * ArcTan(sqrt(arc));//вычисляем арккосинус через арктангенс
u := 3 * x * sqrt(x) * arc;//вычисляем выражение
writeln('u = ', u:3:5);//выводим результат
readln;
end.
program inf_2_;
//задач 11-20
var y, x: Real; //объявляем переменные
begin
Write('Введите значение x: ');
Readln(x);//вводим значение
if (x < 0) then//выбираем функцию на основании значения х
y := 10 - x / 3
else
if (x >= 5.75) then
y := (5 * x - 2) * exp(sin(x))
else
y := sqr(x) - ln(x);
writeln('Значение функции y: ', y);
readln;
end.
program inf_3_;
//задач 21-30
var X, Y: Real; //объявляем переменные
y1, y2, p: Real;
begin
Write('Введите координату X: ');
Readln(X);//вводим значение
Write('Введите координату Y: ');
Readln(Y);
p := pi / 4;
if ((Y >= -1) and (Y <= 1)) and ((X >= (3 * p)) and (X <= (5 * p)))
then//проверяем диапазон
begin//вычисляем значение функций при заданном х
y1 := cos(2 * x);
y2 := cos(x);
if ((y >= y2) and (y <= y1)) then //проверяем диапазон
Writeln('Точка попадает в указанную область.')
else
Writeln('Точка не попадает в указанную область.');
end
else
Writeln('Точка не попадает в указанную область.');
readln;
end.
program inf_4_34_a;
//задачи 37
var p: Real; //объявляем переменные
i: Byte;
begin
p := 1;//инициализируем переменную для вычисления произведения
for i := 2 to 7 do//цикл от 2 до 7 с шагом 1
p := p * (ln(i) + 1 / sqrt(3 * i));//вычисляем произведение
Writeln('Результат вычислений: ', p:3:3);//выводим результат
readln;
end.
program inf_4_34_b;
//задачи 37
var sum, p: Real; //объявляем переменные
i, j: Byte;
begin
sum := 0;//инициализируем переменную для вычисления суммы
for i := 1 to 7 do//цикл от 1 до 7 с шагом 1
begin
p := 1;//инициализируем переменную для вычисления произведения
for j := 1 to 3 do//цикл от 1 до 3 с шагом 1
p := p * cos(i + 2 * j);//вычисляем произведение
sum := sum + p;//вычисляем сумму
end;
Writeln('Результат вычислений: ', sum:3:3);//выводим результат
readln;
end.
program inf_4_40_a;
//задачи 40
var p: Real; //объявляем переменные
m: Byte;
begin
p := 1;//инициализируем переменную для вычисления произведения
for m := 2 to 7 do//цикл от 2 до 7 с шагом 1
p := p * (cos(2 * m) + sin(5 * m));//вычисляем произведение
Writeln('Результат вычислений: ', p:3:3);//выводим результат
readln;
end.
program inf_4_40_b;
//задачи 40
var sum: Real; //объявляем переменные
a, b, c: Byte;
begin
sum := 0;//инициализируем переменную для вычисления суммы
for a := 1 to 5 do//цикл от 1 до 5 с шагом 1
for b := 1 to 6 do//цикл от 1 до 6 с шагом 1
for c := 1 to 7 do//цикл от 1 до 7 с шагом 1
//корень 3-й степени вычисляем через экспоненту и логарифм exp(1/3 *
ln(подкоренное))
//b^c вычисляем как exp(c * ln(b))
sum := sum + exp(1 / 3 * ln(a)) + exp(c * ln(b));//вычисляем сумму
Writeln('Результат вычислений: ', sum:3:3);//выводим результат
readln;
end.
program inf_5_;
//задач 41-50
var Q, x, a, h: Real; //объявляем переменные
begin
a := 1.65;
h := 0.1;
x := 0.7;
Writeln('x':10,'Q':10);//выводим шапку талицы
while (x <= 2) do//выполняется на отрезке значений [0.7 , 2]
begin
if (x <= 1.4) then
Q := a * x * x * x + 7 * sqrt(x)
else
Q := ln(x + 7 * sqrt(abs(x - a)));
Writeln(x:10:2, Q:10:3);//выводим результат вычислений в виде таблицы
x := x + h;//вычисляем следующее значение аргумента
end;
readln;
end.
program inf_6_;
//задач 54
Const E = 0.01;//Заданная точность
var sum, xp, xn: Real; //объявляем переменные
i: Word;
begin
i := 0; //инициализируем переменные
sum := 0;
xn := 0;
repeat
xp := xn;//запоминаем значение предыдущего члена ряда
sum := sum + xp;//вычисляем сумму
i := i + 1;
xn := ln((i + 3) / 10); //вычисляем очередной член ряда
until (abs(xn - xp) < e);//выполняется не достигнута заданная точность
writeln('Результат вычислений sum: ', sum);
readln;
end.
1/--страниц
Пожаловаться на содержимое документа