Помогите пожалуйста очень срочно. С++
у=-с*х*(e^(x^2)/a)+b*sin x
1. Написать программу вычисления значения функции в заданной точке. Параметры (a, b, c) и точка x вводятся с клавиатуры при выполнении программы. Предусмотреть проверку условия и допустимости вводимых данных.
2. Написать программу нахождения минимального значения функции у и соответствующего значения аргумента х на интервале [-2; 2] с шагом 0.2. Предусмотреть проверку ОДЗ. Параметры (a, b, c) вводятся с клавиатуры при выполнении программы.
1 пункт почти закончен, но все таки нужно сверить с правильным вариантом, со вторым проблема
Регистрация: 12.01.2011
Сообщений: 19,500
Вы не перепутали «помогите» и «сделайте за меня»?
покажите свои наработки, конкретные вопросы и т.п. Если кто-то просто решит за вас, это вряд ли поможет вам разобраться.
http://www.programmersforum.ru/announcement.php?f=31
Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Написать программу для нахождения НОК двух заданных натуральных чисел. Алгоритм
Регистрация: 04.02.2011
Сообщений: 4,429
1 пункт почти закончен, но все таки нужно сверить с правильным вариантом
Это хитрость такая: «Вариант у меня есть, но я его вам не покажу, вы давайте свой, а я сверю»? Напоминает США в ООН: «Доказательства у нас есть, но мы вам их не предоставим. И так вам должно быть ясно: виноваты русские!»
А если первая часть готова, то протащить функцию по отрезку с заданным шагом может и коза Машка любой даже чайник.
Регистрация: 11.04.2019
Сообщений: 2
int main()
<
float a, b, c, x, y;
cout«»a=»; cin»a;
cout«»b=»; cin»b;
cout«»c=»; cin»c;
cout«»x=»; cin»x;
y=-c*x+(pow(e, pow(x, 2))/a)+b*sin(x);
cout«»y=»«y;
>
Проверка по идее это х не равен нулю? Все?
Регистрация: 04.02.2011
Сообщений: 4,429
1. * после x вдруг стала +
2. Компилятор не знает, кто такой e , у него есть функция Exp
с учетом изложенного
y=-c*x*(Exp(x*x)/a)+b*sin(x);
——————————-
Да пожалуйста — это такие пустяки.
Последний раз редактировалось digitalis; 12.04.2019 в 09:54 .
Источник: www.programmersforum.ru
Написать программу нахождения функции у=(х+5)/(х-7) На языке паскаль Как в компьютере вводим типо
programm tt; И т.п, прошу И блок схему если есть возможность прикрепить Даю 50 баллов Заранее спасибо!
Ответы на вопрос
Отвечает Nigmatullin Islam.
program restless;
var
y, x : real;
begin
readln(x);
if x <> 7 then
begin
y := (x+5)/(x-7);
writeln(y:5:2);
end
else
Пишем программу: нахождения НОД и НОК двух чисел | Алгоритм Евклида
writeln(‘Возникло деление на 0!’);
Источник: uznavalka.pro
Программирование на VBA. Реализация алгоритмов в среде VBA
1) Нахождение минимального числа из четырех заданных чисел A, B, C, D. Выполнение работы изображено на рисунке 1.
Рисунок 1 – Нахождение минимального числа
Public Function Min(a, b, c, d)
2) Решение линейного уравнения вида аx=c, где a и c — заданные коэффициенты, в том числе и нулевые (рисунок 2).
Рисунок 2 – Решение линейного уравнения
Public Function lin(a, c)
3) Определение вида треугольника (равносторонний, равнобедренный, прямоугольный), если три заданных числа a, b, c задают длины его сторон (рисунок 3).
Рисунок 3 – Определение вида треугольника
Public Function Treygol(a, b, c)
If (a = c And c <> b) Or (a = b And b <> c) Then
If a = b And b = c Then
If (a ^ 2 = c ^ 2 + b ^ 2) Or (c ^ 2 = a ^ 2 + b ^ 2) Or (b ^ 2 = a ^ 2 + c ^ 2) Then
4) Нахождение площади треугольника, если три заданных числа a, b, c задают длины его сторон (рисунок 4).
Рисунок 4 – Нахождение площади треугольника
Public Function Plos(a, b, c)
Plos = (pl * (pl — a) * (pl — b) * (pl — c)) 2
5) Найти площадь трапеции, если четыре заданных числа задают длины ее сторон (рисунок 5).
Рисунок 5 – Нахождение площади трапеции
Public Function Trap(a, b, c, d)
h = (2 * (pl * (pl — a) * (pl — (d — b)) * (pl — c)) ^ 0.5) (d — b)
Задание II
На VBA составить функции для:
1) Найти , где n заданное число. Выполнение работы изображено на рисунке 6.
Рисунок 6 – Выполнение заданной функции
Public Function sum(n)
2) Найти , где m и n заданные числа (рисунок 7).
Рисунок 7 – Выполнение заданной функции
Public Function sum2(n, m)
sum2 = sum2 + (2 * i)
3) Вычисление суммы S=10 3 +11 3 +…+n 3 (рисунок 8).
Рисунок 8 – Вычисление суммы
Public Function sum3(n)
sum3 = sum3 + (i ^ 3)
sum3 = «Неверно введено»
4) Вычислить сумму кубов трехзначных четных чисел (рисунок 9).
Рисунок 9 – Вычисление суммы
Public Function sum4(n, m)
sum4 = n ^ 3 + m ^ 3
sum4 = «Неверно введено»
5) Вычислить сумму квадратов тех четырехзначных чисел, которые при делении на 5 дают в остатке 2 (рисунок 10).
Рисунок 10 – Вычисление суммы квадратов
Public Function summ5(n, m)
summ5 = n ^ 2 + m ^ 2
summ5 = » неверный ввод»
6) Найти сумму всех несократимых дробей, со знаменателем к, содержащихся между целыми числами m и n, где к простое число (рисунок 11).
Рисунок 11 – Вычисление суммы несократимых дробей
Public Function sum6(m, n, k)
If (i Mod k <> 0) Then
suma6 = suma6 + (i / k)
7) Найти сумму S=1*100+2*99+3*98+…+ 50 *51 (рисунок 12).
Рисунок 12 – Вычисление суммы несократимых дробей
Public Function sum7()
8) Вычисление произведения P=n!=1*2*….*n (рисунок 13).
Рисунок 13 – Вычисление произведения
Public Function proizved(n)
9) Нахождение такой суммы S=1+2+3+…, для которой |S-M| минимально. M –заданное число (рисунок 14).
Рисунок 14 – Вычисление произведения
Public Function suma9(n, m)
10) Вычисление суммы S= 1!+2!+3!+……+ n! (рисунок 15).
Рисунок 15 – Вычисление суммы
Public Function summ9(n)
Задание III
На VBA составить функции, позволяющие:
1) Сформировать строку длины N (N — четное), которая состоит из чередующихся символов C1 и C2, начиная с C1. Выполнение задания приведено ни рисунке 16.
Рисунок 16 – Формирование строки
Public Function str1(C1, C2, N) As String
str1 = str1 + (C1 + C2)
2) Дана строка. Получить строку, содержащую те же символы, но расположенные в обратном порядке (рисунок 17).
Рисунок 17 – Получение обратной строки
Public Function str2(C1) As String
3) Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы «.» (точка). Выполнение задания изображено на рисунке 18.
Рисунок 18 – Преобразование строки
Public Function str3(S, N) As String
If (Len(S) > N) Then
str3 = String(N — Len(S), «.») + S
4) Даны два числа: N1 и N2, и две строки: S1 и S2. Получить из этих строк новую строку, объединив N1 первых символов строки S1 и N2 последних символов строки S2 (рисунок 19).
Рисунок 19 – Получение строки
Public Function str4(S1, S2 As String, N, M) As String
str4 = Left(S1, N) + Right(S2, M)
5) Даны две строки: S1 и S2. Проверить, содержится ли строка S2 в строке S1. Если да, то вывести номер позиции, начиная с которой S2 содержится в S1, если нет, то вывести 0 (рисунок 20).
Рисунок 20 – Вывод номера позиции
Public Function str5(S1, S2 As String) As String
str5 = InStr(S1, S2)
6) Даны две строки: S1 и S2. Определить количество вхождений строки S2 в строку S1 (рисунок 21).
Рисунок 21 – Определение количество вхождений строки
Public Function str6(S1, S2 As String)
Dim i As Integer
Dim p As Integer
For i = 1 To Len(S1)
If Mid(S1, i, f) = S2 Then
7) Дана строка S и символ C. Удвоить каждое вхождение символа C в строку S (рисунок 22).
Рисунок 22 – Удвоение вхождения символа
Public Function str7(C1, S As String) As String
str7 = Replace(C1, S, S + S)
8) Даны строки S1, S2 и символ C. Перед (после) каждого вхождения символа C в строку S1 вставить строку S2 (рисунок 23).
Рисунок 23 – Добавление строки в строку
Public Function str8(S1, S2, C As String) As String
str8 = Replace(S1, C, C + S2)
9) Даны две строки: S1 и S2. Удалить из строки S1 первую (последнюю) подстроки, совпадающие с S2. Если таких подстрок нет, то вывести S1 без изменений (рисунок 24).
Рисунок 24 – Удаление подстроки
Public Function str9(S1, S2 As String) As String
Dim p As String
If (InStr(S1, S2) <> 0) Then
str9 = Left(S1, N — 1) + Right(S1, Len(S1) — ((N — 1) + Len(S2)))
10) Даны три строки: S1, S2, S3. Заменить в строке S1 первое вхождения строки S2 на S3 (рисунок 25).
Рисунок 25 – Замена строки
Public Function str10(S1, S2, S3 As String) As String
Dim p As String
If (InStr(S1, S2) <> 0) Then
str10 = Left(S1, N — 1) + S3 + Right(S1, Len(S1) — ((N — 1) + Len(S2)))
11) Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов в строке (рисунок 26).
Рисунок 26 – Подсчет количества слов в строке
Public Function str11(S1 As String) As Integer
Dim i As Integer
Dim p As Integer
For i = 1 To Len(S1)
If Mid(S1, i, 1) <> » » And Mid(S1, i + 1, 1) = » » Then
12) Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов, которые начинаются и заканчиваются одной и той же буквой (рисунок 27).
Рисунок 27 – Подсчет слов начинающихся и заканчивающихся на одну и ту же букву
Public Function str12(c1 As String) As String
Dim n As Integer, i As Integer, p1 As String, p2 As String
For i = 1 To Len(c1)
While Mid(c1, i, 1) = » «
While Mid(c1, i, 1) <> » «
p2 = Mid(c1, i — 1, 1)
If p1 = p2 Then n = n + 1
13) Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов, которые содержат ровно три буквы «А» (рисунок 28).
Рисунок 28 – Подсчет количества слов имеющих 3 буквы “А”
Public Function str13(S1 As String) As String
Dim n As Integer, i As Integer, m As Integer
For i = 1 To Len(S1)
While Mid(S1, i, 1) = » «
While Mid(S1, i, 1) <> » «
If Mid(S1, i, 1) = «а» Or Mid(S1, i, 1) = «А» Then
Источник: vunivere.ru