Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 05.01.2017, 01:12   #1
yabusic
 
Регистрация: 20.11.2016
Сообщений: 6
Репутация: 10
По умолчанию Выдаёт "не число"

Доброго времени суток!
В результате работы программы выдаёт "не число", что я делаю неправильно?
Код:
Код:

var a,b,x,y,z:real;
function f(u,t:real):real;
begin
if u>=0 then f:=u+2*t;
if u<=-1 then f:=u+t else f:=sqr(u)-2*t+1;
end;
begin
x:=-14.2;
y:=0.32;
a:=7.2;
b:=4.7;
z:=f(sqrt(x),y)+f(a,b)+f(x+1,-y)+f(x-y,x)+f(x+y,a+b);
writeln(z);
end.


Последний раз редактировалось Вадим Мошев; 05.01.2017 в 01:26.
yabusic вне форума   Ответить с цитированием
Старый 05.01.2017, 01:28   #2
type_Oleg
Профессионал
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Адрес: Хазарский каганат
Сообщений: 2,320
Репутация: 1337
По умолчанию

А чему равен клубень из -14.2 ?
Код:

x:=-14.2;
// ..
z:=f(sqrt(x),y)+f(a,b)+f(x+1,-y)+f(x-y,x)+f(x+y,a+b);

type_Oleg на форуме   Ответить с цитированием
Старый 05.01.2017, 01:29   #3
Вадим Мошев
гигаМодератор :)
Заслуженный модератор
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес:
Сообщений: 7,165
Репутация: 3559
По умолчанию

Вы извлекаете корень квадратный из отрицательного числа
Код:

x:=-14.2;

z:=f(sqrt(x),y)+f(a,b)+f(x+1,-y)+f(x-y,x)+f(x+y,a+b);
Вадим Мошев вне форума   Ответить с цитированием
Ответ



Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно пояснить/прокомментировать код программы, или коды функций "Добавить" "Удалить" "Обновить(редактировать" "Поиск" "Период") ZIRASS PHP 4 15.06.2016 15:23
Для заданной строки определить все входящие в неё символ. Например: строка "abccbbabbac" состоит из символов "a", "b" и "c" Sandakan01 Помощь студентам 1 24.02.2016 04:20




00:55.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru