понимаю что легко, но запутался
вот программа
программа вычисления значений функции y=f(t,x) при одновременном изменении аргумента t в диапазоне [t0 и t2] с шагом дельта t и x в диапазоне [x1 , x2] с шагом дельта x
program iw6;
var
x, t, y:real;
i: integer;
// —- Задаём константы——
const deltaX = 0.2;
const deltaT = 2;
const a = 1.5;
Begin
x:=-3; //Задаём начальное значение X
t:=7; //Задаём начальное значение Y
for i:=0 to 5 do
Begin
y:=sqr(cos(Power(x,3))) — x/sqrt(sqr(t) + sqr(a));
writeln(‘y=’,y,’; t= ‘,t,’; x=’,x);
x:=x+deltaX;
t:=t+deltaT;
End;
END.
а нужно сделать с постусловием! помогите пожалуйста
Источник: www.programmersforum.ru
Задача 51394 Составить алгоритм и программу для.
Возврат нескольких значений функции через ссылки. Как вернуть несколько значений функции. Урок #52
Составить алгоритм и программу для вычисления значений функции Y при заданном диапазоне изменения аргумента X и законе изменения аргумента. Вывести на экранную форму в окна списков (ListBox) значения аргумента и функции. Для программирования циклов использовать оператор цикла с условием Do…Loop.
информатика ВУЗ 519
О решение.
На нашем сайте такое бывает редко, но решение к данной задаче еще никто не написал.
Что Вы можете сделать?
- Выставите данный вопрос вновь. Перейдите на главную страницу.
- Найдите похожую задачу. Используйте поиск.
Источник: reshimvse.com
Составить программу вычисления значений функций при изменении значений аргумента — Turbo Pascal
Не могу что-то вот лабораторную доделать. Фоткой кину задание. Нужно составить программу вычисления значений функций при изменении значений аргумента от начального значения до конечного с некоторым шагом. Вот, собственно, то, что я намудрила, а проблема в том, что Y мне не считает, следовательно, его произведение — тоже
uses crt; const pi=3,14; var a,b,y,x,k: real; xn,xk,dx :real; P,S,F :real; Er_b :boolean; Begin clrscr; writeln(‘Insert dannie’); writeln(‘_____________’); write (‘a= ‘);readln(a); writeln(‘Diapason izmenenija x’); writeln(‘_____________________’); write (‘Nachalo xn= ‘);readln(xn); write (‘Konec xk= ‘);readln(xk); write (‘Shag po x= ‘);readln(dx); x:=xn; P:=1; S:=0; k:=0; Writeln(‘+++++++++++++’); Writeln(‘| x | y | b |’); Writeln(‘+++++++++++++’); While x0 then Begin b:=12/(a-x); S:=S+b; if x0) and (x<>0) then y:=(ln(sqr(x)-b*x))/(a*x) else Er_b:=True else if (a*x>0) and ((sin(pi)+b)>0) then y:=(sqrt(a*x))/(sin(pi)+b) else Er_b:=True; if not Er_b then begin Writeln(‘y=’, y:10:4); end; if y>o then k:=K+1; P:=P*y; Writeln(‘x=’, x:10:4, ‘y-error’, ‘b=’, b:10:4); end else Writeln(‘x=’, x:10:4, ‘ y -error’, ‘ b — error’); if wherex = 2- then Begin Writeln(‘++++++++++++++++’); Writeln(‘Press any key’); Readkey; clrscr; Writeln(‘++++++++++++++++’); Writeln(‘ x | y | b |’); Writeln(‘++++++++++++++++’); end; x:=x+dx; end; F:=P-S; Writeln(‘++++++++++++++’); Readkey; clrscr; Writeln(‘Resultat’); Writeln(‘_____________’); Writeln(‘ k — kolichestvo y pri y>o ravno:’, k:10:4); Writeln(‘ S — Sum(b) ravno:’,S:10:4); Writeln(‘ P — Proizv(y) ravno:’,P:10:4); Writeln(‘ F=P-S ravno:’,F:10:4); Readkey; End.
Код к задаче: «Составить программу вычисления значений функций при изменении значений аргумента»
Листинг программы
Передача массива в функцию. Как передать массив в функцию. C++ для начинающих. Урок #35.
const a = 1.5; min = -3; max = 2; dx = 0.5; var y, x, b, py, sb, f : real; k : byte; begin py := 1; sb := 0; x := min; k := 0; while x a then b := 12 / (a — x) else b := 1; if x < 0 then y := (ln(abs(sqr(x) * b * x))) / (a * x) else y := (sqrt(a * x)) / (sin(abs(pi + b))); writeln(‘X = ‘, x:6, ‘ Y = ‘, y:6:2, ‘ B = ‘, b:6:2); if y >0 then inc(k); py := py * y; sb := sb + b; x := x + dx end; f := py — sb; writeln(‘F = ‘, f:6:2); readln end.
Источник: studassistent.ru