Реферат

Реферат Программа на Delphi

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 2.6.2025




Задание  : Составить программу по вычислению значения функции в заданоу точке 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. Сочинение на тему Лермонтов м. ю. - Москва в творчестве м. ю. лермонтова
2. Реферат на тему Горячие точки холодной войны
3. Сочинение на тему Гоголь н. в. - Образ антигероя и средства его создания.
4. Реферат Современные деньги сущность, формы, эволюция
5. Реферат Центральный федеральный округ 3
6. Реферат на тему Pride And Prejudice Essay Research Paper This
7. Реферат Девальвация и ревальвация в экономике кризисных периодов
8. Курсовая Культура древней Руси VI-XIII веков
9. Реферат Искусство Швейцарии эпохи Возрождения
10. Курсовая Иностранные инвестиции и их влияние на стабильность российской экономики