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

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

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



Ответ
 
Опции темы
Старый 05.01.2017, 01:12   #1
yabusic
Новичок
 
Регистрация: 20.11.2016
Сообщений: 5
Репутация: 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,197
Репутация: 1204
По умолчанию

А чему равен клубень из -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
Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес:
Сообщений: 6,951
Репутация: 3448
По умолчанию

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

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




12:32.


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

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
таргетированный трафик


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

RusProfile.ru


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