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

Переписать код с Pascal на C# (Можно также на С++, но очень желательно на C#)

function square(x1, y1, x2, y2, x3, y3: integer):real;
var
a1, a2, a3, p: real;
begin
a1:= sqrt(sqr(x2-x1) + sqr(y2-y1));
a2:= sqrt(sqr(x3-x2) + sqr(y3-y2));
a3:= sqrt(sqr(x1-x3) + sqr(y1-y3));
p:= (a1 + a2 + a3) / 2;
square:= sqrt(p * (p-a1) * (p-a2) * (p-a3));
end;

const
n = 20;
var
x, y: array[1..n] of integer;
temp,res: real;
i: integer;
begin
randomize;
for i:= 1 to n do
begin
x[i]:= random(20) - 10;
y[i]:= random(20) - 10;
end;
res:=0;
for i:= 3 to n do
begin
writeln(' Координаты треугольника', i-2, ': ', x[1]:4, y[1]:4, x[2]:4, y[2]:4, x[i]:4, y[i]:4);
temp:= square(x[1], y[1], x[2], y[2], x[i], y[i]);
res:=res+temp;
writeln('Площадь треугольника ', i-2, ' = ', temp:10:2);
writeln;
end;
writeln('Общая площадь равна: ',res);
readln;

end.


Переписать код с Pascal на C# (Можно также на С++, но очень желательно на C#) function square(x1, y1

👇
Открыть все ответы
Ответ:
Ева12а
Ева12а
09.09.2022
1. После получения сообщения о номере пути был сделан выбор 1 из 8, т.е. неопределенность информации о номере пути уменьшилась в 8 раз. Логарифм по основанию 2 от 8 равен 3, следовательно мы получили 3 бита информации.

2. от 10 до 16

3. 6 бит

4. 30*70=2100 2100*5=10500
 
5. По формуле 2^b>=A (где A-мощность алфавита, b-количество бит, приходящееся на 1 символ).  2^b>=256 b=8 бит=1 байт на символ 1/32 мб=32 кб=32768 байт Так как каждому байту соответствует 1 символ, ответ 32768. ответ: 32768
   
6. Запишем условие: К=2048, I-1/512 Mб, i-? решение: из формулы I=K*i выразим i -     i=I/K выразим информационный объем I в битах: I=1/512*1024*1024*8=16384 бит вычислим i=I/K=16384/2048=8 бит если i=8 бит, то мощность алфавита равна N=256 символов (т.к. 2 в 8 степени равно 256)
ответ : 256
 
7. 2^i= 1/P P=1/4 N=100/4=25
ответ:25
 
8. Дано: N(ч) = 8; N(б) = 24. Найти: i(ч) = ? Решение: 1) N = 8 + 24 = 32 — всего шаров. 2) р(ч) = 8/32 =1/4 — вероятность доставания черного шара. 3) i(ч) = log2 ( 1/(1/4)) = 2 бита.
  ответ: 2 бита.
 
9. 100010 100000000 1000 101101100 1010000001
4,6(97 оценок)
Ответ:
hepizor
hepizor
09.09.2022
А вот и ошибочка!  Вот алгоритм в исправленном виде!

var  M, tons, kilos, grams: integer;begin  write('Введите массу: ');  read(M);  // чтобы найти кол-во тонн, разделим нацело введенную массу  // на 1000000  tons := M div 1000000;  // div - деление нацело  // чтобы найти кол-во килограмм, сначала возьмем остаток   // деления на 100000, затем полученное число разделим   // нацело на 1000.  kilos := (M mod 100000) div 1000;  // mod - остаток от деления  // граммы - последние 3 цифры введенного числа  grams := M mod 1000;  writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.');end.
4,4(83 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ