М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Фаззан
Фаззан
02.08.2020 15:49 •  Информатика

(c#)есть отношение наследования: планета (planet) - базовая абстракция,
земля (earh) и луна (moon) - производные классы.
planet имеет методы reportaboutmovement () (сообщить вокруг
которого небесного тела движется планета) и reportaboutlife () (сообщить
о наличии жизни на планете). каждый из производных классов переопределяет
методы reportaboutmovement () reportaboutlife () базовой абстракции.
разработать консольную программу, которая использует принцип
полиморфизма для вывода текстовых сообщений по движению и
наличия жизни на земле и луне. (c# ! )

👇
Открыть все ответы
Ответ:
BrenderMaster
BrenderMaster
02.08.2020
Const n=10; m=3;
var 
a:array[1..n,1..m] of integer;
i,j,s,k:integer; p:real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
   a[i,j]:=random(81)+20;
   write(a[i,j]:4);
  end;
  writeln;
 end;
s:=0;
for i:=1 to n do
 for j:=1 to m do s:=s+a[i,j];
p:=s/n*0.8;
writeln('p = ',p:5:2);
writeln('Зачислены:');
k:=0;
for i:=1 to n do
 begin
 s:=0;
 for j:=1 to m do s:=s+a[i,j];
 if s>=p then begin write(i,' '); k:=k+1; end;
 end;
writeln;
writeln('k = ',k);
end.

Пример:
Исходный массив:
  58  79  60
  96  63  97
  90  97  57
  29  68  25
  38  75  65
  54  69  42
  44  70  47
  39  49  24
  27  64  36
  68  21  64
p = 137.20
Зачислены:
1 2 3 5 6 7 10 
k = 7
4,6(51 оценок)
Ответ:
pol422
pol422
02.08.2020
Для радиуса описанной окружности имеется соотношение
\displaystyle R= \frac{a}{2\sin A}=\frac{b}{2\sin B}=\frac{c}{2\sin C}; \\ \\ a=2R\sin A \\ b=2R\sin B \\ c=2R\sin C

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

var
  a,b,c,R,dA,dB,dC:real;
begin
  Writeln('Введите углы A,B в градусах и радиус R');
  Read(dA,dB,R);
  dC:=180-dA-dB;
  a:=2*R*sin(dA*Pi/180);
  b:=2*R*sin(dB*Pi/180);
  c:=2*R*sin(dC*Pi/180);
  Writeln('Угол C: ',dC:0:2);
  Writeln('a=',a:0:5);
  Writeln('b=',b:0:5);
  Writeln('c=',c:0:5)
end.

Пример
Введите углы A,B в градусах и радиус R
30 70 50.0
Угол C: 80.00
a=50.00000
b=93.96926
c=98.48078
4,6(23 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ