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

Паскаль! на плоскости заданы три точки своими координатами. определить расстояние от точек до начала координат и напечатать, какая из точек расположена ближе к началу координат. (с повтором)

👇
Ответ:
vik5611
vik5611
02.01.2021
Var x1,y1,x2,y2,x3,y3,r1,r2,r3:real; min,p:integer;
begin
repeat
 write('x1, y1: ');
 readln(x1,y1);
 write('x2, y2: ');
 readln(x2,y2);
 write('x3, y3: ');
 readln(x3,y3);
 r1:=sqrt(x1*x1+y1*y1);
 r2:=sqrt(x2*x2+y2*y2);
 r3:=sqrt(x3*x3+y3*y3);
 writeln('r1 = ',r1:5:2,' r2 = ',r2:5:2,' r3 = ',r3:5:2);
 if r1<r2 then min:=1 else min:=2;
 if r3<min then min:=3;
 writeln('К началу координат ближе точка № ',min);
 write('Хотите повторить? (1-да, 0-нет) ');
 readln(p);
until p<>1;
end.

Пример:
x1, y1: 3 -2
x2, y2: -4 1
x3, y3: 5 0
r1 =  3.61 r2 =  4.12 r3 =  5.00
К началу координат ближе точка № 1
Хотите повторить? (1-да, 0-нет) 1
x1, y1: 8 0
x2, y2: -3 4
x3, y3: 5 -2
r1 =  8.00 r2 =  5.00 r3 =  5.39
К началу координат ближе точка № 2
Хотите повторить? (1-да, 0-нет) 0
4,5(58 оценок)
Открыть все ответы
Ответ:
danya166
danya166
02.01.2021
Const
  n = 10;

var
  i, s: integer;
  a: array[1..n] of integer;

begin
  Write('Введите оценки через пробел ');
  s := 0;
  for i := 1 to n do
  begin
    Read(a[i]);
    s := s + a[i]
  end;
  Writeln('Средний равен ', s / 10:0:2)
end.

Тестовое решение:

Введите оценки через пробел 4 5 3 4 4 5 3 5 5 4
Средний равен 4.20

var
  k, n: longint;
  i, m, s: integer;

begin
  Write('Введите натуральное число '); Readln(n);
  m := n mod 100000;
  k := 10000;
  for i := 1 to 4 do
  begin
    s := s + (m div k);
    m:=m mod k;
    k := k div 10
  end;
  s:=s+m;
  Writeln('Сумма последних пяти цифр числа равна ', s)
end.

Тестовое решение:

Введите натуральное число 123456789
Сумма последних пяти цифр числа равна 35
4,8(80 оценок)
Ответ:
anka4323
anka4323
02.01.2021

Информацию следует считать особым видом ресурса, при этом имеется ввиду толкование "ресурса" как запаса неких знаний материальных предметов или энергетических, структурных или каких-либо других характеристик предмета. В отличие от ресурсов, связанных с материальными предметами, информационные ресурсы являются неистощимыми и предполагают существенно иные методы воспроизведения и обновления, чем материальные ресурсы. Рассмотрим некоторый набор свойств информации:

1) запоминаемость; 

2) передаваемость; 

3) преобразуемость; 

4) воспроизводимость; 

5) стираемость. 

   Свойство запоминаемости - одно из самых важных. Запоминаемую информацию будем называть макроскопической (имея ввиду масштабы запоминающей ячейки и время запоминания). Именно с макроскопической информацией мы имеем дело в реальной практике. 

   Передаваемость информации с каналов связи (в том числе с помехами) хорошо исследована в рамках теории информации К.Шеннона. В данном случае имеется ввиду несколько иной аспект информации к копированию, т.е. к тому, что она может быть "запомнена" другой макроскопической системой и при этом останется тождественной самой себе. Очевидно, что количество информации не должно возрастать при копировании. 

   Воспроизводимость информации тесно связана с ее передаваемостью и не является ее независимым базовым свойством. Если передаваемость означает, что не следует считать существенными отношения между частями системы, между которыми передается информация, то воспроизводимость характеризует неиссякаемость и неистощимость информации, т.е. что при копировании информация остается тождественной самой себе. 

   Фундаментальное свойство информации - преобразуемость. Оно означает, что информация может менять и форму своего существования. Копируемость есть разновидность преобразования информации, при котором ее количество не меняется. В общем случае количество информации в процессах преобразования меняется, но возрастать не может. Свойство стираемости информации также не является независимым. Оно связано с таким преобразованием информации (передачей), при котором ее количество уменьшается и становится равным нулю.

Объяснение:

4,6(16 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ