0 / 0 / 0
Регистрация: 19.04.2011
Сообщений: 3
1

Если заданное число является отрицательным, то возвести его в квадрат, если нет, то поделить на два

19.04.2011, 18:11. Показов 3213. Ответов 7
Метки нет (Все метки)

Вроде бы понимаю как, но никак не могу решить.
Условие задачи Если а отрицательное число, то возвести в квадрат, если нет, то поделить на два.
Мое решение.


Pascal
1
2
3
4
5
6
7
8
Program zadacha;
Var a: integer;
begin
Write ('A=');
Readln (a);
If a<0 then Write (sqr(a), '    ') else Write (a mod 2=0, '   ');
Readln;
end.
Когда проверяю задачу, при отрицательном числе все работает, при положительном Fealse. Прошу помочь знающих людей, может мне просто пора отдохнуть?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.04.2011, 18:11
Ответы с готовыми решениями:

Определить является ли заданное число трёхзначным, если нет, вывести его последнюю цифру, а если да, первую
Помогите пожалуйста, срочно. Нужно определить является ли число трёхзначным, если нет, вывести его...

Ввести число. Если оно положительное, найти его квадратный корень. Если отрицательное - возвести в квадрат
Ввести число. Если оно положительное, найти его квадратный корень. Если отрицательное - возвести в...

Если введенное число отрицательное и четное, то возвести его в 3 степень, иначе возвести в квадрат
Ввести целое число В. Если В отрицательное и четное, то возвести его в 3 степень, иначе возвести в...

Дано вещественное число. Если оно отрицательно, то вычислить модуль этого числа и возвести его в куб, в противном случае возвести число в квадрат.
Помогите пожалуйста, через 2 часа сдавать. Дано вещественное число. Если оно отрицательно, то...

7
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
19.04.2011, 18:18 2
Pascal
1
else Write(a/2, ' ');
0
3 / 3 / 0
Регистрация: 05.04.2011
Сообщений: 36
19.04.2011, 18:22 3
попробуй вместо "a mod 2=0" использовать a/2. Если попытки такие были у тебя , то напишешь и можно будет ещё подумать над этой задачей.
0
4116 / 992 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
19.04.2011, 18:22 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

предлагаю так:
Pascal
1
2
3
4
5
6
7
8
Program zadacha;
Var a: real;
begin
Write ('A=');
Readln (a);
If a<0 then Write (sqr(a), ' ') else Write (a/2, ' ');
Readln;
end.
1
Ekaterina2112
19.04.2011, 18:23
  #5

Не по теме:

Упс , похоже я немного опоздала с ответом.... простите.

0
0 / 0 / 0
Регистрация: 19.04.2011
Сообщений: 3
19.04.2011, 19:16  [ТС] 6
Нет, не получается. С отрицательном как и было, а с положительным теперь, например, вводя 1 получается 5.0000000E и т.д.
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
19.04.2011, 19:18 7
Pascal
1
else Write((a/2):1:4);
1
0 / 0 / 0
Регистрация: 19.04.2011
Сообщений: 3
19.04.2011, 19:20  [ТС] 8
О, точно! Совсем вылетело из головы! Спасибо вам всем большое, теперь понимаю свою ошибку
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.04.2011, 19:20

Дано целое число. Если оно является нечетным положительным, то прибавить к нему 1, если отрицательным, то вычесть 2, если нулевым, то заменить на 10
Дано целое число. Если оно является нечетным положительным, то прибавить к нему 1, если...

Если число больше нуля, то возвести его в квадрат
y=2x2-7x-8. Если y&gt;=0, то его надо возвести в квадрат. Если y&lt;=0, то его надо удвоить. Program...

Задать 2 числа. Если первое число отрицательное, то его возвести в квадрат
Задать 2 числа. Если первое число отрицательное, то его возвести в квадрат, а если положительное,...

Если элемент массива положительный то возвести его в квадрат если отрицательный то прибавить 20.
если элемент массива положительный то возвести его в квадрат если отрицательный то прибавить 20....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.