Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

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




Задание  : Составить программу по вычислению значения функции в заданоу точке 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. Реферат Любисток лікарський льонок звичайний
6. Контрольная работа на тему Позиционные системы исчисления Двоичная система счисления
7. Реферат на тему Burbank_Boards_Essay_Research_Paper_BURBANK_BOARDSTABLE
8. Биография на тему Ян Торп
9. Реферат на тему Применение бланков строгой отчетности
10. Курсовая Бюджетные полномочия субъектов Российской Федерации