условный оператор Опции

[Гость]

Помогите пожалуйста решить мне задачу.В Паскале я ничего не понимаю(к сожалению), а решить очень нужно.Помогите кто может!Заранее благодарна.

Нужно написать программу, при выполнении которой все значения, вводимые с клавиатуры, изменяются по определённому условию: положительные числа уменьшаются вдвое, отрицательные возводятся в квадрат, а нули заменяются на единицу.
Рекомендуемый экран после запуска программы:
Введите число: -5
Результат: 25

[arhimag]

А ты пробовала хоть что-то сделать?


Сообщение отредактировано: arhimag - 12.05.2007 13:19

[Ozzя]

    
  read(x);
  if x>0 then
     x:=x /2
  else
      if x=0 then
         x:=1
      else
          x:=sqr(x);  

[мисс_граффити]

     x:=x /2

х, судя по всему, real

if x=0 then

рискованно.... надо брать допустимую погрешность.