типы

@shbk · Регистрация: 29.10.2009

Author24 — интернет-сервис помощи студентам

Подскажите ход мысли, код сам напишу
есть программа в ней одна из подзадач проверить на четность число вещественное(single или real) ,
если оно четное, то округлить до ближайшего четного.
Идея: ср_ар по своей природе вещественной целого не получить,
я беру от него целую часть, мантиссу отсекаю,
должно остаться целое число,
если оно четное оставшееся число, то я +1 к его значению

Pascal

sr_ar:=s/elem;
        sr_ar:=trunc(sr_ar);
         if not odd(sr_ar)=true then
          sr_ar:=1+sr_ar;

но выпадет ошибка, не соответствие типов, как я понимаю из-за вещественности числа
компилятор FPC

код процедуры:

Pascal

procedure rechange; {4}
var f,i,j,l,elem,n:byte;
    s:shortint;
    sr_ar:single;
begin
 s:=0;
for i:=1 to n do
 for j:=1 to n do
  if (i>n-j+1) and (not odd(x[i,j]) )then
   begin
    write(x[i,j], ' ');
    write('rechange');
               {f - var for set index of line}
     begin
 
     f:=i;  elem:=0;
     for l:=1 to n do      {look ind j(use l) , then i=const}
       if odd(x[f,l]) then
         begin
          s:=s+x[f,l];
          inc(elem);   {var for find sr_ar}
         end;
        sr_ar:=s/elem;
        sr_ar:=trunc(sr_ar);
         if not odd(sr_ar)=true then
          sr_ar:=1+sr_ar;
     end;
   end;
   x[i,j]:=sr_ar;
end;

@Puporev · 04.01.2010, 10:34

Вместо sr_ar:=trunc(sr_ar); так нельзя.
Нужно

Pascal

1
2
3

var a:integer;
........
a:=trunc(sr_ar);

@shbk · 04.01.2010, 10:50 **[ТС]**

спасибо, разобрался

@shbk 13 / 13 / 0 Регистрация: 29.10.2009 Сообщений: 71
	04.01.2010, 10:50 [ТС]	3
	спасибо, разобрался 0