IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача на циклы. Дана функция ...
Cavallari
сообщение 23.04.2007 20:42
Сообщение #1


Гость






Дана функция y=3.5*x*x*x*x*x-8.2*x*x*x*x+x*x*x-12. Вычислить значения функции на промежутке [32;-16] с шагом -1 и найти количество таких значений функции,ю которые отличаются от минимального значения на заданную величину m.
 К началу страницы 
+ Ответить 
Tan
сообщение 23.04.2007 21:08
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 559
Пол: Мужской
Реальное имя: Бруно

Репутация: -  10  +


Это первая часть задания :
uses crt;
Const Stepp = -1;
var x1,x2 : integer;
begin
Clrscr;
x1 := 32;
x2 := -16;
while x1 >= x2 do
begin
writeln ('When x = ',x1,' y = ',(3.5 * Sqr ( x1 ) * Sqr ( x1 ) * x1 - 8.2 * Sqr(x1) * Sqr(x1) + Sqr(x1) * x1 - 12):0:2);
x1 := X1 + Stepp;
end;
readkey;
end.


Сообщение отредактировано: Tan - 23.04.2007 21:11


--------------------
Цитата
Imagination is more important than knowledge.
Albert Einstein
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Адель
сообщение 23.04.2007 21:10
Сообщение #3


Иллюзия мира
***

Группа: Пользователи
Сообщений: 180
Пол: Женский

Репутация: -  4  +


Цитата
Вычислить значения функции на промежутке [32;-16] с шагом -1

а как на счет Поиска?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Tan
сообщение 23.04.2007 21:13
Сообщение #4


Профи
****

Группа: Пользователи
Сообщений: 559
Пол: Мужской
Реальное имя: Бруно

Репутация: -  10  +


Товарищ гость 2ю часть задания сможете сами решить ?

Сообщение отредактировано: Tan - 23.04.2007 21:13


--------------------
Цитата
Imagination is more important than knowledge.
Albert Einstein
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 6:24
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"