задача на паскале

[REY-GAN]

Здраствуйте, помогите написать программу на паскале.
Задача: переменной d присвоить дробную часть положительного числа x.

[Sparkman]

используйте mod

[REY-GAN]

Сообщение от Sparkman

используйте mod

немогли бы вы написать саму программу, а то я уже второй день над ней бьюсь и не получается

[W_Jim]

Для начала, нужно самому попробовать что-нибудь сделать, выложить код, а там уже люди посмотрят, помогут...

[Sparkman]

поспешил я с ответом, с помощью mod здесь не получится решить задачку (а может и получится...).
скорей всего вам придется оперировать функциями преобразования чисел в строки и обратно (хотя обычно решение той или иной задачи зависит от того, что вы сейчас проходите на занятиях...).

  const a=10.5;
var r,i,j,code:integer;
    s,t:string;
begin
     str(a:-1:1,s);
     for i:=1 to length(s) do
     if s[i]='.'then
     begin
          for j:=i+1 to length(s) do
          t:=t+s[j];
          break;
     end;
     val(t,r,code);
     WriteLn(r);
     ReadLn;
end.

ПС: код на троечку

Сообщение от W_Jim

Для начала, нужно самому попробовать что-нибудь сделать, выложить код, а там уже люди посмотрят, помогут...

Кстати да, товарищ REY-GAN, за 2 дня вы могли бы уже курсовую написать... так что выкладывайте ваш код

[REY-GAN]

да я за 1 день могу курсовую зделать, а с этими модами ваще руба, непонимаю их ходь убей

[Sparkman]

через mod
можно так попробовать

d := x mod 1;

ПС: на Delphi не пашет, паскаля нету.

Разобрался - с помощью mod здесь не получится, так как на месте x может быть только целое число.

[Serge_Bliznykov]

Разобрался - с помощью mod здесь не получится, так как на месте x может быть только целое число.

да. так не получится.

Задача: переменной d присвоить дробную часть положительного числа x.

d := FRAC(X);