Используя объектный тип, опишите фигуру шар с методом вычисления объема.

210

392

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

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

Виталий5546

Информатика

4,7(9 оценок)

//pascalabc.net 3.0, сборка 1052 type balls = class r: real; constructor (rr: real); begin r: =rr end; function vb: real; begin vb: =4*pi*r*sqr(r)/3 end; end; var b: balls; r: real; begin write('радиус шара= '); read(r); b: =new balls(r); writeln('объем шара равен ',b.vb: 0: 3) end. тестовое решение: радиус шара= 25 объем шара равен 65449.847

polinak022

Информатика

4,4(65 оценок)

// pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',2); a.println; writeln('положительных: ',a.where(x-> x> 0).count) end. пример n= 15 1 -1 -1 2 0 2 2 -2 -2 0 -1 -1 -2 1 1 положительных: 6