Карта сайта

Это автоматически сохраненная страница от 26.12.2012. Оригинал был здесь: http://2ch.hk/b/res/40412704.html
Сайт a2ch.ru не связан с авторами и содержимым страницы
жалоба / abuse: admin@a2ch.ru

Срд 26 Дек 2012 18:56:06
Двощ помоги пожалуйста школьнику с решением задач на Делфи. Больше просить некого :(
Вот задачи:
1.Задан двухмерный массив целых чисел A размером N на M. Найти: минимальный элемент и поменять его с элементом A[1,1].
2.Вывести на экран графики и таблицу значений функций S(x) и Y(x), где a<=x<=b, шаг изменения х равен h. Количество слагаемых, используемых для нахождения S(x), задается вводом.
Функция:http://s017.radikal.ru/i429/1212/f8/6ff0ac6ea09f.jpg
Буду бампать няшками


Срд 26 Дек 2012 19:00:04
>>40413085
Откуда сеты качал?

Срд 26 Дек 2012 19:02:05
>>40413104
www.younglegalpornblog.com/

Срд 26 Дек 2012 19:04:27
>>40413158
Благодарю.

Срд 26 Дек 2012 19:05:42
>>40412704
1.
Основной код:
min:=maxint; {Если целые числа, для других аналогично}
for i:=1 to n do
begin
for j:=1 to m do
begin
if array[i,i]<m then min:=array[i,j]
end;
end;
writeln(m);

Срд 26 Дек 2012 19:06:15
>>40413397
> if array[i,j]
Багофикс.

Срд 26 Дек 2012 19:07:02
>>40413397
> if array[i,i]<min
Второй.

Срд 26 Дек 2012 19:07:46
>>40413397
> writeln(min);
Да я совсем, блядь, пизданулся

Срд 26 Дек 2012 19:07:54
>>40413397
Спасибо тебе добрый человек :3

Срд 26 Дек 2012 19:09:28
>>40413397
Что это за хуйня? там же менять местами надо.

Срд 26 Дек 2012 19:09:42
>>40413473 Так какой правильный?

Срд 26 Дек 2012 19:10:03
>>40413624
Наверно, мне нужно было дочитать задачу до конца.

Срд 26 Дек 2012 19:10:55
>>40413644
никакой. он написал хуйню.

Срд 26 Дек 2012 19:11:18
>>40413729
Напишите тогда правильный пожалуйста

Срд 26 Дек 2012 19:12:08
>>40413644
min:=maxint; {Если целые числа, для других аналогично}
for i:=1 to n do
begin
for j:=1 to m do
begin
if array[i,j]<min then min:=array[i,j]
end;
end;
a:=array[1,1];
array[1,1]:=min;
min:=a;

Срд 26 Дек 2012 19:12:12
>>40413795
Monroe

Срд 26 Дек 2012 19:14:01
>>40413815
А выводить его как?

Срд 26 Дек 2012 19:15:22
>>40413815
тоже хуита.
тебе менять местами надо с [i,j]. поинтер на него блять запоминай, а не значение.

Срд 26 Дек 2012 19:16:45
>>40414012
>помоги пожалуйста школьнику
>поинтер на него блять запоминай, а не значение.
Первокурсник хвастается умениями на сосаче?

Срд 26 Дек 2012 19:16:58
>>40413752
жди. делфю поставлю.

Срд 26 Дек 2012 19:17:54
>>40414078
Я не хвастаюсь, просто тут вызвался тип помогать и помогает так, что лучше бы не лез.

Срд 26 Дек 2012 19:19:11
Для второй задачи интересует как оформлять саму функцию(делал что-то подобное, но действия там были попроще), остальное я сам попытаюсь
ОП

Срд 26 Дек 2012 19:19:28
>>40414150
Ты просто задачу усложняешь без надобности, дурачок.

Срд 26 Дек 2012 19:21:18
>>40413815 ?
Он находит самое мелкое значение и переносит его в min. допустим мелкое значение было в [3,2].
после чего он меняет местами min и [1,1]. а в [3,2] значение из [1,1] не поступает.
И хуле толку от этого решения?

Срд 26 Дек 2012 19:24:57
>>40414488
Я, похоже, совсем поехал, задачу 8 класса не могу рещить. Ладно, хуй с этой задачей, лень третий раз писать.

Срд 26 Дек 2012 19:28:04
>>40414488
Бро не старайся, этож гуманитарии. Просто наблюдай со стороны, подобно тому, как ты в зоопарке смотришь на обезьян.

Срд 26 Дек 2012 19:30:22
>>40413815
min:=maxint; {Если целые числа, для других аналогично}
for i:=1 to n do
for j:=1 to m do begin
if array[i,j]<min then k:=i;l:=j;
end;
end;
a:=array[1,1];
array[1,1]:=array[k,j];
array[k,j]:=a;

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

Срд 26 Дек 2012 19:44:09
>>40415382
годная блядь, вдул бы

Срд 26 Дек 2012 19:44:32
>>40416059
один end; лишний.

Срд 26 Дек 2012 19:44:55
>>40416059
А зачем переменной l присваивать значение столбца?Если ты его не используешь?

Срд 26 Дек 2012 19:48:30
вот годный вариант:

var

i,j,min: integer;
aa: pinteger;

begin

min := maxint;
for i := 1 to 20 do
for j := 1 to 20 do
if a[i,j]<min then aa:=@a[i,j];
min:=a[1,1];
a[1,1]:=aa^;
aa^:=min;
end;


← К списку тредов