Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 15.3.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. Реферат на тему Technology Product Evalution Essay Research Paper Introduction
5. Реферат на тему Infant Observation Essay Research Paper On Wednesday
6. Реферат Больной ребенок и уход за ним
7. Реферат на тему Bell Jar By Sylvia Plath Essay Research
8. Реферат Дискуссия о языке наблюдения
9. Реферат Отчёт по производственной практике по маркетингу
10. Реферат на тему Эпоха серебряного века и Осип Мандельштам