Referat.me
/ / Программа на Delphi

Название: Программа на Delphi

Вид работы: реферат

Рубрика: Информатика

Размер файла: 8.74 Kb

Скачать файл: referat.me-130031.zip

Краткое описание работы: Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations }

Программа на Delphi

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.


Министерство образования РФ

КУБАНСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНОЛОГИЧЕСКИЙ УНИВЕРСИТЕТ

Кафедра компьютерных технологий и информационной безопасности


Лабораторная работа №3 Структура программ Delphi.

Выполнил: студент группы 20-кт-31


Факультета КТАС

Жовнир Иван Владимирович

Проверил ассистент кафедры КТ и КБ

_______________________

________________ _______________

«____» ________________ 2001 г.

Краснодар, 2001г.

Похожие работы

  • Графические возможности стандартной библиотеки VCL

    ОТЧЁТ по лабораторной работе № 1. Тема: Графические возможности стандартной библиотеки VCL Цель :Изучить графические возможности стандартной библиотеки визуальных компонентов VCL, функций и процедур модуля Graphics. Научиться работать с отдельными точками растра. Освоить рисование сплошных объектов.

  • Программирование на языках высокого уровня 2

    Логическая схема юниты нтегрированная среда разработки Delphi. Разработка приложения в Delphi. Ввод-вывод данных в Delphi. Windows как среда разработки и выполнения программ.

  • Разработка текстового редактора 2

    Содержание Содержание 1 1.Постановка задачи 2 1.Создали новый проект. 3 2.Поместили на форму компоненты Memo, MainMenu, Panel. 3 3.Создали главное меню и пункты в нем. В каждом пункте меню описали событие OnClick. 3

  • Изучение работы с файлами на языке Delphi

    Министерство образования и науки Российской Федерации Курский государственный технический университет Кафедра ПО ВТ Изучение работы с файлами на языке

  • Создание treeview в Delphi

    Форма: Листинг программы unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, XPMan, SRColBtn, SRGrad, IniList, ImgList;

  • Основные свойства проекта

    Федеральное агентство по образованию ГОУВПО «Московский Государственный Текстильный Университет им. А. Н. Косыгина» Кафедра АСОИ и У Лабораторная работа №1

  • Автоматизация работы агентства по продаже авиабилетов

    Àâòîìàòèçàöèÿ ðàáîòû àãåíòñòâà ïî ïðîäàæå àâèàáèëåòîâ

  • Автоматизация автосалона 2

    Содержание: Введение. 2 Описание таблиц Базы Данных. 3 Взаимосвязь между таблицами Базы Данных. 4 Описание внешнего вида пользовательского интерфейса. 5

  • База данных предприятия

    Министерство образования Российской Федерации. Сибирский межрегиональный колледж строительства и предпринимательства. Курсовой проект По дисциплине:

  • Действия над матрицами

    МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН КОНТРОЛЬНАЯ РАБОТА по дисциплине «Инструментальные средства разработки программных средств»