В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
stalina2705
stalina2705
16.12.2022 21:53 •  Информатика

Рассмотрите внимательно примеры решения задач по нахождению информационного объема (веса) сообщения (I), нахождения Мощности алфавита (N), количества символов (К) ​

Показать ответ
Ответ:
Sergey15211
Sergey15211
07.09.2021 09:46
1)
Program massiv1;
Uses Crt;
Type Mas=Array [1..10] of integer; 
Var a:Mas; d,s:integer;
Procedure Vvod(Var x:Mas); 
Var i:Integer;
Begin For i:=1 To 10 Do
 x[i]:=Random(50);
End;
Procedure Vivod(Var x:Mas);
Var i:Integer;
Begin
For i:=1 To 10 do Write(x[i]:4);
writeln;
End;
Procedure p1(Var x:Mas; d:integer; Var s:integer); 
Var i:Integer;
Begin
s:=0;
For i:=1 To 10 Do
 If x[i] mod d=0 Then s:=s+x[i];
End; 
Begin
Vvod(a);
Vivod(a);
write('d = ');
readln(d);
p1(a,d,s);
Writeln('Сумма элементов, кратных ',d,' = ',s);
End.

Пример:
4 18 37 15 45 4 9 48 47 27
d = 3
Сумма элементов, кратных 3 = 162

2)
Program massiv2;
Uses Crt;
Type Mas=Array [1..10] of Real; 
Var a:Mas; k:integer;
Procedure Vvod(Var x:Mas); 
Var i:Integer;
Begin For i:=1 To 10 Do
 x[i]:=30*Random-20;{(B-A)*random+A}
End;
Procedure Vivod(Var x:Mas);
Var i:Integer;
Begin
For i:=1 To 10 do Write(x[i]:8:2);
writeln;
End;
Procedure p2(Var x:Mas;Var k:integer); 
Var i:Integer;
Begin
k:=0;
For i:=1 To 10 Do
 If x[i]<0 Then k:=k+1;
End; 
Begin
Vvod(a);
Vivod(a);
p2(a,k);
Writeln('Количество отрицательных элементов = ',k);
End.

Пример:
  -13.77  -11.34   -2.35    7.69  -18.85  -12.48   -6.11  -17.10    7.12   -9.60
Количество отрицательных элементов = 8

3)
Program massiv3;
Uses Crt;
Type Mas=Array [1..10] of Real; 
Var a:Mas; p:real;
Procedure Vvod(Var x:Mas); 
Var i:Integer;
Begin For i:=1 To 10 Do
 x[i]:=30*Random;{(B-A)*random+A}
End;
Procedure Vivod(Var x:Mas);
Var i:Integer;
Begin
For i:=1 To 10 do Write(x[i]:8:2);
writeln;
End;
Procedure p3(Var x:Mas;Var p:real); 
Var i:Integer;
Begin
p:=1;
For i:=1 To 10 Do
 If x[i]<10 Then p:=p*x[i];
End; 
Begin
Vvod(a);
Vivod(a);
p3(a,p);
Writeln('Произведение элементов, меньших десяти = ',p:8:3);
End.

Пример:
   24.36   22.50    3.31    5.50   21.68    8.22   19.89   24.86    2.69   23.78
Произведение элементов, меньших десяти =  402.027
0,0(0 оценок)
Ответ:
KarinaCorso
KarinaCorso
15.03.2020 00:38
ПРАВИЛЬНЫЙ алгоритм:
1. Находим координаты вектора каждой стороны по координатам вершин стороны (пусть эти координаты - х1,у1 и х2,у2):
х=х2-х1, у=у2-у1
2. Находим длину каждой стороны:
длина=корень квадратный (х*х+у*у)
3. Периметр=сумма длин всех сторон

Если четырехугольник в трехмерном пространстве, везде добавляем координату z:
1z=z2-z1
2корень квадратный (х*х+у*у+z*z)

Пример на языке С:
(имеется в виду, что все переменные уже объявлены где-то выше)

for(k=0; k<3; k++)
{
xs[k]=x[k+1]-x[k];
ys[k]=y[k+1]-y[k];
}
xs[3]=x[0]-x[3];
ys[3]=y[0]-y[3];
perimeter=0;
for(k=0; k<4; k++)
perimeter+=sqrt(xs[k]*xs[k]+y[k]*ys[k]);
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота