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г.
Другие работы по теме:
работа
Кинематографы создают удивительные спецэффекты или полностью анимированные фильмы. В последние годы широкое распространение получили также компьютерные игры, максимально использующие трехмерную графику для создания виртуальных миров
Вычисление значения функции y(x)
Особенности применения компьютерных программ Pascal, Excel, MathCAD и Delphi для вычисления значения функции y(x) с заданным промежутком и шагом. Виды результатов вычислений, их сравнение и вывод. Изображение блок-схемы алгоритма решения задания.
Визуальное программирование
Визуализация - это процесс графического отображения сложных процессов (в данном случае построения) на экране компьютера в виде графических примитивов (графических фигур).
Анимация без лишних усилий
Отличные результаты можно получить используя только функции WinAPI или возможности Delphi. Я рассмотрю несколько таких необычных возможностей, причем самый большой пример будет состоять из менее чем 10 (!) строк кода.
Описание файлов, создаваемых Дельфи
Вы когда ни будь задумывались о том, что создает Дельфи в папке с исходниками проекта? Да и нужен ли весь этот абсолютно бесполезный, для рядового программиста, "мусор"? Пора призадуматься. В этой мини-статье я расскажу о назначении таких файлов.
Установка компонентов в Дельфи
Если после установки компонента на форму возникли проблемы с компиляцией проекта, то это значит, что Delphi не может найти .pas файл компонента.
Реестр: записьчтение
Работа с системным реестром в Delphi достаточно простая. Использование реестра имеет некоторые преимущества перед INI-файлами. Они заключаются в том, что реестр - более стабильный, и у него нет ограничения на размер.
Допустимость хода шахматной фигуры
Разработка программы в среде Delphi, показывающей на экране возможные варианты выбранной шахматной фигуры для хода. Спецификация исходных данных и функций программы, тексты разработанных классов приложения и их ключевые методы, тестирование программы.
Введение в программирование
Сущность отладки, условия ее выполнения. Ошибки при компиляции программы, создание и изменение исходных символьных файлов. Процесс преобразования кода в машинный. Первый программист, виды трансляторов, классификация и уровни языков программирования.
Разработка программы-советчика
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ ГОУ «ЧЕРЕПОВЕЦКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ» Институт информационных технологий Кафедра Автоматизации и систем управления
Математична модель вимірювальної системи в середовищі Delphi
Курсова робота Математична модель вимірювальної системи в середовищі Delphi АНОТАЦІЯ Опис програми містить загальний опис алгоритмів головної програми та допоміжних на рівні блок-схем, а також більш детальний опис розробленої програми на рівні програмного коду.
Створення таблиць за допомогою SQL-запитів в середовищі DELPHI
Створення таблиць за допомогою запитів в середовищі DELPHI Середовище Delphi широко використовується для програмування баз даних. Найчастіше, бази даних як певний підбір даних, організовані за допомогою таблиць. В реляційних базах даних таблиці представляють інформацію про об”єкти одного типу.
Середовище програмування DELPHI 2 0
СЕРЕДОВИЩЕ ПРОГРАМУВАННЯ DELPHI 2.0 Зміст Основні елементи середовища 1. Головне вікно 2. Вікно форми 3. Вікно коду 4. Інспектор об’єктів Управління файлами проекту Delphi
Середовище програмування DELPHI 20
СЕРЕДОВИЩЕ ПРОГРАМУВАННЯ DELPHI 2.0 Зміст 5.Основні елементи середовища 2 a.1. Головне вікно 2 a.2. Вікно форми 2 a.3. Вікно коду 3 a.4. Інспектор об’єктів 3
Визуальное программирование в Delphi
Изучение методов визуального программирования в Delphi. Задание: Построить графики функций ; ; Текст программы: unit Graph; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
База данных предприятия
Министерство образования Российской Федерации. Сибирский межрегиональный колледж строительства и предпринимательства. Курсовой проект По дисциплине:
Разработка программного продукта на языке высокого уровня
Программа для выбираемой единицы измерения (градусы Фаренгейта или Цельсия) и для задаваемого значения температуры в этой единице измерения. Среда Delphi. Системные требования. Блок схема программы. Интерфейс. Тестирование и сопровождение программы.
Создание приложения Клавиатурный тренажер
Министерство образования и науки Украины Луганский национальный университет имени Тараса Шевченко Ровеньковский факультет Кафедра информационных технологий и систем
Oedipus Free Will Essay Research Paper The
Oedipus Free Will Essay, Research Paper The characters in the story are free to make their own choices in life. Laios, upon being told that his son will kill him and marry his wife, chooses to have him killed. If Laios had not been told this
Oedipus Essay Research Paper The Excruciating Truth
Oedipus Essay, Research Paper The Excruciating Truth of Oedipus Oedipus is a man of integrity and passion whose goal in life was to seek the raw truth. Throughout the story, he constantly tried to obtain that
Interpretations Of Socrates
’s Definition Of Wisdom Essay, Research Paper . he went to Delphi at one time and ventured to ask the oracle he asked if any man was wiser than I, and the Pythian replied that no one was wiser 21b
Oedipus The King And His Fate Essay
, Research Paper Oedipus The King, by Sophocles, is a play about how Oedipus lives up his fate that he will kill his father and marry his mother, both of which are extremely bad in the Greek society, even though he thinks he is getting away from it. Despite the Greek notions of supreme power of the gods and fate, Oedipus’ downfall is primarily the result of King Laius? and his own actions and attempts to defy the gods, consequently Sophocles says that prophecies from the gods of someone?s fate should not be ignored.
Oedipus Rex Essay Research Paper In Sophocles 2
Oedipus Rex Essay, Research Paper In Sophocles? Oedipus Rex, dramatic irony is often present in Oedipus? long speeches. Oedipus constantly sees things incorrectly, and is in denial that he
Oedipus The King Essay Research Paper Even
Oedipus The King Essay, Research Paper Even though Oedipus the King didn?t detail all of Oedipus? adventures, I thought it was a good book. I think it was smart of Sophocles to pick out the most
Apollo 2 Essay Research Paper ApolloTable of
Apollo 2 Essay, Research Paper Apollo Table of Contents 1. Title Page 2. Table of Content 3. Apollo Report 4. Apollo Report 5. Story of apollo 6. Temple of Apollo ( Didyma, Turkey )