Составить схему алгоритма и программу в Delphi вычисления заданной функции и построения её графика.
Функция: http://s1.uploads.su/j3g5dt.jpg
Параметры изменения аргумента (Входные данные):
Xn-начальное значение x
Xk-конечное значение x
dx-шаг
Программу вроде написал:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, ComCtrls, StdCtrls, ExtCtrls, TeEngine, TeeFunci, Series, TeeProcs, Chart, XPMan; type TForm1 = class(TForm) Panel1: TPanel; Label1: TLabel; Image1: TImage; Panel2: TPanel; Panel3: TPanel; Button1: TButton; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Button2: TButton; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; StringGrid1: TStringGrid; Label5: TLabel; Edit4: TEdit; Chart1: TChart; Series1: TLineSeries; TeeFunction1: TAddTeeFunction; Series2: TLineSeries; XPManifest1: TXPManifest; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); private < Private declarations >public < Public declarations >end; var Form1: TForm1; implementation procedure TForm1.Button1Click(Sender: TObject); begin close; end; procedure TForm1.Button2Click(Sender: TObject); var a,y,dx,Xn,Xk,x:Extended; trow:integer; begin dx:=00; if trystrtofloat(edit1.text,xn) and trystrtofloat(edit2.text,xk) and trystrtofloat(edit3.text,dx) and (dx>0) and trystrtofloat(edit4.text,a) then begin // проверяем условие x:=xn; form1.StringGrid1.Cells[0,0]:=’Значения X’; form1.StringGrid1.Cells[1,0]:=’Значения Y’; form1.StringGrid1.RowCount:=round((xk-xn)/dx)+1; form1.Series1.Clear; form1.Series2.Clear; trow:=1; while x’0′) and (key<‘9′)) or (key=#8) or (key=’,’) or (key=’-‘) then else key:=#0; end; end.
Как дописать,чтобы в таблице значений писало «ошибка»,когда под н.логарифмом(ln(x*a)) получается отрицательное число (при а<0)?
Процедуры и функции в Delphi (function, procedure)
Источник: delphisources.ru
Developing.ru
Re: Составить программу для вычисления функции.делфи
3 сообщения •Страница 1 из 1
вот эти функции
Предоставленное изображение не позволяет прочитать текст формул.
[quote=»Naeel Maqsudov»]Предоставленное изображение не позволяет прочитать текст формул.[/вы вкантакт есть?я вам туда скину задание.скажите имя фамилия?
QUOTE]
3 сообщения •Страница 1 из 1
- Системное и прикладное программирование
- ↳ Win API, Shell..
- ↳ C и C++
- ↳ Delphi и Pascal
- ↳ Программирование на Pascal и Delphi (Object Pascal)
- ↳ Все вопросы ООП
- ↳ Компоненты в Delphi
- ↳ Delphi и WinAPI, ActiveX и OLE , COM и DCOM, и т.д
- ↳ Java
- ↳ MS Office и VB(A).
- ↳ Ассемблер
- WEB программирование
- ↳ JScript, VBScript, DHTML.
- ↳ Perl, PHP, ASP .
- Некатегоризированное
- ↳ Вопрошайка
- ↳ SQL
- ↳ Алгоритмы
- ↳ Дизайн и графика
- Администрирование
- ↳ Apache, IIS.
- ↳ Операционные системы
- Работа
- ↳ Вакансии и заказы для программистов
- ↳ Поиск работы и заказов.
- ↳ Решите мне задачку
- ↳ задачи на Паскале и Delphi
- ↳ задачи на C и C++
- ↳ задачи на Basic и Visual Basic (VB)
- Прочее
- ↳ Жалобная книга
- ↳ Флейм.
Источник: www.developing.ru
#2 Курсы программирования в Delphi — модульность, юниты, функции
Составить программу для вычисления функции delphi
В университете начали учить Delphi 7, сразу дали кучу заданий ничего не пояснив, я «все понял», и вот к модулю увидел задания.
Буду максимально благодарен если дадите хоть малейшие пояснения к этому, или же ссылочку на обучение именно такого направления)
И да, в консольном виде нид.
delphi forum.png
Регистрация: 04.02.2011
Сообщений: 4,436
Ну для начала — хоть какую-нибудь книжечку по Паскалю для 8 класса открывал ? (открою тайну — Delphi — это тоже ObjectPascal). Что непонятно? If? Присваивание? Функции?
Все вместе?
Набрав в поиске «delphi для начинающих» — много интересного можно найти. Хотя бы
http://www.delphi-manual.ru/ п.6
А вот про консольные приложения в среде Delphi
http://www.codenet.ru/progr/delphi/stat/console.php
«Не учите меня жить, вы мне программу накорябайте!»
Последний раз редактировалось digitalis; 20.02.2019 в 11:41 .
Регистрация: 20.02.2019
Сообщений: 3
Ну для начала — хоть какую-нибудь книжечку по Паскалю для 8 класса открывал ? (открою тайну — Delphi — это тоже ObjectPascal). Что непонятно? If? Присваивание? Функции?
Все вместе?
Набрав в поиске «delphi для начинающих» — много интересного можно найти. Хотя бы
http://www.delphi-manual.ru/ п.6
А вот про консольные приложения в среде Delphi
http://www.codenet.ru/progr/delphi/stat/console.php
«Не учите меня жить, вы мне программу накорябайте!»
Понял, пасиб, если сделаю, на форуме или сюда же можно вкинуть что бы кто-то проверил?
Регистрация: 12.11.2010
Сообщений: 8,570
Понял, пасиб, если сделаю, на форуме или сюда же можно вкинуть что бы кто-то проверил?
Регистрация: 20.02.2019
Сообщений: 3
program zavd3test1; uses SysUtils; const a=3 ; var x,z,g,k,h: real; y: real; begin writeln(‘Vvedite x=’); readln(x); if (x>a) then begin z:=pi+a*x; h:=abs(sin(a)*sqr(x)); y:=x*x*x*sqrt(abs(x-a*a))+sqr(ln(h))/(sqr(cos(z))); writeln(‘Vidpovid y=’,y); readln; end else begin g:=exp(x)-x*exp((-pi)); k:=sqrt(x+sqrt(a*x*sqr(x))); y:=ln(abs(g/k)); writeln(‘Vidpovid y=’,y); readln; end; end.
Сделал, если вдруг кому-то нужно будет.
Регистрация: 09.01.2008
Сообщений: 26,238
я только одну ошибку увидел:
h:=abs(sin(a*sqr(x)));
p.s. а ешё забавно, что квадрат и куб Вы в разных местах вычисляете по разному.
начиная от x*x*x
и заканчивая x*sqr(x)
впрочем, это не ошибка.
Регистрация: 04.02.2011
Сообщений: 4,436
Неужели вот так, с нуля, получив небольшую подсказку от Яндекса — и такая вполне ничего себе прога ? Вспомогательные переменные применил. Кстати, g и k можно было бы совместить с z и h , а вывод y= делать один, уже после ветвления. PaTaTau, признайся, однокурсник за пиво помог ? А в общем, успехов в науке!
Последний раз редактировалось digitalis; 20.02.2019 в 20:14 .
Источник: www.programmersforum.ru