Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 19.12.2012, 15:57   #1 (permalink)
vlados
Новичок
 
Регистрация: 19.12.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Pascal помогите решить задание

файл с заданием выложил как вложение в виде фото
Миниатюры
gqtunyp0vv4.jpg  
vlados вне форума   Ответить с цитированием

Старый 19.12.2012, 15:57
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Могу вам помочь отправив ссылки на похожие обсуждения

Помогите решить задачу Pascal
Очень прошу, помогите, пожалуйста, решить задание курсовой работы по информатике
Помогите решить задачу Pascal
Помогите решить домашнее задание по электронике
Помогите решить задачу в Pascal ABC

Старый 19.12.2012, 16:06   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,281
Сказал(а) спасибо: 290
Поблагодарили 508 раз(а) в 166 сообщениях
Репутация: 92003
По умолчанию

Да... совсем я, видать, отупел. Ну не вижу я тут в упор никакой "функции Х", и куда пристегнуть Z - вовсе не понимаю. Так что и рад бы помочь, но...
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 19.12.2012, 16:10   #3 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,508
Записей в дневнике: 57
Сказал(а) спасибо: 125
Поблагодарили 152 раз(а) в 63 сообщениях
Репутация: 59794
По умолчанию

Гы, двоечники форум посетили
Какой функцией Х задан? Линейной?
AlexZir на форуме   Ответить с цитированием
Старый 19.12.2012, 17:00   #4 (permalink)
vlados
Новичок
 
Регистрация: 19.12.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

если честно я сам не понимаю эту задачу, препод у нас зверь ничего объяснять не хочет
vlados вне форума   Ответить с цитированием
Старый 19.12.2012, 17:04   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,281
Сказал(а) спасибо: 290
Поблагодарили 508 раз(а) в 166 сообщениях
Репутация: 92003
По умолчанию

Цитата:
Сообщение от vlados Посмотреть сообщение
если честно я сам не понимаю эту задачу, препод у нас зверь ничего объяснять не хочет
Сочувствую. Но, видите ли, вряд ли кто-нибудь из нас станет разрабатывать программу до получения ясной четкой формулировки задания. А подход типа "вы тут напишите кучу вариантов, а я выберу", боюсь, не прокатит.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 19.12.2012, 17:59   #6 (permalink)
vlados
Новичок
 
Регистрация: 19.12.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Сочувствую. Но, видите ли, вряд ли кто-нибудь из нас станет разрабатывать программу до получения ясной четкой формулировки задания. А подход типа "вы тут напишите кучу вариантов, а я выберу", боюсь, не прокатит.
А что скажите на счет этой работы:
Миниатюры
eioidhiaoeea-ecc.jpg  
vlados вне форума   Ответить с цитированием
Старый 19.12.2012, 20:01   #7 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,281
Сказал(а) спасибо: 290
Поблагодарили 508 раз(а) в 166 сообщениях
Репутация: 92003
По умолчанию

Цитата:
Сообщение от vlados Посмотреть сообщение
А что скажите на счет этой работы:
Ну что же, если я понял правильно, то так. Прежде всего, поскольку оба неравенства в определении b - нестрогие, то это значит, что при x=0.5 результаты вычисления b по обеим ветвям должны совпасть, откуда сразу находим c=2.5. Дальше просто:
Код:
Var
 x0,xk,dx,b,X,Y:real;
 i,N,NnegY,NposX:Byte;

Function Max3(m1,m2,m3:real):real;
 function Max2(p1,p2:real):real;
 begin
  If p1>p2 then Max2:=p1 else Max2:=p2;
 end;
begin
 Max3:=Max2(Max2(m1,m2),m3);
end;

Begin
 Write('x0= ');
 Readln(x0);
 Write('xk= ');
 Readln(xk);
 Write('dx= ');
 Readln(dx);
 N:=Round((xk-x0)/dx);
 NposX:=0;
 NnegY:=0;
 For i:=0 to N do
  begin
   X:=x0+dx*i;
   Write('X=',X:6:3);
   If X>0 then Inc(NposX);
   If X<0.5 then b:=1.25 else b:=X*X+1;
   Y:=Sqr(X-b)-Max3(X,b,2.5);
   Writeln('    Y=',Y:12:4);
   If Y<0 then Inc(NnegY);
  end;
 Writeln;
 Writeln('Number of positive X values is ',NposX);
 Writeln('Number of negative Y values is ',NnegY);
 Readln;
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 25.12.2012, 19:06   #8 (permalink)
vlados
Новичок
 
Регистрация: 19.12.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Да... совсем я, видать, отупел. Ну не вижу я тут в упор никакой "функции Х", и куда пристегнуть Z - вовсе не понимаю. Так что и рад бы помочь, но...
z здесь отдельно
vlados вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:13.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.