@uzi_no_uzi

Как преобразовать real в integer?

Что я делаю не так? Еще пробовал для этих переменных задавать тип integer сразу, но не помогло.

5ba93d15ac23e167247230.jpeg
Program asdasdas;
uses GraphABC;
begin;

  var wWidth, wHeight: integer;
  writeln('Введите размер окна');
  writeln('Ширину:');
    readln(wWidth);
  writeln('Высоту:');
    readln(wHeight);
  SetWindowSize(wWidth, wHeight);

  var figureWidth, figureHeight: integer;
  writeln('Введите размер фигуры');
  writeln('Ширину:');
    readln(figureWidth);
  writeln('Высоту:');
    readln(figureHeight);

  //Options

  SetPenWidth(3);

  //Write center lines

  var centerLineWidth, centerLineStartPoint: real;

  centerLineWidth:= int(wWidth/100 * 57.14);
  centerLineStartPoint:= int(wWidth/100 * 21.43);
  Line(centerLineStartPoint, 0, centerLineStartPoint + centerLineWidth, 0);

end.
  • Вопрос задан
  • 503 просмотра
Решения вопроса 1
longclaps
@longclaps
var
  i: integer;
...
  i := round(floatVar);
Ответ написан
Комментировать
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы