Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 07.04.2015
Сообщений: 8
1

Упорядочить по возрастанию отдельно элементы, стоящие на четных местах, и элементы на нечетных

08.04.2015, 13:22. Показов 465. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
delphi упорядочить по возрастанию отдельно элементы ,стоящие на четных местах , и элементы , стоящие на нечетных местах


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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Memo2: TMemo;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 a:array [1..100,1..100] of integer;
                 f,j,i,n,k,b:integer;
 
  s:string;
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
n:=strtoint(edit1.Text);
k:=strtoint(edit2.Text);
 
 
s:='';
Memo1.Clear;
  for i := 1 to n do
  begin
    for j := 1 to k do
    begin
    a[i,j]:=random(50)-25;
      s := s + IntToStr(a[i, j])+#9;
    end;
    Memo1.Lines.Add(s);
    s:='';
    end;
    
 
end;
 
 
 
 
 
 
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
 var
 h,o,sum:integer;
begin
o:=1;
b:=1;
 
memo2.Clear;
    for i:=1 to n do
 
    for j:=1 to k do
 if a[i,j]>0 then
       b:=b*(a[i,j]);
 
       memo2.Lines.Add('произведение положительных элементов:'+inttostr(b));
 
 
 
 
end;
procedure TForm1.Button3Click(Sender: TObject);
q,w,h:integer;
begin
 
for i:=1 to n do
for j:=1 to k do
 if h>a[i,j] then
 h:=a[i,j] ;
 begin
  for i:=1 to n do
  for j:=1 to k do
  h:=a[i,j];
  q:=i;
  w:=j;
  if a[i,j]<>a[q,w] then
  h:=h+a[q,w];
  end
  else
  break
  end;
 
end;
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.04.2015, 13:22
Ответы с готовыми решениями:

Упорядочить по возрастанию значений отдельно элементы, стоящие на четных местах, и элементы, стоящие на нечетных местах
#include&lt;iostream&gt; #include&lt;algorithm&gt; #include&lt;vector&gt; using namespace std; int main() { ...

Упорядочить по возрастанию отдельно элементы, стоящие на четных местах, и элементы, стоящие на нечетных местах
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) сумму элементов...

Упорядочить по возрастанию отдельно элементы, стоящие на четных местах, и элементы на нечетных
помогите: В одномерном массиве, состоящем из n вещественных элементов: Упорядочить по...

Упорядочить по возрастанию отдельно элементы массива, стоящие на четных и нечетных местах
Упорядочить по возрастанию отдельно элементы, стоящие на четных местах, и элементы, стоящие на...

0
08.04.2015, 13:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2015, 13:22
Помогаю со студенческими работами здесь

Приведите в порядок по возрастанию отдельно элементы, стоящие на четных местах, и ​​элементы на нечетных (в чем ошибка)?
#include &lt;iostream&gt; using namespace std; int main() { setlocale(LC_ALL, &quot;rus&quot;); int N;...

Упорядочить по возрастанию отдельно элементы, стоящие на четных местах
с использованием процедур и функций ,реализованных в подключенных модулях Даны целые числа a(1),...

Упорядочить по возрастанию отдельно элементы, стоящие на четных местах
Упорядочить по возрастанию отдельно элементы, стоящие на четных местах, и элементы, стоящие на...

Упорядочить элементы, стоящие на четных местах, по возрастанию, а элементы на нечетных местах - по убыванию
Задание: дан линейный массив из n элементов. Упорядочить элементы, стоящие на четных местах, по...

Упорядочить по возрастанию отдельно элементы массива, стоящие на четных местах
В одномерном массиве, состоящем из п вещественных элементов Упорядочить по возрастанию отдельно...

Упорядочить массив по возрастанию отдельно элементы, стоящие на чётных местах
В одномерном массиве,состоящем из n вещественных элементов,вычислить: Упорядочить по...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru