Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
serg1986
5 / 5 / 1
Регистрация: 26.01.2010
Сообщений: 40
1

Два массива, два фаила

01.02.2010, 09:03. Просмотров 345. Ответов 3
Метки нет (Все метки)

Два массива, два фаила обмениваются числами так,
что бы в одном оказались только четные значения,
а в другом - нечотные значения.
затем привести количество чисел к одинаковой длинне
путём удаления конечных значений в массиве, фаиле.

Добавлено через 9 часов 3 минуты
ну помогите пжста!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.02.2010, 09:03
Ответы с готовыми решениями:

Известно, что среди элементов массива два и только два равны между собой. Напечатать их индексы
Помогите, пожалуйста, решить задачу. Дан двухмерный целочисленный массив А...

ввести слово.вывести два первых и два последних символа через тире
помогите пожалуйста!!!!!оооочень прошу!!! вот задача: ввести слово.вывести два...

Известно, что среди его элементов два и только два равны между собой. Напечатать их индексы
привет всем)) плиз помогите решить задачу Дан массив А. Известно, что среди...

Два исходных массива объединить в один, включив элементы второго массива между K и (K+1) элементами первого массива.
Ребят, помогите, пожалуйста, сделать задачи, так как сама в этом ничего не...

Дан двухмерный целочисленный массив А[1..3,1..4]. Известно, что среди его элементов два и только два равны между собой. Напечатать их индексы.
Дан двухмерный целочисленный массив А. Известно, что среди его элементов два и...

3
Puporev
Модератор
54677 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,344
01.02.2010, 09:28 2
serg1986, Смотрите сортировку слиянием, принцип тот же. Пример сортировки есть в разделе Важное этой ветки форума.
0
serg1986
5 / 5 / 1
Регистрация: 26.01.2010
Сообщений: 40
02.02.2010, 00:20  [ТС] 3
я посмотрел но чот плохо сооброжается может поподробнее напишете!

Добавлено через 2 часа 29 минут
мне подождать, или уж ломать голову доконца
0
Snoopy
1912 / 1071 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
19.02.2010, 14:01 4
у меня была лаба в универе, сортирвка слиянием, использовались записи, может пригодится, но исправлять я не буду!комментарии будут читабельными в компиляторе
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
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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
program Sort;
Uses Crt;
Const NMax=100;
Type Rec=Record
    Mark: String[15];
    Piec: Integer;
   end;
   Table=array [1..NMax] of Rec;
 
 
Var T: Table;
    n: Integer;
   ch: Byte;
 
 procedure InTab (var T: Table; var n: integer);
  var  ch: char;
    fname: string;
        i: integer;
        f: file of rec;
      cod: Byte;
 
  begin
   ClrScr;
   n:=0;
   repeat
     n:=n+1;
     Writeln('‚ўҐ¤ЁвҐ ',n,'-о §*ЇЁбм в*Ў«Ёжл!');
     Writeln('Њ*аЄ*');
     Readln(t[n].mark);
     Writeln('Љ®«-ў®: ');
     Readln(t[n].piec);
     Writeln('Џа®¤®«¦Ёвм ўў®¤ y\n?');
     ch:=ReadKey;
    until ch in ['n','N','t','T'];
    Writeln('‘®еа**Ёвм ўўҐ¤Ґ**лҐ ¤***лҐ ў д*©«? y\n');
    ch:=ReadKey;
    if ch in ['n','N','t','T'] then
     exit;
    Writeln('‚ўҐ¤ЁвҐ Ё¬п д*©«*!');
    Readln(fname);
    Assign(f, fname);
   {$I-}
    Rewrite(f);
   {$I+}
    cod:=IOResult;
    if cod=0 then
     begin
      for i:=1 to n do
       write(f, t[i]);
      close(f);
     end
    else
     begin
      Writeln('ЋиЁЎЄ* ЇаЁ ᮧ¤**ЁЁ д*©«*!');
      ReadKey;
     end;
end;
 
 
 procedure InFileTab (var T: Table; var n: integer);
 var cod: Byte;
       f: file of rec;
   fname: string;
      ch: char;
  begin
   ClrScr;
   repeat
    Writeln('‚ўҐ¤ЁвҐ Ё¬п д*©«*!');
    Readln(fname);
     Assign(f, fname);
   {$I-}
    Reset(f);
   {$I+}
    cod:=IOResult;
    if cod<>0 then
     begin
      Writeln('ЌҐў®§¬®¦*® **©вЁ д*©«!', fname);
      Writeln('Џа®¤®«¦*вм а*Ў®вг?y\n');
      ch:=ReadKey;
       if ch in ['n','N','t','T'] then
         exit;
     end;
    until cod=0;
    n:=0;
    while not eof(f) do
     begin
      n:=n+1;
      read(f, T[n]);
     end;
    close(f);
    Writeln('’*Ў«Ёж* §*Ја㦥** Ё§ д*©«* ', fname);
    Write('Ќ*¦¬ЁвҐ «оЎго Є«*ўЁиг...');
    ReadKey;
   end;
 
 procedure ShowTab (var T: Table; n: integer);
 var i:integer;
 begin
   ClrScr;
   Writeln('‡*ЇЁбЁ ’*Ў«Ёжл:');
   Writeln('-----------------------');
   Writeln('       Њ*аЄ* | Љ®«-ўo |');
   Writeln('-----------------------');
   for i:=1 to n do
     Writeln(T[i].mark:13,'|',T[i].piec:8,'|');
   Writeln('-----------------------');
   Writeln('Ќ*¦¬ЁвҐ «оЎго Є«*ўЁиг...');
   ReadKey;
  end;
 
 procedure PrintTab(var T: Table; n,j:integer; gr:array of integer);
 var k,i,z:integer;
 begin
  z:=0;
  writeln ('‚ᥣ® ЈагЇЇ:',j);
  for i:=1 to j do
  begin
    if (i mod 2)=0 then
      textattr:=blue*16+white
    else
      textattr:=green*16+white;
    for k:=1 to gr[i-1] do
    begin
      z:=z+1;
      write (T[z].piec);
      write (' ');
    end;
  end;
  textattr:=black*16+white;
  writeln;
  readln;
 end;
 
 procedure MixdownSort (var T:table; n:integer);
 var TBuf:table;
     grps:array[1..NMax] of integer;
     i,j,z,k:integer;
     ng1,ng2,gr1,gr2,l,igr1,igr2:integer;
 begin
   j:=0;
   k:=1;
   for i:=2 to n+1 do       {а*§ЎЁҐ*ЁҐ ** ЈагЇЇл}
   begin
     if (T[i].piec<T[i-1].piec) or (i>n) then
     begin
       j:=j+1;
       grps[j]:=k;
       k:=1;
     end
     else
       k:=k+1;
   end;
 
   while j>1 do
   begin
   PrintTab (T,n,j,grps);
   ng1:=0;
   for i:=1 to (j div 2) do
   begin
     gr1:=grps[i*2-1];
     gr2:=grps[i*2];
     igr1:=gr1;
     igr2:=gr2;
     l:=gr1+gr2;
     for z:=0 to l-1 do         {д®а¬Ёа®ў**ЁҐ §®*л б«Ёп*Ёп}
     begin
 
       if ((igr1>0) and (igr2>0) and (T[ng1+igr1].piec>=T[ng1+gr1+igr2].piec))
                     OR ((igr1>0) and (igr2<=0)) then
       begin
         TBuf[l-z]:=T[ng1+igr1];
         igr1:=igr1-1;
       end
       else
       begin
       if ((igr1>0) and (igr2>0) and (T[ng1+igr1].piec<T[ng1+gr1+igr2].piec))
                     OR ((igr2>0) and (igr1<=0)) then
       begin
         TBuf[l-z]:=T[ng1+gr1+igr2];
         igr2:=igr2-1;
       end;
       end;
     end;
     for z:=1 to l do
         T[ng1+z]:=TBuf[z];
     ng1:=ng1+gr1+gr2;
   end;
   for i:=1 to (j div 2) do
   begin
     grps[i]:=grps[i*2-1]+grps[i*2];
   end;
   if (j mod 2 <> 0) and (j<>1) then
     begin
     j:=(j div 2)+1;
     grps[j]:=grps[j*2-1];
     end
   else
     j:=j div 2;
   end;
   for i:=1 to n do
     begin
     write (T[i].piec);
     write (' ');
     end;
   readln;
 end;
 
  begin
   n:=0;
   repeat
    ClrScr;
    Writeln('1. ‚ў®¤ ¤***ле б Є«*ўЁ*вгал');
    Writeln('2. ‡*Јаг§Є* в*Ў«Ёжл Ё§ д*©«*');
    Writeln('3. ‚лў®¤ в*Ў«Ёжл');
    Writeln('4. ‘®авЁа®ўЄ*');
    Writeln('----------------------------');
    Writeln('0. ‚л室');
    writeln;
    Write('‚*и ўлЎ®а: ');
    Readln(ch);
    ClrScr;
 
    Case ch of
      0: break;
      1: InTab(T,n);
      2: InFileTab(T,n);
      3: if n<>0 then
           ShowTab(T,n)
         else
          begin
           Writeln('’*Ў«Ёж* *Ґ ᮧ¤***!');
           ReadKey;
         end;
      4: if n<>0 then
          MixdownSort(T,n);
        else
         begin
          Writeln('’*Ў«Ёж* *Ґ ᮧ¤***!');
          ReadKey;
          ClrScr;
         end;
      end;
   until ch=0;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.02.2010, 14:01

Даны два массива: А(10) и В(10) образуйте массив С, состоящий из сумм соответствующих элементов массива А и В
Даны два массива: А(10) и В(10) образуйте массив С, состоящий из сумм...

Сформировать два массива: в первый включить четные элементы исходного массива, во второй – нечетные
Из одномерного массива сформировать два массива: в первый включить четные...

Даны два целочисленных массива K(m) и L(n). Найти наименьший элемент массива K, не имеющий себе равных в массиве L
Даны два целочисленных массива K(m) и L(n). Найти наименьший элемент массива K,...


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

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

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