06.02.2010, 20:12 | #1 (permalink) |
Member
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Я надеюсь на вас.
1 В целочисленном массиве найти максимальный элемент и вывести его индекс. Если он встречается несколько раз, вывести все соответствующие индексы и подсчитать количество вхождений максимума в массив 2 Вычислите значения функции x^3-x^2+16x-43 для x изменяющегося в диапазоне от -4 до 4 с шагом 0,5 |
06.02.2010, 20:12 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что было бы очень полезно почитать аналогичные обсуждения Надеюсь на подсказку |
06.02.2010, 20:26 | #3 (permalink) |
Member
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Бы ли бы они для нас элементарные я бы навряд ли бы к вам обратился,но за совет спасибохоть у меня и наврядли получиться им воспользоваться я в самом описание темы уже объяснял на коком у меня уровень знания в турбо паскале
|
06.02.2010, 20:34 | #5 (permalink) |
Member
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо за понимание
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
06.02.2010, 20:49 | #6 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
1.
Код:
uses crt; var n,i,max,nmax,kmax:integer; a:array [1..50] of integer; begin clrscr; write ('Vvedi kol-vo elementov: '); readln (n); writeln ('Vvodi massiv: '); for i:=1 to n do read (a[i]); max:=a[1]; nmax:=1; for i:=2 to n do if a[i]>max then begin max:=a[i]; nmax:=i; end; for i:=1 to n do if a[i]=max then inc(kmax,1); writeln ('max=', max, '; kolichestvo=', kmax); readkey; end. |
06.02.2010, 20:58 | #7 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
2.
Код:
uses crt; var x,y:real; begin clrscr; x:=-4; writeln (' x y'); repeat x:=x+0.5; y:=x*sqr(x)-sqr(x)+16*x-43; writeln (x:4:1, y:8:2); until x=4; readkey; end. |
06.02.2010, 21:33 | #10 (permalink) |
Member
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Окей вот это уже в наших силах.Ещё раз спасибо
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|