Рейтинг@Mail.ru
Rambler's Top100




Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ

реферат на тему: Программа на Delphi

скачать реферат

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 и 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.


Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ





скачать реферат
1

Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ

Внимание! Студенческий отдых и мегатусовка после сессии!


Обратная связь.

IsraLux отзывы Израиль отзывы