Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 04.02.2015, 17:24   #1
VLaSSoNee
Заблокирован
 
Регистрация: 04.02.2015
Сообщений: 13
По умолчанию Нужно решить в паскале


Нужно решить это в паскале
VLaSSoNee вне форума
Старый 04.02.2015, 17:30   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Формулы напишите самостоятельно.
Код:
if y<0 then
 t:=...
else
 if (y>=0) and (y<=1) then
  t:=...
 else
  t:=...;
ZX Spectrum-128 вне форума
Старый 04.02.2015, 17:31   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,987
По умолчанию

Код:
function T(y:real):real;
begin
   If y>1 then
      Result:=Sin(Sqrt(y+Ln(y))) else
   If (0<=y) and (y<=1) then
      Result:=pi+Sqr(Sqr(Cos(y+1.2))) else
      Result:=y*Ln(y*y+2)/Ln(10)+pi;
end;

begin
   Writeln(T(-2):5:5);
   Readln;
end.
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума
Старый 04.02.2015, 17:55   #4
VLaSSoNee
Заблокирован
 
Регистрация: 04.02.2015
Сообщений: 13
По умолчанию

Спасибо огромное!
VLaSSoNee вне форума
Старый 04.02.2015, 17:56   #5
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,987
По умолчанию

Пожалуйста!
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно решить задачу на паскале либо C++ boris_minsk Помощь студентам 1 17.03.2013 05:40
Нужно решить на паскале AndreyG Помощь студентам 1 17.03.2013 00:31
Студенту нужно решить несколько задач на паскале chief143 Паскаль, Turbo Pascal, PascalABC.NET 0 03.05.2012 22:20
ПОМОГИТЕ!!! Нужно решить задачу в паскале по матрице! Zidane Помощь студентам 1 31.05.2009 02:17