Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; x,y,z: extended; implementation {$R *.DFM} label vano; begin vano: write('Vvedite X='); readln (x); write ('Vvedite Y=');Readln (y); if 2*x*x-4*y*y*y=0 then begin writeln('Pri dannix znacheniax X i Y funkcia ne imeet reshenia'); goto vano;end; z:=(cos(x)*(1-sin(y)))/(2*x*x-4*y*y*y); write('Otvet :',z); end. Задание : Составить программу по вычислению значения функции в заданоу точке X и Y. F(x,y)=(cos(x)*(1-sin(x)))/(2*x^2-4*y^3). Блоксхема программы :
Начало
Ввод X,Y
2
*x^2-4*y^3=0
да нет
z=(cos(x)*(1-sin(x))) /(2*x^2-4*y^3).
Вывод z
|