Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 41, средняя оценка - 4.61
Johnny B
3 / 3 / 0
Регистрация: 03.01.2010
Сообщений: 69
#1

Запись в массив - Delphi

06.02.2010, 22:50. Просмотров 6005. Ответов 24
Метки нет (Все метки)

Необходимо записать в массив 7 чисел - 72,2; 86,3 и т.д. Все числа - дробные
У меня такой код, но он не правильный. Исправьте, пожалуйста
Delphi
1
2
var 
yi:array [72,2;86,3] of real;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2010, 22:50
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Запись в массив (Delphi):

Запись в массив - Delphi
Скажите вот у мну прога выводит русские буквы из текста в окно мемо, но выводит каждую букву в отдельную строку. Можно ли сделать так чтоб...

Укороченая запись в массив - Delphi
Требуется записать числа в массив по примеру ниже, способ mas2 неработает. Неужто тока перечислять? var Form1: TForm1; mas:...

Запись чисел в массив - Delphi
Здравствуйте! В своей практике я задавал массивы только через формулы или тупо через A:= тра та та. А возможно ли как нибудь по другому...

Запись координат в массив - Delphi
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y:...

Запись текстов в двумерный массив - Delphi
Профи, помогите начинающему. Задача такова: В объект МЕМО вручную записывается текст (это первый элемент массива). Второй элемент...

Запись в файл (из string в массив) - Delphi
надо чтоб одно приложение непрерывно записывало текст в файл, а второе читало и выводило в мемо(например) количество прочитанных. все...

24
Johnny B
3 / 3 / 0
Регистрация: 03.01.2010
Сообщений: 69
07.02.2010, 19:17  [ТС] #16
k1ry4, а как записать команду? Я синтаксис еще не очень хорошо знаю.
0
yanyk1n
4331 / 1462 / 152
Регистрация: 12.03.2009
Сообщений: 5,310
07.02.2010, 19:20 #17
Pascal
1
y:=round(a*x[i]+b);
ROUND - округляет,
TRUNC - отбрасывает дробную часть
0
Johnny B
3 / 3 / 0
Регистрация: 03.01.2010
Сообщений: 69
07.02.2010, 21:39  [ТС] #18
Так правильно?
Delphi
1
function Round(X: Real): integer;
Куда вписать?

Добавлено через 14 секунд
А, спасибо. ОК

Добавлено через 4 минуты
Сейчас код выглядит так:
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
procedure TForm1.Button3Click(Sender: TObject);
var x,xi:array [1..7] of real;
    i,n:integer;
    y,mx,my,Rxy,Dx,a,b:real;
const yi:array [1..7] of real=(72.2,86.3,100.9,117.5,134.8,152.4,171.2);
begin
n:=7;
for i:=1 to n do
mx:=mx+xi[i];
mx:=mx/n;
for i:=1 to n do
my:=my+yi[i];
my:=my/n;
for i:=1 to n do
Rxy:=Rxy+(xi[i]-mx)*(yi[i]-my);
Rxy:=Rxy/n;
for i:=1 to n do
Dx:=Dx+(xi[i]-mx)*(xi[i]-mx);
a:=Rxy/Dx;
b:=my-a*mx;
form1.StringGrid1.cells[0,0]:='Возраст Xi';
form1.StringGrid1.Cells[1,0]:='Высота Yi';
form1.StringGrid1.Cells[2,0]:='Возраст X';
form1.StringGrid1.cells[3,0]:='Высота Y';
image5.Canvas.MoveTo(0,271);
for i:=1 to n do begin
y:=a*x[i]+b;
form1.StringGrid1.Cells[n,3]:=floattostr(y);
form1.StringGrid1.Cells[n,2]:=floattostr(n);
y:=round(y);
image1.Canvas.LineTo(n,y);
 
end;
 
Panel2.Visible:=false;
panel3.Visible:=true;
end;
Но он упорно не хочет принимать y за координату... Даже после округления.

Добавлено через 20 минут
Если убрать строку 31, то после компиляции и нажатия на баттон, который я сейчас редактирую, то пишет "Floating point overflow" и указывает на строку 18. А это что за косяк?

Добавлено через 39 минут
Ау, есть кто?...

Добавлено через 1 час 15 минут
function Round(y: Real): integer;
Может как-то так прописывается эта команда?
0
logiC
16 / 16 / 2
Регистрация: 06.06.2009
Сообщений: 50
07.02.2010, 23:16 #19
Пердаваемый аргумент должен быть типа integer. Даже округлив y ты все равно не изменишь тип. Надо завести какую-то целочисленную переменную и в нее записать результат округления y. И уже эту переменную передавать в image1.Canvas.LineTo(,)
0
Johnny B
3 / 3 / 0
Регистрация: 03.01.2010
Сообщений: 69
08.02.2010, 00:26  [ТС] #20
Предположим я завел переменную типа Integer. Как записать в нее значение y, если они разных типов? h:=y работать не будет... А как еще я не знаю...
0
Biggemot
163 / 141 / 8
Регистрация: 28.12.2009
Сообщений: 367
08.02.2010, 02:06 #21
Delphi
1
2
3
4
h: integer;
y: real;
...
h:=round(y);
1
Johnny B
3 / 3 / 0
Регистрация: 03.01.2010
Сообщений: 69
08.02.2010, 02:46  [ТС] #22
Biggemot, спасибо огромное!
0
logiC
16 / 16 / 2
Регистрация: 06.06.2009
Сообщений: 50
08.02.2010, 11:15 #23
мде...а я разве не это же сказал))
2
Biggemot
163 / 141 / 8
Регистрация: 28.12.2009
Сообщений: 367
08.02.2010, 11:33 #24
тоже самое, но Джонни не понял тебя)
0
Johnny B
3 / 3 / 0
Регистрация: 03.01.2010
Сообщений: 69
08.02.2010, 13:25  [ТС] #25
logiC, И тебе спасибо! )))
0
08.02.2010, 13:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.02.2010, 13:25
Привет! Вот еще темы с ответами:

Запись record в массив из edit - Delphi
Всем привет, мне нужна помощь. Вообще есть задача: список людей стоящих в очереди на получение квартиры. В списке указаны порядковый номер,...

Запись данных в массив из трех файлов - Delphi
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,...

Запись данных из stinggrid в одномерный массив - Delphi
Люди добрые, приветствую, помогите! Необходимо записать данные из stinggrid в одномерный массив по-очереди. stinggrid содержит 3 столбца и...

Запись в массив результатов табулирования функции - Delphi
Значит, нам надо протабулировать функцию и вывести результат в поле Memo, затем выведенный результат нужно записать в массив, подскажите...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru