решить тех.мех кто шарит)) нужно построить эпюру 2. Для двухопорной балки построить эпюру изгибающих моментов. Подобрать поперечное сечение в виде швеллера.
begin Write('Введите значение аргумента x: '); Readln(x); Write('Введите значение коэффициента a: '); Readln(a); {боремся с неположительным значением под знаком корня} t := a - cos(x); if t < 0 then y := exp(x + 1.8) - exp(1 / 5 * ln(-t)) else if t = 0 then y := exp(x + 1.8) else y := exp(x + 1.8) + exp(1 / 5 * ln(t)); Writeln('Значение функции равно ', y) end.
Тестовое решение:
Введите значение аргумента x: -4.2 Введите значение коэффициента a: 1.95 Значение функции равно 1.28604638457326
1. I must help my mum to do the housework. (Я должен маме по дому.)
2. She must do her homework now. (Она должна сделать домашнее задание сейчас.)
3. We must protect our environment. (Мы должны защищать окружающую среду.)
4. We must not be late for school. (Мы не должны опаздывать в школу.)
5. You must know that. (Ты должен это знать.)
6. We must buy tickets for the performance. (Мы должны купить билеты на спектакль.)
7. Children mustn't go for a walk at night. (Дети не должны гулять ночью.)
8. I must thank my friend for his help. (Я должен поблагодарить моего друга за
9. I must go now. (Я должен сейчас уйти.)
10. You must tell me the truth. (Вы должны сказать мне правду.)
x, a, t, y: real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
Write('Введите значение коэффициента a: ');
Readln(a);
{боремся с неположительным значением под знаком корня}
t := a - cos(x);
if t < 0 then y := exp(x + 1.8) - exp(1 / 5 * ln(-t))
else if t = 0 then y := exp(x + 1.8)
else y := exp(x + 1.8) + exp(1 / 5 * ln(t));
Writeln('Значение функции равно ', y)
end.
Тестовое решение:
Введите значение аргумента x: -4.2
Введите значение коэффициента a: 1.95
Значение функции равно 1.28604638457326