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

260

397

Посмотреть ответы 3

Ответы на вопрос:

Marfushka77

Информатика

4,8(1 оценок)

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.