ПОМОГИТЕ ПЛЗ :) Turbo Pascal ;)

Detka · 30.09.2007, 16:10

решите задачку пожалуйста

а то экзамен никак не получить

Написать функцию целого типа,которая вычисляет порядковый номер минимального положительного элемента передаваемого одномерного вещественного массива длинной N элементов. N не больше 999

Troll · 30.09.2007, 18:40

Код:

function min(a: array of real) : integer;
 var m,i : integer;
     p : real;
 begin
  m:=0;
  p:=a[0];
  for i:=1 to high(a) do
    if ((a[i]<p) AND (a[i]>0)) then
     begin
       m:=i;
       p:=a[i];
     end;
  min:=m;
 end;

Detka · 30.09.2007, 22:38

Cпасибки

Detka · 01.10.2007, 23:16

помогите плз и эту задачку решить

Написать процедуру,которая получает через параметры два двумерных вещественных массива размерами M и N элементов каждый и возвращает ЭТИ массивы переделанными следующим образом:
1) Каждый элемент первого массива равен сумме соответствующих элементов исходных массивов
2) Каждый элемент второго массива равен разности соответствующих элементов исходного второго массива
Тип у обоих массивов один (привести описание),M и N не больше 20

http://.udomlya.ru/uf/ · 02.10.2007, 10:46

Мб тебе всю к.работу решить? %)

Detka · 02.10.2007, 11:34

не,только задачки %))
это последняя задачка))) честно- честно

Detka · 02.10.2007, 22:05

ребятки(( решите плз((( мне до завтра надо((((

Troll · 03.10.2007, 08:55

Цитата:

Сообщение от Detka

ребятки(( решите плз((( мне до завтра надо((((

немного оффтопа: По этому поводу вспомнился мне анекдот: Электричка, в вагоне что-то начинает дребезжать, один из пассажиров, немного подвыпивший мужичёк проявляет гражданскую отвественность и подходит к кнопке вызова машиниста, соотвественно нажимает и говорит: - "вагон №*** железное дребезжание, повторяю, вагон №*** железное дребезжание", ну и ответ машиниста: - "Сейчас, б***, всё брошу и пойду к вам ремонтировать, повторяю, Сейчас, б***, всё брошу и пойду к вам ремонтировать."

Ну и теперь по теме: Вот все всё бросили и начали Вам задачку решать! Для справки: Сдесь обычно помогают советами, что-то не получается, подскажут как правильно сделать. Решать для вас, да ещё и за время, извиняйте, это за отдельную плату.
Задача у Вас в достаточной степени тривиальная, что именно неполучается сделать?

Cooll3r · 03.10.2007, 13:02

Ей уже не надо

Detka · 03.10.2007, 23:35

ЖВ)) надо надо,только я хз как все это делать

30.09.2007, 16:10	#1
Detka Пользователь Регистрация: 26.04.2006 Адрес: Удомля-Сп-б Сообщений: 86 Вы сказали Спасибо: 63 Поблагодарили 36 раз(а) в 32 сообщениях	ПОМОГИТЕ ПЛЗ :) Turbo Pascal ;) решите задачку пожалуйста а то экзамен никак не получить Написать функцию целого типа,которая вычисляет порядковый номер минимального положительного элемента передаваемого одномерного вещественного массива длинной N элементов. N не больше 999 __________________ я сегодня не такой как вчера а вчера я был вообще никакой!!!!

30.09.2007, 18:40	#2
Troll Супер-Модератор Регистрация: 26.04.2006 Адрес: Удомля Сообщений: 1,452 Вы сказали Спасибо: 70 Поблагодарили 536 раз(а) в 332 сообщениях	Код: function min(a: array of real) : integer; var m,i : integer; p : real; begin m:=0; p:=a[0]; for i:=1 to high(a) do if ((a[i]<p) AND (a[i]>0)) then begin m:=i; p:=a[i]; end; min:=m; end; Последний раз редактировалось Troll; 30.09.2007 в 19:11.

30.09.2007, 22:38	#3
Detka Пользователь Регистрация: 26.04.2006 Адрес: Удомля-Сп-б Сообщений: 86 Вы сказали Спасибо: 63 Поблагодарили 36 раз(а) в 32 сообщениях	Cпасибки __________________ я сегодня не такой как вчера а вчера я был вообще никакой!!!!

01.10.2007, 23:16	#4
Detka Пользователь Регистрация: 26.04.2006 Адрес: Удомля-Сп-б Сообщений: 86 Вы сказали Спасибо: 63 Поблагодарили 36 раз(а) в 32 сообщениях	а еще разик помогите плз :) помогите плз и эту задачку решить Написать процедуру,которая получает через параметры два двумерных вещественных массива размерами M и N элементов каждый и возвращает ЭТИ массивы переделанными следующим образом: 1) Каждый элемент первого массива равен сумме соответствующих элементов исходных массивов 2) Каждый элемент второго массива равен разности соответствующих элементов исходного второго массива Тип у обоих массивов один (привести описание),M и N не больше 20 __________________ я сегодня не такой как вчера а вчера я был вообще никакой!!!!

02.10.2007, 11:34	#6
Detka Пользователь Регистрация: 26.04.2006 Адрес: Удомля-Сп-б Сообщений: 86 Вы сказали Спасибо: 63 Поблагодарили 36 раз(а) в 32 сообщениях	не,только задачки %)) это последняя задачка))) честно- честно __________________ я сегодня не такой как вчера а вчера я был вообще никакой!!!!

	◊
www.udomlya.ru \| Медиа-Центр \| Удомля КТВ \| Старый форум

02.10.2007, 10:46	#5
http://.udomlya.ru/uf/ Новичок Регистрация: 29.09.2007 Адрес: Гёт Сообщений: 13 Вы сказали Спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях	Мб тебе всю к.работу решить? %)

02.10.2007, 22:05	#7
Detka Пользователь Регистрация: 26.04.2006 Адрес: Удомля-Сп-б Сообщений: 86 Вы сказали Спасибо: 63 Поблагодарили 36 раз(а) в 32 сообщениях	ребятки(( решите плз((( мне до завтра надо(((( __________________ я сегодня не такой как вчера а вчера я был вообще никакой!!!!

03.10.2007, 13:02	#9
Cooll3r Местный Регистрация: 16.01.2007 Адрес: Crazy Town Сообщений: 151 Вы сказали Спасибо: 48 Поблагодарили 30 раз(а) в 19 сообщениях	Ей уже не надо

03.10.2007, 23:35	#10
Detka Пользователь Регистрация: 26.04.2006 Адрес: Удомля-Сп-б Сообщений: 86 Вы сказали Спасибо: 63 Поблагодарили 36 раз(а) в 32 сообщениях	ЖВ)) надо надо,только я хз как все это делать __________________ я сегодня не такой как вчера а вчера я был вообще никакой!!!!

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)