|
Вопрос # 4 858/ вопрос открыт / |
|
Здравствуйте, эксперты!
Дан двумерный массив целых чисел. Вставить в него строку из нулей перед всеми строками, в которых количество положительных элементов равно количеству отрицательных.
 |
Вопрос задал: barsichek (статус: Посетитель)
Вопрос отправлен: 24 декабря 2010, 21:34
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Вроде работает. Проверяй, прицепляю к ответу.
Вот случайный вывод консоли:
Source matrix (5x6):
-6 4 -6 -9 -4 0 [P: 1, N: 4]
1 0 1 1 6 -5 [P: 4, N: 1]
-2 7 4 2 -3 -4 [P: 3, N: 3] *
5 2 1 5 8 3 [P: 6, N: 0]
-3 4 -7 6 -1 1 [P: 3, N: 3] *
Changed matrix (7x6):
-6 4 -6 -9 -4 0
1 0 1 1 6 -5
0 0 0 0 0 0
-2 7 4 2 -3 -4
5 2 1 5 8 3
0 0 0 0 0 0
-3 4 -7 6 -1 1
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 26 декабря 2010, 11:01
|
Мини-форум вопроса
Всего сообщений: 32; последнее сообщение — 29 декабря 2010, 21:32; участников в обсуждении: 3.
Страницы: [1] [2] [Следующая »]
24 декабря 2010, 22:14: Вопрос перемещён из тематического раздела Delphi » Прочее в раздел Лабораторный практикум » Delphi модератором Ерёмин А.А.
|
|
min@y™ (статус: Доктор наук), 25 декабря 2010, 07:52 [#1]:
Я готов сделать это. А пиво будет?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
barsichek (статус: Посетитель), 25 декабря 2010, 10:42 [#2]:
скоко пива надо?
|
|
|
min@y™ (статус: Доктор наук), 25 декабря 2010, 10:50 [#3]:
Цитата (barsichek):
скоко пива надо?
Пару кружек хватит.
На каком языке писать и в какой среде программирования?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
barsichek (статус: Посетитель), 25 декабря 2010, 10:52 [#4]:
Delphi. А как я тебе передам пиво?????
|
|
|
min@y™ (статус: Доктор наук), 25 декабря 2010, 10:59 [#5]:
Цитата (barsichek):
А как я тебе передам пиво?????
По Webmoney или на сим-карту. Где живёшь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
barsichek (статус: Посетитель), 25 декабря 2010, 11:00 [#6]:
Давай на сим-карту...в Саранске.сколько?
|
|
|
barsichek (статус: Посетитель), 25 декабря 2010, 11:09 [#7]:
procedure TForm1.Button1Click(Sender: TObject);
var
m:array of array of integer;
k:array of array of integer;
n:array of integer;
i,j,k1,k2,c,r,l,p,q,w,li,f:integer;
begin
c:=strtoint(edit1.Text);
r:=strtoint(edit2.text);
stringgrid1.ColCount:=c;
stringgrid1.RowCount:=r;
setlength(n,r);
setlength(m,c,r);
for i:=0 to c-1 do
for j:=0 to r-1 do
m[i,j]:=strtoint (stringgrid1.Cells[i,j]);
l:=0;
j:=0;
while j<=r-1 do
begin
k1:=0;
k2:=0;
for i:=0 to c-1 do
begin
if m[i,j]>0 then
k1:=k1+1 else
k2:=k2+1;
end;
if k1=k2 then
begin
l:=l+1;//здесь я считаю кол-во таких строк
li:=j;
n[i]:=li;//запоминаю их нумерацию в одномерный массив
label1.caption:='1='+inttostr(l);
memo1.Lines.Add(inttostr(n[i]));
end;
j:=j+1;
end;
w:=r+l;//увеличиваю кол-во строк 2 массива
setlength(k,c,w);
stringgrid2.RowCount:=w;
stringgrid2.ColCount:=c;
//не знаю как вывести правильно
|
|
|
min@y™ (статус: Доктор наук), 25 декабря 2010, 11:12 [#8]:
Цитата (barsichek):
Давай на сим-карту...в Саранске.сколько?
Мордва? Близко, я в Рязани живу.
1 пиво = 30 рублей. Это не сильно ударит по пвоему бюджету?
Твой код не смотрел, никаких StringGrid и GUI для твоей лабы нахрен не надо. Писать программу я начал, как напишу - выложу.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
barsichek (статус: Посетитель), 25 декабря 2010, 11:14 [#9]:
не ударит, но мне нужно сделать с этими Srtinggrid
|
|
|
barsichek (статус: Посетитель), 25 декабря 2010, 11:14 [#10]:
помогите пожалуйста(((((
|
|
|
min@y™ (статус: Доктор наук), 25 декабря 2010, 11:30 [#11]:
Цитата (barsichek):
но мне нужно сделать с этими Srtinggrid
Нет, не нужно. Но если хочешь, то можешь потом прикрутить свои гриды к моему коду, это будет несложно.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
barsichek (статус: Посетитель), 25 декабря 2010, 11:34 [#12]:
сделай пожалуйста с Stringgrid
|
|
|
min@y™ (статус: Доктор наук), 25 декабря 2010, 11:44 [#13]:
Цитата (barsichek):
сделай пожалуйста с Stringgrid
Не буду из принципа! Этот компонент не предназначен для работы с числовыми матрицами! Прикрутишь мой код сам, если ты извращенец.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
barsichek (статус: Посетитель), 25 декабря 2010, 11:53 [#14]:
ну хоть так
|
|
|
barsichek (статус: Посетитель), 25 декабря 2010, 12:57 [#15]:
пишешь?
|
|
|
min@y™ (статус: Доктор наук), 25 декабря 2010, 13:19 [#16]:
Да пишу. Еду в гараж, взял ноут с собой.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 25 декабря 2010, 13:26 [#17]:
Срок сдачи-то когда?
А то на ноуте писать прогу неудобно.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
barsichek (статус: Посетитель), 25 декабря 2010, 13:34 [#18]:
В понедельник утром в 8 часов надо сдать. Но я хочу сегодня посмотреть, правильно работает или нет.....3 дня уже мучаюсь. никак не получается в этом делфи 2009.
|
|
|
barsichek (статус: Посетитель), 25 декабря 2010, 14:09 [#19]:
Мой скайп snaiper7520 добавишь
|
|
|
min@y™ (статус: Доктор наук), 25 декабря 2010, 15:13 [#20]:
Прога готова почти. Приду из гаража - доделаю. А то эдесь холодно, блин.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Страницы: [1] [2] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
