напишите класс который принимает с клавиатуры целое число и выводит на экран его квадрат но только в случае,если введенное число отрицательно.В

+ 0 -

миха1234567890

20 окт. 2016 г., 1:05:37 (7 лет назад)

var a:integer;

begin

readln(a);

if (a<0) then a:=sqr(a);

writeln(a) else writeln('Error');

end.

+ 0 -

Trigonometriya

20 окт. 2016 г., 2:23:33 (7 лет назад)

type Cl = class
  a:integer;
  constructor Create(b:integer);
  procedure SetVal(b:integer);
  function GetVal:integer;
  procedure Sq;
end;

constructor Cl.Create(b:integer);
begin
  a := b;
end;

procedure Cl.SetVal(b:integer);
begin
  a := b;
end;

function Cl.GetVal:integer;
begin
  GetVal := a;
end;

procedure Cl.Sq;
begin
  if a < 0 then
    writeln('a ^ 2 = ', a * a)
  else
    writeln('Error');
end;


var
  Obj:Cl;
  a :integer;
begin
  write('a = ');
  readln(a);
  Obj := Cl.Create(a);
  Obj.Sq;
  Readln;
  Obj.Destroy;
end.