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
Конец
Текст программы: Unit Unit1; Interface uses 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=5;Y=9 Ответ: Z=-5.81855391729781E-0005.
Министерство образования РФ КУБАНСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНОЛОГИЧЕСКИЙ УНИВЕРСИТЕТ Кафедра компьютерных технологий и информационной безопасности
Лабораторная работа №3 Структура программ Delphi.
Выполнил: студент группы 20-кт-31
Факультета КТАС Жовнир Иван Владимирович
Проверил ассистент кафедры КТ и КБ _______________________ ________________ _______________ «____» ________________ 2001 г. Краснодар, 2001г. |
