Циклы. Табулирование ф-ции.

[sqr]

Проверьте пожалуйста, правильно ли выполнил задачу.
Задание:

Код программы:

program lab4_1_1KI;
uses crt;
var d:real;
    m:integer;
begin
     clrscr;
     {Табулируем функцию}
     m:=(-10);
     writeln('Если m меньше или равно 1:');
        while m<=1 do
          begin
            d:=m*m*m;
            writeln(d:2:1);
            m:=m+1;
          end;
     writeln('Если m больше 1:');
        while m<=10 do
         begin
            d:=3/m;
            writeln(d:2:1);
            m:=m+1;

         end;
     readln;
end.

Результат:

[NetSpace]

мне так кажется, что ДА, ПРАВИЛЬНО.
только зачем брать отрицательное число в скобочки?

 m:=(-10);

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

[ViktorR]

Нет. НЕПРАВИЛЬНО!!
Это важно: Необходимо использовать условный оператор.
С Вашими переменными

m:=-10;
dm := 1;
while m<=10 do begin
   if m <= 1 then
       d:=m*m*m  {точку с запятой НЕ ставим. Почему?}
   else
       d:=3/m;
   m:=m+dm;
   writeln('m= ', m:4, 'D= ', d:8:3);
end;

[sqr]

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

только зачем брать отрицательное число в скобочки?

Да это для уверенности. Но спасибо, буду знать что не обязательно

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

Нет. НЕПРАВИЛЬНО!!
Это важно: Необходимо использовать условный оператор.

Я сначало хотел ветвление использовать, но ничего не вышло, сейчас попробую еще раз по вашему примеру. Спасибо огромное