НАРУШИТЕЛЬ
641 / 356 / 2
Регистрация: 10.11.2011
Сообщений: 1,749
Записей в блоге: 5
1

Пожалуйста помогите, найдите ошибку, не могу вывести В MEMO 2

17.04.2012, 16:13. Показов 675. Ответов 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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
procedure TForm1.Button1Click(Sender: TObject);
var
max,min,i,n,j,l,z:integer;
a,b:array[0..30] of integer;
begin
n:=strtoint(Edit1.Text);
j:=0;
for i:=1 to n do
a[i]:=strtoint(Memo1.Lines[i-1]);
max:=a[0]; z:=0;
min:=a[0]; l:=0;
for i:=0 to n do
begin
if (a[i]>max) then
begin
max:=a[i];
z:=i;
end;
end;
for i:=0 to n do
if (a[i])<min then
begin
min:=a[i];
l:=i;
end;
if (z>l) then
begin
for i:=z to l do
begin
j:=j+1;
b[j]:=a[i];
Memo2.Lines.Add(inttostr (b[j]));
end;
end
else
if (z<l) then
begin
for i:=(z+1) to l-1 do
begin
j:=j+1;
b[j]:=a[i];
Memo2.Lines.Add(inttostr(b[j]));
end;
end;
Memo2.Enabled:=False;
Edit1.Enabled:=False;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Lines.Clear;
Memo2.Lines.Clear;
Edit1.Clear;
end;
 
end.
Добавлено через 51 секунду
буду признателен за помощь.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.04.2012, 16:13
Ответы с готовыми решениями:

Я не могу найти ошибку в 3 строке найдите пожалуйста
@Override public void start(Stage primaryStage) throws Exception{ (здесь) Parent root =...

Найдите пожалуйста ошибку, должен вывести матрицу 3х3
#include &lt;iostream&gt; #include &lt;cmath&gt; using namespace std; int main(){ int a; int b; int i,j;...

Помогите, пожалуйста. Где-то затупил и не могу найти ошибку
$this-&gt;first_player-&gt;clear(); $this-&gt;second_player-&gt;clear(); ...

помогите пожалуйста с графиком! не могу найти ошибку!!необходимо чтоб кривая проходила по точкам!
unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

4
23 / 23 / 12
Регистрация: 13.09.2010
Сообщений: 88
17.04.2012, 17:31 2
скопируй весь код программы, чтобы знать вообще какие элементы ты используешь или выкини исходник
0
НАРУШИТЕЛЬ
641 / 356 / 2
Регистрация: 10.11.2011
Сообщений: 1,749
Записей в блоге: 5
17.04.2012, 17:32  [ТС] 3
ok, щас скопирую полностью.
0
НАРУШИТЕЛЬ
641 / 356 / 2
Регистрация: 10.11.2011
Сообщений: 1,749
Записей в блоге: 5
17.04.2012, 17:34  [ТС] 4
Вот условие задачи:
Дан одномерный массив от 0 до N. Элементы массива не повторяются из элементов расположенных между max и min сформировать новый одномерный массив.
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
unit zad2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
max,min,i,n,j,l,z:integer;
a,b:array[0..30] of integer;
begin
n:=strtoint(Edit1.Text);
j:=0;
for i:=1 to n do
a[i]:=strtoint(Memo1.Lines[i-1]);
max:=a[0]; z:=0;
min:=a[0]; l:=0;
for i:=0 to n do
begin
if (a[i]>max) then
begin
max:=a[i];
z:=i;
end;
if (a[i])<min then
begin
min:=a[i];
l:=i;
end;
end;
 
if (z>l) then
begin
for i:=z to l do
begin
j:=j+1;
b[j]:=a[i];
Memo2.Lines.Add(inttostr (b[j]));
end;
end
else
if (z<l) then
begin
for i:=(z+1) to l-1 do
begin
j:=j+1;
b[j]:=a[i];
Memo2.Lines.Add(inttostr (b[j]));
end;
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;
 
end.
0
1085 / 571 / 79
Регистрация: 07.04.2011
Сообщений: 971
Записей в блоге: 2
18.04.2012, 00:26 5
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
...............
...............
if (z<l) then
 for i:=z to l do
   begin
    inc(j);
    b[j]:=a[i];
    Memo2.Lines.Add(inttostr (b[j]));
    end
else
 for i:=l to z do
  begin
    inc(j);
    b[j]:=a[i];
    Memo2.Lines.Add(inttostr (b[j]));
  end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.04.2012, 00:26
Помогаю со студенческими работами здесь

найдите, пожалуйста, ошибку!
При запуске выдаёт exitcod=200. Program proga; function step (m: real; n: integer): real; var ...

Найдите ошибку, пожалуйста
Задача: Дано ряд символов. Заменить в нем круглые скобки на квадратные. Строку считывает,...

найдите ошибку пожалуйста
&lt;html&gt; &lt;head&gt; &lt;title&gt;Кафе Starbuzz &lt;/title&gt; &lt;style type=&quot;style/css&quot;&gt; body={ ...

Найдите ошибку пожалуйста
Дана функция f(x) = x3 – 3*sin(x), необходимо определить минимум данной функции на отрезке методом...

Найдите, пожалуйста, ошибку
uses crt; var k, n, i, min, min_i: integer; a: array of integer; b, c: boolean; ...

Пожалуйста, найдите ошибку)
вот такая задачка. Вывести на экран первые пять совершенных чисел (функция возвращает 1, если...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru