Легко увидеть, что для вычисления 2-го члена (при известном 1-ом и нулевом . Далее нам необходимо организовать цикл, в котором на каждом шаге переменные fib0 и . после одного шага цикла они будут содержать значения (n – 1)-го и n-го членов. . 1) При n = 0 границы цикла будут в отрезке [1, 0 – 1].
http://el-prog.narod.ru/pascal46.html
Всем привет, нужно решить 8 любых задач в VBA. Очень нужна ваша помощь
*Вывести на печать положительные значения функции y = sin(x)+5cos(x-2) для x, изменяющегося на отрезке [-5, 12] с шагом 1,2.
*Вывести на печать значения функции z = tg(2x)-sin(x) для x, изменяющегося на отрезке [-3, 3] с шагом 0,3.
*Ввести с клавиатуры и напечатать модули N чисел; если введено отрицательное число, напечатать его, затем ввод и печать прекратить.
*Вывести на печать значения функции z = ln(x)+tg(2x), большие 1, для x, изменяющегося на отрезке [3, 8] с шагом 0,9.
*Определить, является ли натуpальное число N степенью числа 5 или нет.
Вычисление синуса sin(x) через разложение в ряд Тейлора. Уроки программирования на С++ начинающим.
*Hайти количество цифp в целом положительном числе.
*Напечатать значения функции y = ln(x-1/x), где значения x вводятся с клавиатуры. При вводе числа, не входящего в область определения функции, вычисления прекратить.
*Дано натуральное число N. Получить наибольшее число вида 4k, меньшее N.
*Вывести на печать значения функции z = sin(x)+cos(x), находящиеся в интервале (0,2; 0,8) для x, изменяющегося на отрезке [-20, 20] с шагом 0,91.
*Дано натуральное число N. Получить наименьшее число вида 4k, большее N.
*Для x из интервала (2; 8) с шагом 0,75 вычислить y = (4×3-3x+cos(x))/А, где А вводится с клавиатуры.
*Hайти пеpвый член последовательности ln(9n)/(n n), меньший 1, для n, изменяющегося следующим обpазом: n=1, 2, 3. .
*Определить, является ли натуpальное число N степенью числа 3 или нет.
*Вывести на печать отpицательные значения функции z = cos(x)-5sin(x-2) для x, изменяющегося на отрезке [-3; 11] с шагом 0,9.
*Ввести с клавиатуры и напечатать квадраты N чисел, если введено кpатное 3 положительное число, ввод и печать прекратить.
*Вывести на печать отpицательные значения функции z=tg(x)+5cos(x-2) для x изменяющегося на отрезке [12; 1] с шагом 1,2.
*Ввести с клавиатуры и напечатать N чисел, если введено pавное нулю или кpатное 2 число, ввод и печать прекратить.
*Вывести на печать значения функции z=ln(|x|)+tg(2x), большие 2 для x изменяющегося на отрезке [3; -8] с шагом 0,9.
*Hайти пеpвый отpицательный член последовательности sin(tg(n/2)) для n изменяющегося следующим обpазом: n=1, 2, 3. .
*Напечатать значения функции y=ln(x+12/x), где значения x вводятся с клавиатуры. При вводе числа, не входящего в область определения функции, вычисления прекратить.
*Hайти пеpвую цифpу в целом положительном числе.
*Дано натуральное число N. Получить наибольшее число вида 3k, меньшее N.
*Вывести на печать значения функции z=sin(x)+cos(x), находящиеся в интервале (-0,3; 0,7) для x, изменяющегося на отрезке [-4, 6] с шагом 0,91.
Графический метод решения задачи линейного программирования (ЗЛП)
*Дано натуральное число N. Получить наименьшее число вида 5k, большее N.
*Для x из интервала (-2; 8) с шагом 0,75 вычислить y = (4×2-3x+tg(x))/А, где А вводится с клавиатуры.
*Hайти пеpвый член последовательности ln(9n/(n2+1)), меньший 0, для n, изменяющегося следующим обpазом: n = 1, 2, 3. .
*Определить, является ли натуральное N степенью числа 4 или нет.
*Вывести на печать положительные значения функции z = sin(x)-5cos(x-2) для x изменяющегося на отрезке [-5, 12] с шагом 1,2.
*Напечатать значения функции для произвольных x, вводимых с клавиатуры. При вводе числа, не входящего в область определения функции, ввод и печать прекратить.
*Hайти пеpвый отpицательный член последовательности cos(ctg(n)) для n, изменяющегося следующим обpазом: n = 1, 2, 3. . Ответ: Комментарий модератора Памирыч Создайте на каждую задачу по теме.
Вопрос: Циклы: вычисление выражения S=1+1/2+2/3+3/4+4/5. для заданного числа элементов
Составить программу для вычисления выражения S=1+1/2+2/3+3/4+4/5. для заданного N элементов.
а)Расчет выполнять с помощью трех типов циклов: цикл с переменной, цикл с предусловием, цикл с постусловием.
б)Решить задание с использованием отдельной функции для расчета значения элемента на каждом шаге цикла. Ответ: Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 < TForm1 >function f(n:integer):real; begin f:=n/(n+1) end; procedure TForm1.Button1Click(Sender: TObject); var n,i:integer; s:real; begin n:=strtoint(Edit1.Text); //цикл for s:=1; for i:=1 to n do s:=s+i/(i+1); Label1.Caption:=format(‘%.3f’,[s]); //цикл while s:=1; i:=1; while in; Label3.Caption:=format(‘%.3f’,[s]); //с функцией s:=1; for i:=1 to n do s:=s+f(i); Label4.Caption:=format(‘%.3f’,[s]); end;
Вопрос: Разработать алгоритм и составить программу вычисления бесконечной суммы
Разработать алгоритм и составить программу вычисления циклом с посту-
словием бесконечной суммы по варианту задания. Начальное
значение переменной, шаг ее приращения и точность вычисления суммы вво-
дятся с клавиатуры по запросу программы. Промежуточные значения пере-
менной и слагаемых выводятся на дисплей по формату с фиксированной деся-
тичной точкой. Накопление суммы прекращается, когда значение последнего
вычисленного слагаемого становится соизмеримым по абсолютной величине с
заданной точностью. Программа должна зафиксировать, сколько раз выполнил-
ся цикл до достижения заданной точности вычислений. Значение последнего
слагаемого и заданной точности вычислений, значение суммы и количество
выполненных повторений вывести на дисплей и в текстовый файл
Вопрос: Вычислить и вывести на экран в виде таблицы значения функции
Вычислить и вывести на экран в виде таблицы значения функции из задания к лабораторной работе № 2 «Разветвляющиеся алгоритмы. Циклы» в интервале от xнач до xкон с шагом dx.
Все исходные данные для расчёта значений функции необходимо задавать на начальной форме, а результаты вычислений выводить на другой. После вычисления функции на исходной форме необходимо вывести количество посчитанных значений. Внешний вид форм должен соответствовать представленным на рисунках 1 и 2 соответственно.
Если введённые значения xнач, xкон и dx не позволяют организовать цикл (например xкон < xнач при положительном значении dx, или dx=0 и т.д.), то необходимо вывести сообщение об ошибке и не проводить расчётов. Вид сообщения приведён на рисунке 3.
Помогите пожалуйста, вообще не могу понять как делать дальше, помогите пожалуйста.
Ответ: Всё, спасибо. Сам разобрался.
Вопрос: Найти наибольший элемент побочной диагонали заданной матрицы A(N, N)
Найти наибольший элемент побочной диагонали заданной матрицы A(N, N) и вывести на печать всю строку, в которой он находится. Ответ: Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 const max=15; var a:array[1..max,1..max] of real; n,i,j,imx:integer; begin randomize; repeat write(‘Введите размер матрицы от 2 до ‘,max,’ n=’); readln(n); until n in [2..max]; writeln(‘Исходная матрица’); imx:=1; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=10*random; write(a[i,j]:5:1); if (j=n-i+1)and(a[i,j]>a[imx,n-imx+1]) then imx:=i; end; writeln; end; writeln(‘Максимальный элемент побочной диагонали=’,a[imx,n-imx+1]:0:1,’ в строке ‘,imx); for i:=1 to n do write(a[imx,i]:5:1); end.
Вопрос: Напишите программу для расчета по двум формулам
Написать программу для вычисления таблицы значений .
Лаб. 3 Вычислить и вывести на экран в виде таблицы значения функции, заданной . Шаг изменения аргумента выбирать таким образом, чтобы аргумент . для вычисления значений функции F(x) на отрезке [а, b] с шагом h. . Код C# . -Предусмотреть ввод значений переменных x,y,z, входящих в наборы .
http://forundex.ru/yap/Napisatj-programmu-dlya-vichisleniya-tablici-znachenij-funkcii-Y=Asqr(X)-22420
Please hepm me! Я восстанавливаюсь в институте! срочно до завтра надо сделать 5 лаб. в каждом 20-й вариант! я только начинаю изучать так что грубо говоря: «полный ноль». помогите сделать
Лаб. 1. Напишите программу для расчета по двум формулам. Предварительно подготовьте
тестовые примеры с помощью калькулятора (результаты вычисления по обеим
формулам должны совпадать). Класс Math, содержащий математические функц
и и С#, описан на с. 64. Кроме того, для поиска нужной функци и можно воспользоваться
а л ф а в и т н ы м указателем. Методы, отсутствующие в классе, выразите
через имеющиеся.
Лаб. 2 Написать программу, которая определяет, попадает ли точка с заданными координатами
в область, закрашенную на рисунке серым цветом. Результат работы
программы вывести в виде текстового сообщения.
Лаб. 3 Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью
ряда Тейлора, на интервале от дггач до #кон с шагом dx с точностью е. Таблицу
снабдить заголовком и шапкой. Каждая строка таблицы должна содержать
значение аргумента, значение функции и количество просуммированных членов
ряда.
Лаб. 4 Описать класс «цветная точка». Для точки задаются координаты и цвет. Цвет
описывается с помощью трех составляющих (красный, зеленый, синий). Предусмотреть
различные методы инициализации объекта с проверкой допустимости
значений. Допустимым диапазоном для каждой составляющей является [0, 255].
В случае недопустимых значений полей выбрасываются исключения. Описать
свойства для получения состояния объекта и метод изменения цвета.
Написать программу, демонстрирующую все разработанные элементы класса.
Лаб. 5 В одномерном массиве, состоящем из п вещественных элементов, вычислить:
• произведение положительных элементов массива;
• сумму элементов массива, расположенных до минимального элемента.
Упорядочить по возрастанию отдельно элементы, стоящие на четных местах,
и элементы, стоящие на нечетных местах.
Заранее спасибо! Ответ:
Мб кто нибудь еще сделает остальные
Да, но уже в других темах.
Одна тема — одна задача. Закрыто
Вопрос: Вычисление приближенного значения функции ch(x) с заданной точностью
Составить программв, вычисляющую приближенное значение этой функции с заданной точностью эпсилон(для этого необходимо просуммировать все слагаемые ряда, абсолютное значение которых больле или равно числу эпсилор). Значение аргумента х и точность эпсилон ввести с клавиатуры. Вывести на экран сумму ряда, количество просуммированных слагаемых
а также назвать точное значение функции, вычисленнное с помощью стандартной математической функции паскаль exp(x) используя следущее выражение
Ответ: Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 uses crt; var x,e,t,s:real; k:longint; begin clrscr; write(‘x=’); readln(x); write(‘e=’); readln(e); s:=1; k:=0; t:=1; while abs(t)>e do begin k:=k+1; t:=t*x*x/(2*k*(2*k-1)); s:=s+t; end; writeln(‘сумма=’,s:0:6); writeln(‘аналитически=’,(exp(x)+exp(-x))/2:0:6); readln end.
Вопрос: Определить попадание точки в закрашенную область
1. Постановка задачи
Написать программу, которая определяет, попадает ли точка с заданными
координатами в область, закрашенную на рисунке серым цветом.
С клавиатуры вводятся:
N – количество пробных точек;
Xi – абсцисса пробной точки;
Yi – ордината пробной точки;
Ri – параметр.
Результаты вычислений вывести в виде таблицы, состоящей из трех столбцов:
значений координат пробных точек (Xi и Yi) и соответствующих им исходов опыта
(«Попала» или «Не попала»). Таблица должна иметь заголовочную строку.
Должна быть реализована возможность многократного выполнения
программы без ее перезапуска. В программе необходимо использовать условный
оператор и оператор цикла (с предусловием, либо с постусловием, либо с
параметром). Необходимо обеспечить пользовательский интерфейс (вывод на экран
поясняющих сообщений).
Требования к входным и выходным данным:
– диапазон значений Xi
, Yi
, Ri соответствует области определения площади
фигуры на графике (см. вариант задания) и может принимать как целые, так и
вещественные значения;
– формат вывода ТАБЛИЦЫ значений аргумента и функции следующий:
Х|Y|попадание точки
область есть и она правильная нужно оформить программу через массив с выводом таблицы попаданий после ввода к примеру 10 точек
вот область ((y>=0)and(y<=2-x*x))and(y<=x)or((y<=0)and(y>=x))and(y<=2-x*x) Ответ: Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 type tochka=record x,y:real; get:string[10]; end; var a:array of tochka; n,i:integer; c:char; begin repeat write(‘Количество точек n=’); readln(n); setlength(a,n); writeln(‘Введите координаты точек от -3 до 3’);//дальще 3 от начала координт ни к чему for i:=0 to n-1 do with a[i] do begin repeat write(‘x’,i+1,’=’); readln(x); until(x>=-3)and(x<=3); repeat write(‘y’,i+1,’=’); readln(y); until(y>=-3)and(y<=3); if ((y>=0)and(y<=2-x*x))and(y<=x)or((y<=0)and(y>=x))and(y<=2-x*x) then get:=’попала’else get:=’не попала’; end; writeln(‘Таблица результатов’); writeln(‘——————————‘); writeln(‘| x | y |попадание точки|’); writeln(‘——————————‘); for i:=0 to n-1 do with a[i] do writeln(‘|’,x:5:2,’|’,y:5:2,’|’,get:12,’ |’); writeln(‘——————————‘); writeln(‘Повторить? нет-n/N да-любая другая клавиша’); readln(c); until upcase(c)=’N’; writeln(‘Программа завершена’) end.
Источник: lieuvre.ucoz.com
Школе NET
Submit to our newsletter to receive exclusive stories delivered to you inbox!
Таня Масян
Составить алгоритм и программу вычисления функции f(x) при произвольном x:f(x)=<(2x 4,если-2≤x≤-1;2x^2,если-1
более месяца назад
Просмотров : 34 Ответов : 1
Лучший ответ:
Зачетный Опарыш
var x,y:real;
begin
write(‘Введите x: ‘);
readln(x);
if (x>=-2) and (x -1) and (x 1) and (x 2) then
writeln(‘Функция не определена’)
else writeln(‘f(x)=’,y);
end.
Источник: shkole.net
Задача — Вычислить значение функции y=f(x) — программирование на разных языках
Задача — Вычислить значение функции y=f(x)
— программирование на Pascal, Си, Кумир, Basic-256, Python
Дана следующая функция y=f(x):
y = 2x — 10, если x > 0
y = 0, если x = 0
y = 2 * |x| — 1, если x < 0
Требуется найти значение функции по переданному x.
- Получить с клавиатуры значение x.
- Если x больше 0, то вычислить выражение 2*x-10, результат присвоить переменной y.
- Иначе если x равен 0, то присвоить y значение 0.
- Иначе присвоить y результат выражения 2*|x|-1.
Pascal
var x,y: integer;
begin
readln(x);
if x > 0 then y := 2*x-10
else
if x = 0 then y := 0
else y := 2*abs(x)-1;
Язык Си
main() int x,y;
scanf(«%d»,
if (x > 0) y = 2*x-10;
else
if (x == 0) y = 0;
else
y = 2*abs(x)-1;
Python
x = input()
x = int(x)
if x > 0:
y = 2*x — 10
elif x == 0:
y = 0
else:
y = 2*abs(x) — 1
КуМир
алг f
нач
цел x, y
вывод «x=»
ввод x
если x>0 то y:=2*x-10
иначе
если x=0 то y:=0
иначе y:=2*int(abs(x))-1
все
все
вывод «y=», y
кон x=56
y=102
В КуМир функция взятия модуля от числа возвращает вещественное значение. Поэтому используется функция int(), чтобы привести к целому, иначе присвоение невозможно.
Basic-256
input x
if x > 0 then
y = 2*x-10
else
if x = 0 then
y = 0
else
y = 2*abs(x)-1
endif
endif
print y
Источник: ars-games.ru