как выполнить такое условие?

@Cleo · Регистрация: 24.03.2009

Author24 — интернет-сервис помощи студентам

Условная схема: if (if then else) then else. В Pascal.
вот я моя программа:
if (if a[i]<0
then log10(-a[i])
else sqrt(a[i]))>=0
then
writeln ((a[i]):4:1,' ',2*(if a[i]<0
then log10(-a[i])
else sqrt(a[i]))+1:4:1))
else
writeln (a[i]:4:1,' ',sin ((if a[i]<0
then log10(-a[i])
else sqrt(a[i]))):4:1));
выдаёт ошибку на втором if...НИКАКОЙ ЗАМЕНЫ!! т.е.
if a[i]<0
then log10(-a[i])
else sqrt(a[i]) НЕ ЗАМЕНЯЕМ!

@Vladiator · 25.03.2009, 17:22

А что, ошибки?

@Cleo · 25.03.2009, 17:27 **[ТС]**

Да на втором по счёту if...

@Puporev · 25.03.2009, 17:33

Вообще-то скобка между двумя ифами это круто.

Добавлено через 2 минуты 37 секунд

then log10(-a[i])
else sqrt(a[i]))>=0

А это что, процедуры что ли? Почему нет присваивания?

@Cleo · 25.03.2009, 17:34 **[ТС]**

есть скобочка, нет скобочки, всё равно говорит ошибка в выражении...

((

@Puporev · 25.03.2009, 17:35

Условие задачи хоть покажи, а то фиг знает, что ты должен написать.

Добавлено через 59 секунд

нужно без присваивания! задание такое...

Тогда большой привет преподу.

@Vladiator · 25.03.2009, 17:37

У тебя получается так: если условие больше или равно 0 тогда...
Такого не может быть. Если что больше или равно нулю?

@Cleo · 25.03.2009, 17:45 **[ТС]**

вот задача...нужно выполнить такое условие с массивом:
найти: f(z) дано:x. z(x)=if x<0 then lg(-x) else корень(х). f(x)=if z>=0 then 2*z+1 else sin(z).

@Puporev · 25.03.2009, 17:48

вот задача...нужно выполнить такое условие с массивом:
найти: f(z) дано:x. z(x)=if x<0 then lg(-x) else корень(х). f(x)=if z>=0 then 2*z+1 else sin(z).

Так и было написано в задании?

@Cleo · 25.03.2009, 19:11 **[ТС]**

нет)) это я своими словами)) эта задача не из книжки и не продиктованная. условие такое!

Добавлено через 12 минут 34 секунды
может быть каким другим образом можно это сделать? не обязательно if...

Добавлено через 59 минут 45 секунд
вот вся программа:

Pascal

program fun1;
var a:array [1..21] of real;
i,n:integer;
begin
n:=21;
for i:=1 to n do
begin
a[i]:=-5+1/2*(i-1);
end;
begin
for i:=1 to n do
if (if a[i]<0
then log10(-a[i])
else sqrt(a[i]))>=0
then
writeln ((a[i]):4:1,'  ',2*(if a[i]<0
then log10(-a[i])
else sqrt(a[i]))+1:4:1)
else
writeln (a[i]:4:1,'  ',sin ((if a[i]<0
then log10(-a[i])
else sqrt(a[i]))):4:1);
end;
readln;
end.

@Cleo 0 / 0 / 0 Регистрация: 24.03.2009 Сообщений: 6
		1
	как выполнить такое условие? 25.03.2009, 17:16. Показов 897. Ответов 9 Метки нет (Все метки) Условная схема: if (if then else) then else. В Pascal. вот я моя программа: if (if a[i]<0 then log10(-a[i]) else sqrt(a[i]))>=0 then writeln ((a[i]):4:1,' ',2*(if a[i]<0 then log10(-a[i]) else sqrt(a[i]))+1:4:1)) else writeln (a[i]:4:1,' ',sin ((if a[i]<0 then log10(-a[i]) else sqrt(a[i]))):4:1)); выдаёт ошибку на втором if...НИКАКОЙ ЗАМЕНЫ!! т.е. if a[i]<0 then log10(-a[i]) else sqrt(a[i]) НЕ ЗАМЕНЯЕМ! 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	25.03.2009, 17:22	2
	А что, ошибки? 0

@Cleo 0 / 0 / 0 Регистрация: 24.03.2009 Сообщений: 6
	25.03.2009, 17:27 [ТС]	3
	Да на втором по счёту if... 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.03.2009, 17:33	4
	Вообще-то скобка между двумя ифами это круто. Добавлено через 2 минуты 37 секунд then log10(-a[i]) else sqrt(a[i]))>=0 А это что, процедуры что ли? Почему нет присваивания? 0

@Cleo 0 / 0 / 0 Регистрация: 24.03.2009 Сообщений: 6
	25.03.2009, 17:34 [ТС]	5
	есть скобочка, нет скобочки, всё равно говорит ошибка в выражении...(( 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.03.2009, 17:35	6
	Условие задачи хоть покажи, а то фиг знает, что ты должен написать. Добавлено через 59 секунд нужно без присваивания! задание такое... Тогда большой привет преподу. 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	25.03.2009, 17:37	7
	У тебя получается так: если условие больше или равно 0 тогда... Такого не может быть. Если что больше или равно нулю? 0

@Cleo 0 / 0 / 0 Регистрация: 24.03.2009 Сообщений: 6
	25.03.2009, 17:45 [ТС]	8
	вот задача...нужно выполнить такое условие с массивом: найти: f(z) дано:x. z(x)=if x<0 then lg(-x) else корень(х). f(x)=if z>=0 then 2*z+1 else sin(z). 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.03.2009, 17:48	9
	вот задача...нужно выполнить такое условие с массивом: найти: f(z) дано:x. z(x)=if x<0 then lg(-x) else корень(х). f(x)=if z>=0 then 2*z+1 else sin(z). Так и было написано в задании? 0

	25.03.2009, 19:11