Информатика, вопрос опубликован 03.03.2019 00:14 darinachirkova2

Нужно реализовать эту программу на языке программирования "basic" в visual studio.

Ответы
Ответ добавил: Гость

400 граммов краски получиться

Ответ добавил: Гость

ответ: окей

объяснение:

для квадрата:

procedure tform1.button1click(sender: tobject);

var

a,b,c,d,p,s: real;

begin

a: =2; b: =2; c: =2; d: =2;

if ((a=b)and(c=d)and(a=d))then

begin

p: =(a+b+c+d)/2;

s: =sqrt((p-a)*(p-b)*(p-c)*(p-d));

showmessage('s='+floattostr(s));

end else showmessage('это не квадрат');

end;

для треугольника:

procedure tform1.button1click(sender: tobject);

var

a,b,c,p,s: real;

begin

a: =2; b: =2; c: =3;

if (abs(a-b)

begin

p: =(a+b+c)/2;

s: =sqrt(p*(p-a)*(p-b)*(p-c));

edit1.text: =floattostr(s);

end else showmessage('не треугольник');

end;

Ответ добавил: Гость

i = m*log2(n),  где m - количество символов(букв) в сообщении, n - мощность алфавита, т.е. количество символов (букв) в нем.  1) оценка количества информации в первом символе сообщения  n1=2, так как могут быть только 2 разных символа алфавита племени мульти: а или о, m1=1  i1=m1*log2(n1)=1*log2(2)=1 бит;   2) оценка количества информации в остальных 8-1=7 символах сообщения  n2=32, так как могут быть 32 разных символа всего алфавита племени мульти, m2=7  i2=m2*log2(n2)=7*log2(32)=35 бит;   3) оценка количества символов информации в сообщении  i=i1+i2=1+35=36 бит

Ответ добавил: Гость

  при органов осязания

Больше вопросов по информатике