Скачать: CL | DM;

Деление.   Найти похожие ветки 

← →
WestBronx   (2006-02-03 00:59) [0]

Тупой вопрос :)
Имееться переменная, нужно её разделить, к примеру на 182. Далее, как проверить, являеться ли полученное число целым? Если да, то заносим его в integer переменную. Спасибо.

---

← →
Almaz ©   (2006-02-03 01:12) [1]

> Имееться переменная, нужно её разделить, к примеру на 182.
>  Далее, как проверить, являеться ли полученное число целым?
>  Если да, то заносим его в integer переменную. Спасибо.

Если исходная переменная также целая, то проще проверить ее делимость:

var
  Source, Dest: Integer;
...
if Source mod 182 = 0 then
  Dest := Source div 182;

Если же исходная переменная вещественная, то проверять результат деления в помощью функции Frac

var
 Source: Real;
 Dest: Integer;
...
 if Frac(Source / 182) = 0 then
   Dest := Trunc(Source / 182);

Удачи.

---

← →
Norfolk ©   (2006-02-03 01:17) [2]

Тебе что исходик написать? А у самого ручки не доходят?
1. Имееться переменная, нужно её разделить, к примеру на 182

var
 a, b: integer;
begin
 b := a/182;
end;
Наверное сложно...
2. Например возьми модуль от полученного числа и сравни его с самим числом, если равны, то целое.
3. без коментариев...

---

← →
Almaz ©   (2006-02-03 01:23) [3]

> 2. Например возьми модуль от полученного числа и сравни
> его с самим числом, если равны, то целое.

Модуль ? :))

---

← →
WestBronx   (2006-02-03 01:24) [4]

Несовсем понятно как это работает =/
Вот попытался, при любых значениях val, программа выдаёт 238761 =/

var
Source: Real;
Dest, val: Integer;

begin
readln(val);
Source := 238761;
  if Frac(Source / val) = 0 then
  Dest := Trunc(Source / val);
writeln(FloatToStr(Source));
readln;

---

← →
WestBronx   (2006-02-03 01:26) [5]

Norfolk ©   (03.02.06 01:17) [2]
Инкоминг типс %)
Мне примера хватит.

---

← →
WestBronx   (2006-02-03 01:31) [6]

А, всё, допрло %)
Almaz, сеньк ;)


var
Source: Real;
Dest, pwd: Integer;
i_ext: extended;

begin
readln(pwd);
Source := 6;
  if Frac(Source / pwd) = 0 then
   begin
    Dest  := Trunc(Source / pwd);
    i_ext := Source / pwd;
   end;
writeln(FloatToStr(i_ext));
readln;
end.


---

← →
Almaz ©   (2006-02-03 01:31) [7]

> Вот попытался, при любых значениях val, программа выдаёт
> 238761 =/

Правильно выдает, выводить нужно результат, а не исходное число  ;)

var
Source: Real;
Dest, val: Integer;

begin
readln(val);
Source := 238761;
 if Frac(Source / val) = 0 then
 begin
   Dest := Trunc(Source / val);
   writeln(IntToStr(Dest));
 end;
readln;

Удачи.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.973 c