|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.10.2016, 18:19 | #1 |
Регистрация: 18.10.2016
Сообщений: 3
|
Помогите найти ошибку.
var
t, b, c, x : real; begin Write('x= ');Readln(x); b:=(x-1); if b >= 0 then c:=Exp((1/3)*Ln(b)) else begin c:=-Exp((1/3)*Ln(Abs(b))); Writeln('Ответ= ',c); end; end. Выдаёт ответ только если я ввожу отрицательный Х, если положительный, то вообще ничего не происходит. |
21.10.2016, 18:24 | #2 |
Участник клуба
Регистрация: 14.05.2016
Сообщений: 1,793
|
Я точно не уверен (нет возможности проверить), ну попробуй так
Код:
|
21.10.2016, 19:18 | #3 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
PedroSUN, если просто красиво оформить твой код, ничего не меняя, то сразу видно где ошибка.
Код:
PS ura_111 , при else - скобки begin..end уже получаются не нужны. Последний раз редактировалось type_Oleg; 21.10.2016 в 19:21. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[Язык C]: В массиве числа образуют неубывающую последовательность. Найти количество различных чисел в массиве. Помогите найти ошибку. | Yulia24* | Помощь студентам | 0 | 18.10.2016 20:41 |
Дан массив а(n) типа SWORD. найти сумму всех отрицательных элементов массива.помогите найти ошибку | Юлия123456 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 07.09.2016 06:12 |
Найти седловые точки в матрице(помогите найти ошибку) - pascal | tdsotm | Помощь студентам | 0 | 20.11.2014 18:57 |
Помогите найти ошибку - StrToFloat выдаёт ошибку EConvertError для ячеек StringGrid (Delphi) | Artsiom | Помощь студентам | 10 | 18.12.2013 14:10 |
Помогите найти ошибку | Anat | JavaScript, Ajax | 12 | 28.01.2009 23:50 |