1 / 1 / 0
Регистрация: 31.03.2016
Сообщений: 26
1

Ошибка 'Out of memory'. График двух функций

31.03.2016, 02:31. Показов 837. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Быдло кодер то есть я, написал кривой код в следствии чего, компилятор выдаёт ошибку 'Out of memory'.
Собственно сам код
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart,Math;
 
type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    CheckBox1: TCheckBox;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Series2: TLineSeries;
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a,b,h,z,c,d,g,t:real;
 
 
implementation
 
{$R *.dfm}
function fun(x:real):real;
begin
fun:= (x*x*x)-9*(x*x)+26*(x)-24;
end;
function fun1(y:real):real;
begin
fun1:= (y*cos(y)-1) ;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
label3.Caption:='Введите количество точек'
else
label3.Caption:='Введите шаг';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,r:integer;
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'') and (Edit5.Text<>'') and (Edit6.Text<>'') then
begin {проверка, если включен, значит - разбиение по точкам}
if CheckBox1.Checked then begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
i:=StrToInt(Edit3.Text); {i - количество точек разбиения}
h:=(b-a)/i; {вычисление шага h для аргумента функции}
c:=StrToFloat(Edit4.Text);
d:=StrToFloat(Edit5.Text);
r:=StrToInt(Edit6.Text);
g:=(c-d)/r;
end
else {иначе, если выключен}
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
h:=StrToFloat(Edit3.Text);
c:=StrToFloat(Edit4.Text);
d:=StrToFloat(Edit5.Text);
g:=StrToInt(Edit6.Text); {ввод шага h для аргумента функции}
end;
z:=a;
t:=c;
while z<=b do
with Series1 do
AddXY(z, fun(z), '',clTeeColor);
while t<=d do
with Series2 do
AddXY(t, fun(t), '',clTeeColor);
z:=z+h;
t:=t+g;
end;
end.
Программа жрет гиг оперативы и выдает ошибку, при компиляции ошибок не находи
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
31.03.2016, 02:31
Ответы с готовыми решениями:

Построить 3d график от двух функций
Здравствуйте, может задаю глупый вопрос, но все же у меня имеется функция k(a,t) (расстояния от...

Построить график двух функций
Вычислить значения двух функций в n равномерно расположенных точках в диапазоне a&lt;x&lt;b. Построить...

Как построить график от двух функций
Подскажите, как построить график от этих функций 1) x^2+y^2=1 2) x^2+y^2-x=16*x^2+16*y^2 Вот как...

Построить график свертки двух функций.
Уважаемы жители форма, я взываю к вашей мудрости, так как беда настигла меня внезапно. Пожалуйста,...

1
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
31.03.2016, 08:25 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
z:=a;
t:=c;
while z<=b do
 begin
  with Series1 do AddXY(z, fun(z), '',clTeeColor);
  z:=z+h;
 end;
while t<=d do
 begin
  with Series2 do AddXY(t, fun(t), '',clTeeColor);
  t:=t+g;
 end;
0
31.03.2016, 08:25
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
31.03.2016, 08:25
Помогаю со студенческими работами здесь

Построить совместный график двух функций
построить совместный график двух функций: а) y1=x+sinx b) y2=ln|x|+sinx

График двух функций системы уравнений
Как можно изобразить на графике два уравнения: sin(y+1)-x=1.2 и 2*y+cos(x)=2, чтобы найти...

Построить график функции суммы произведений других двух функций
Здравствуйте! Необходимо построить график функции (на фото). Пытаюсь вначале посчитать по циклу...

Построить график двух функций в Chart и найти точки пресечения их на заданном интервале
Здравствуйте, столкнулся с затруднением,поставлена задача: построить график 2х функций cos(x) и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

Новые блоги и статьи
Как написать микросервис на Go/Golang
InfoMaster 14.01.2025
Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на C#
InfoMaster 14.01.2025
В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript
InfoMaster 14.01.2025
В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере
InfoMaster 14.01.2025
Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
Как создать игру "Танчики" на Unity3d и C#
InfoMaster 14.01.2025
Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .
Организую платный онлайн микро-курс по доработке Android-клиента Telegram
_Ivana 14.01.2025
Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin
InfoMaster 14.01.2025
Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .
Как создать приложение магазина для iOS/iPhone на Swift
InfoMaster 14.01.2025
Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь!
Hrethgir 13.01.2025
По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .
UserScript для подсветки кнопок языков программировани­­­­я в зависимости от текущего раздела
volvo 13.01.2025
В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .
Введение в модели и алгоритмы машинного обучения
InfoMaster 12.01.2025
Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .
Как на Python создать нейросеть для решения задач
InfoMaster 12.01.2025
В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru