Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
1 / 1 / 2
Регистрация: 07.11.2013
Сообщений: 30
1

чётность. Extended

29.11.2013, 23:58. Просмотров 1126. Ответов 9
Метки нет (Все метки)

как определить является число чётным или нечётным. тип Extended.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2013, 23:58
Ответы с готовыми решениями:

Отрицательный Extended
Всем привет. Пишу программу и тут возникла проблема при использовании типа Extended. Значит так:...

Stringgrid и extended
Привет всем, подскажите пожалуйста, есть переменная типа extended. Если внее записывать значение из...

Типы Extended, String и Comp
Здравствуйте. Хотел сделать программу, которая спрашивала бы тип тригоном. функции, принимала...

Imcompatible types integer or extended
Выскакивает ошибка, выделяя красным 77 строку. И помогите закончить программу, нужно ещё сделать,...

9
Пишу на Delphi...иногда
1418 / 1275 / 286
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
30.11.2013, 00:00 2
2.56 - четное число или нечетное? как определил?
0
0 / 0 / 2
Регистрация: 28.11.2013
Сообщений: 8
30.11.2013, 00:05 3
Чётность в теории чисел — характеристика целого числа
0
2474 / 1850 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
30.11.2013, 00:05 4
Для проверки, привести к целому типу с округлением до требуемого знака.
0
0 / 0 / 2
Регистрация: 28.11.2013
Сообщений: 8
30.11.2013, 00:11 5
Delphi
1
2
3
4
if Odd(Round(MyExtendedValue)) then 
  ShowMessage('Нечетное') 
else 
  ShowMessage('Четное');
0
1 / 1 / 2
Регистрация: 07.11.2013
Сообщений: 30
30.11.2013, 00:19  [ТС] 6
как это впихнуть в мою программу

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program Project2;
 
{$APPTYPE CONSOLE}
{$R+,Q+,I+}
uses
  SysUtils;
const
    sourze='input.txt';
    target='output.txt';
var
  l,p,t,m,u,k,n:Extended;
begin
  Reset(Input,sourze);
  Rewrite(Output,target);
  read(l,n,m);
  p:=l*l;
  k:=n/2+2*m;
  
  if {если l чётная} then u:=(l/2)*(l/2)*2
                else u:=(l-1)/2*(l-1)/2*2;
 
  if m<=u then
    if p=k then write('YES')
         else write('NO')
         else write('NO');
 
end.
0
пофигист широкого профиля
4191 / 2730 / 774
Регистрация: 15.07.2013
Сообщений: 15,867
30.11.2013, 03:18 7
Цитата Сообщение от enurgoo Посмотреть сообщение
как это впихнуть в мою программу
Что "это"? Понятие четности/нечетности определено для целых чисел. Для прочих чисел это бред!
0
1 / 1 / 2
Регистрация: 07.11.2013
Сообщений: 30
30.11.2013, 11:53  [ТС] 8
я хотел от вас узнать как любым способом узнать является число чётным или нечётным, а вы как всегда ничего стоящего не предложили сам написал:

Delphi
1
2
3
4
5
6
7
8
while e>0 do begin
    l:=l/2;
    if l=1 then begin
    t:=1;
    Break;
    end;
    if l<1 then Break;
  end;
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30165 / 19702 / 7702
Регистрация: 22.10.2011
Сообщений: 34,345
Записей в блоге: 6
30.11.2013, 13:33 9
"Я хотел от вас узнать, как любым способом узнать, является ли самолет млекопитающим, а вы... Что ж такое, на простейшие вопросы, как всегда, ответить не можете... Решение нашел сам: нос есть, хвост - есть, значит, самолёты - теплокровные яйцекладущие"... Как-то так...
0
1 / 1 / 2
Регистрация: 07.11.2013
Сообщений: 30
30.11.2013, 14:53  [ТС] 10
Цитата Сообщение от UI Посмотреть сообщение
"Я хотел от вас узнать, как любым способом узнать, является ли самолет млекопитающим, а вы... Что ж такое, на простейшие вопросы, как всегда, ответить не можете... Решение нашел сам: нос есть, хвост - есть, значит, самолёты - теплокровные яйцекладущие"... Как-то так...
ну да как-то так)) сам задал вопрос и сам ответил на него
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.11.2013, 14:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Чтение файла в array of Extended
На строчке read(q,a); ошибка EInOutError: Invalid numeric input var z, q,: TextFile; i,...

Incompatible types: 'Integer' and 'Extended'
procedure TForm1.N2Click(Sender: TObject); var a,z: integer; begin...

Тип Extended. Как добиться максимальной точности?
Как добиться максимальной точности в Extended? В частности, чтобы ноль было равно 0, а не...

Почему команда Write не любит тип Extended ?
Здравствуйте, уважаемые! Нужна подсказка. При работе программы получаются слишком большие...


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

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

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