Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/14: Рейтинг темы: голосов - 14, средняя оценка - 4.86
chumk
0 / 0 / 0
Регистрация: 10.03.2013
Сообщений: 3
1

Определить, какое число введено - положительное или отрицательное

10.03.2013, 15:23. Просмотров 2936. Ответов 3
Метки нет (Все метки)

1)Пользователь вводит действительное число. Требуется определить:
1. положительное это число или отрицательное;
2. целое это число или нецелое;
3. четное это число или нечетное;
Выбор варианта определяется пользователем.
У меня вылазит сообщение об ошибке,мол не тот тип данных,но почему? Как должна выглядеть программа в правильном виде?
Вот мой вариант программы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program ex13;
var a:real;b:integer;
begin
readln(a);
b:=a div 1;
 if ((b mod 2)=0)
  then writeln('chetnoe')
  else writeln('nechetnoe');
 if ((a mod 1)=0)
  then writeln('celoe')
  else writeln('ne celoe');
 if a>=0
  then writeln('polozhitelnoe')
  else writeln('otrizatelnoe');
end.
.
Заранее спасибо.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.03.2013, 15:23
Ответы с готовыми решениями:

Для каждой последовательности определить, какое число встречается раньше-отрицательное или положительное
Помогите, пожалуйста написать программу с помощью подпрограммы-функции "даны...

Выяснить, какое число встречается раньше — положительное или отрицательное
Составить программу на паскале, содержащую 4 подпрограммы. Дан одномерный...

Выяснить, какое число встречается раньше - положительное или отрицательное
Дана последовательность целых чисел a1,a2,.....,an.Выяснить, какое число...

Выяснить, какое число в массиве встретится ранее - положительное или отрицательное
Дан массив А вещественных чисел. Выяснить, какое число в массиве встретится...

Выяснить, какое число встречается в таблице раньше - положительное или отрицательное
Дана линейная таблица, которая содержит N действительных чисел. Выяснить, какое...

3
Harlem
66 / 66 / 90
Регистрация: 27.02.2013
Сообщений: 156
10.03.2013, 15:42 2
У вас "a" это вещественный тип, а вы пишите b:=a div 1
div только для целых, если хотитте вещественный "а", то вместо div пишите /.
0
Sonyk91
110 / 110 / 13
Регистрация: 01.10.2012
Сообщений: 2,084
Завершенные тесты: 1
10.03.2013, 15:44 3
У real нет операции div. Тут есть таблица с типами и операциями.
0
Puporev
Модератор
54680 / 42101 / 29069
Регистрация: 18.05.2008
Сообщений: 99,353
10.03.2013, 15:56 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
if a>0 then writeln('Это положительное число')
else if a<0 then writeln('Это отрицательное число')
else writeln('Это число ноль');
if frac(a)<>0 then write('Это дробное число')
else
 begin
  writeln('Это целое число');
  if trunc(a) mod 2=0 then write('четное')
  else write('не четное')
 end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.03.2013, 15:56

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

Выяснить, какое число в массиве встретиться ранее - положительное или отрицательное
Здравствуйте, помогите пожалуйста с решение этой задачи, а то дела с массивами...

Вводится число, выдать на экран положительное оно, отрицательное или равное 0
Вводится число, выдать на экран положительное оно, отрицательное или равное 0.


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

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

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