Поиск

Полнотекстовый поиск:
Где искать:
везде
только в названии
только в тексте
Выводить:
описание
слова в тексте
только заголовок

Рекомендуем ознакомиться

Информатика->Реферат
Введение.………………………………………………………………………...3 Теория метода…………………………………………………………………...3 Алгоритм метода………………………………………………………………..4 Принципы построения…………...полностью>>
Информатика->Реферат
Национализм (фр. nationalisme) — идеология и направление политики, базовым принципом которых является тезис о ценности нации как высшей формы обществе...полностью>>
Информатика->Реферат
Цель данной курсовой работы: Получить практические навыки разработки базы данных в определенной предметной области. Изучение свойств баз данных и сист...полностью>>
Информатика->Реферат
Компьютерная революция поставила всех перед фактом, что комплекс информационных технологий превращает образование в фундамент, базу всех других сфер о...полностью>>

Главная > Реферат >Информатика

Сохрани ссылку в одной из сетей:

Задание : Составить программу по вычислению значения функции в заданоу точке 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.

uses

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.

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РФ

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

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

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

Лабораторная работа №3

Структура программ Delphi.

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

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

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

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

_______________________

________________ _______________

«____» ________________ 2001 г.

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


Загрузить файл

Похожие страницы:

  1. Программа вычисления значения и вывода графика определенного интеграла

    Курсовая работа >> Информатика
    ... программы. В мире многие разработчики твердо ориентируются на использование Delphi как на ... Ведь весь исходный текст программы на Delphi пишется на языке Object Pascal, ... системы я использовал программу DotCHM. Эта программа на лету создает справочные ...
  2. Программа на объектно-ориентированном языке Delphi7 для математической задачи определения параме

    Реферат >> Информатика
    ... при выполнении программы. Объектно-ориентированное визуальное программирование в Delphi выводит разработку приложений на новую ... , . Результат работы программы представлен на рисунке 5 Рисунок 5. Результат работы программы на контрольном примере Полученные ...
  3. Способы описания различных типов данных в программах на языке Delphi

    Практическая работа >> Информатика, программирование
    ... описания различных типов данных в программах на языке Delphi. 1. ЗНАКОМСТВО С ИНТЕРФЕЙСОМ DELPHI 1.1. Начало работы в среде ... : Запустите приложение Delphi. При этом откроется главное окно программы Delphi 7. Щелкните на кнопке New ...
  4. Проектирование автоматизированной информационной системы автомобильной стоянки на Delphi

    Курсовая работа >> Информатика, программирование
    ... , рассмотрена среда программирования Delphi на которой в дальнейшем будет написана программа, а так же проанализированы ... функционал программы. После анализа особенностей среды программирования Delphi и возможностей написания на ней программы было ...
  5. Разработка модуля для поиска информации в MapInfo с помощью Delphi

    Реферат >> Информатика
    ... Например, в программе на языке Borland Delphi можно запустить MapInfo вызовом функции ... Пример простейшей программы Следующая программа на Borland Delphi даст представление о том, ... Как только запустили программу на Delphi, она запускает MapInfo, которая ...

Хочу больше похожих работ...

Generated in 0.0070500373840332