Создан заказ №2209268
6 июля 2017
Задача 2 Задача 3 Задача 4 Задача Решение задачи 1-3 в зависимости от значения числа х
Как заказчик описал требования к работе:
Оформить все графики в контрольной; 2. начертить схемы в соответствие со стандартами (можно в графическом редакторе на пк). Работу нужно сдавать в пятницу, поэтому 2 дня на выполнение максимум. Подробное задание прикрелено.
Фрагмент выполненной работы:
Задача:
2. Задача:
3. Задача:
4. Задача: Решение задачи 1-3 в зависимости от значения числа х.
Алгоритм:
Тангенс - function Tangens(x: Real): Real:
F1 - function f1(x: real): Real:
F2- function f2(x: real): Real:
F3 - function f3(x: real): Real:
Описание программы:
Реализация алгоритма состоит из нескольких этапов:
1. Ввод начальных данных (числа х).
2. Анализ числа х.
3. (работа была выполнена специалистами Автор 24) Решение задачи 1-3 в зависимости от х.
4. Вывод результатов.
Особенностью реализации алгоритма на языке Паскаль является отсутствие встроенной функции, вычисляющей тангенс. Поэтому данная функция будет реализована через вычисление выражения: sin(x)/cos(x). Для простоты отладки программы, реализация алгоритма разбита на самостоятельные части в виде функций.
Программа:
program project1;
uses Crt;
// Функции
// Тангенс
function Tangens(x: Real): Real;
begin
Result:=sin(x)/cos(x);
end;
/////////////////////////////////////////////////
// 1 Вариант вычислений
function f1(x: real): Real;
begin
Result:=(exp(2*x-6)-1)/((x*x)-2*x-3);
end;
/////////////////////////////////////////////////
// 2 Вариант вычислений
function f2(x: real): Real;
begin
Result:=(Tangens(x-1))/((x*x)-3*x);
end;
/////////////////////////////////////////////////
// 3 Вариант вычислений
function f3(x: real): Real;
begin
Result:=(2*Pi)/3;
end;
/////////////////////////////////////////////////
// Переменные
Var
X: Real;
Y: Real;
begin
// Очистка экрана
ClrScr;
// Сообщение для пользователя
Writeln('Vvedite X:');
// Запрос на ввод числа
Readln(X);
// Анализ
If X<-1 Then Y:=F1(X);
If (-1<=X) And (X<=-0.6) Then Y:=F2(X);
If X>-0.6 Then Y:=F3(X);
// Печатаем результат
Writeln('');
Writeln('Rezultat: ', Y);
Readln();
end.
Результат работы программы:
2. Определить, является ли последовательность из N произвольных чисел строго возрастающей (то есть каждый следующий элемент больше предыдущего).
Решение:
Представим последовательность N чисел массивом...Посмотреть предложения по расчету стоимости
Заказчик
заплатил
заплатил
200 ₽
Заказчик не использовал рассрочку
Гарантия сервиса
Автор24
Автор24
20 дней
Заказчик принял работу без использования гарантии
7 июля 2017
Заказ завершен, заказчик получил финальный файл с работой
5
Задача
2 Задача
3 Задача
4 Задача Решение задачи 1-3 в зависимости от значения числа х.docx
2017-07-10 06:05
Последний отзыв студента о бирже Автор24
Общая оценка
5
Положительно
Автор сделал работу очень быстро. Почитал сам - все понятно изложено, даже интересно стало)). Спасибо. Сдал на проверку, надеюсь преподу понравится))
Хочешь такую же работу?
300 ₽
