Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Plombir
0 / 0 / 0
Регистрация: 26.09.2012
Сообщений: 3
#1

Не считает массив - Delphi

12.12.2012, 20:36. Просмотров 269. Ответов 0
Метки нет (Все метки)

Pascal
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
94
95
96
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit_Xni: TEdit;
    Label1: TLabel;
    Edit_Xki: TEdit;
    Label2: TLabel;
    Edit_hXi: TEdit;
    Label3: TLabel;
    Edit_A: TEdit;
    Label4: TLabel;
    Edit_D: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Memo_X: TMemo;
    Memo_Y: TMemo;
    Memo_Z: TMemo;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit_P: TEdit;
    Label10: TLabel;
    Button_calc: TButton;
    Button_close: TButton;
    Button_clear: TButton;
    procedure Button_calcClick(Sender: TObject);
    procedure Button_closeClick(Sender: TObject);
    procedure Button_clearClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button_calcClick(Sender: TObject);
 
type mas=array[1..30] of real;
var
X,Y,Z:mas;
Xni,Xki,hXi,A,D,P:real;
i,N:integer;
begin
Xni:=StrToFloat(Edit_Xni.Text);
Xki:=StrToFloat(Edit_Xki.Text);
hXi:=StrToFloat(Edit_hXi.Text);
N:=trunc((Xki-Xni+hXi/2)/hXi)+1;
P:=1;
for i:=1 to N do
begin
X[i]:=Xni+hXi*(i-1);
Y[i]:=A*Sin(A*X[i])-D*Cos(D*X[i]);
if(Y[i]<0.2) then
Z[i]:=X[i]-Y[i]*Sqrt(2+Sin(X[i]))
else
Z[i]:=4*Sqrt(1+Exp(A*Y[i]));
Memo_X.Lines.Add(FormatFloat('##0.0###',X[i]));
Memo_Y.Lines.Add(FormatFloat('##0.0###',Y[i]));
Memo_Z.Lines.Add(FormatFloat('##0.0###',Z[i]));
begin
P:=P*Z[i];
 
end;
 
end;
end;
 
procedure TForm1.Button_closeClick(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Button_clearClick(Sender: TObject);
begin
edit_Xni.Clear;edit_Xki.Clear; edit_hXi.clear; edit_A.Clear;
edit_D.Clear;
memo_X.Clear;
memo_Y.Clear;
memo_Z.Clear;
 
end;
 
end.

http://www.cyberforum.ru/delphi-beginners/thread1301331.html
0
Миниатюры
Не считает массив  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2012, 20:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Не считает массив (Delphi):

Неправильно считает сумму одномерного массив и столбца\строки двумерного ( матрицы )
Доброго времени суток, требуется помощь. vector_A, vector_B: array of...

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

Написать функцию целого типа, принимающую параметр – массив. Функция считает и возвращает среднее арифметическое элементов массива. В вызывающей
Написать функцию целого типа, принимающую параметр – массив. Функция считает и...

Написать функцию целого типа, принимающую параметр – массив. Функция считает и возвращает сумму элементов массива. В вызывающей программе прочит
Написать функцию целого типа, принимающую параметр – массив. Функция считает и...

Не верно считает
Почему происходит не верный подсчет знаменателя в строке 48? unit Unit1; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2012, 20:36
Привет! Вот еще темы с решениями:

не считает модуль
unit Unit3; interface uses Windows, Messages, SysUtils, Variants,...

Не считает конвертор
Простой конвертер валют, в эдит 1 и 2 вбиваем курс доллара и евро, а в 3 эдит...

Задача не правильно считает
Я написал код,но он не правильно как-то считает.Я уже просто не знаю что...

Делфи неправильно считает
begin xn:=strtofloat(Edit1.Text); xk:=strtofloat(Edit2.Text);...


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

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

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