Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 11.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. Реферат на тему Dreams Essay Research Paper DreamsFreud offers some
5. Реферат О гражданине. Т. Гоббс
6. Реферат на тему Frogs Essay Research Paper Today I am
7. Реферат Социальная психология 4
8. Биография на тему Рассказ о житии преподобного Александра Свирского
9. Диплом Права потерпевшего от уголовного преступления
10. Реферат на тему Цивилизационная концепция культуры А Тойнби