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

Склавиатуры ввести натуральное число n и вещественные числа х1, хi,уi,. рассматривая пары хi, и уi, как координаты точек на плоскости, определить радиус наименьшего круга (с центром в начале координат), внутрь которого все эти точки. вычисление расстояния между двумя точками реализовать в виде функции. результат вывести в файл оut.txt.

переделайте с паскаля на c(си)

uses crt;
var
i,n: integer;
x,y,min,t: real;
begin
clrscr;
write('введите n = ');
readln(n);
min: =0;
for i: =1 to n do
begin
write ('введите x[',i,'] = ');
readln(x);
write ('введите y[',i,'] = ');
readln(y);
t: =sqrt(x*x+y*y);
if t> min thenmin: =t;
end;
write('радиус = ',min: 0: 2);
readkey;
end.

Показать ответ
Ответ:
даринасид85
даринасид85
18.01.2022 06:22

const n = 5;
          m = 5;
var
  a: array[1..n, 1..m] of integer;
  i, j, tmp, s_s: integer;
  magic: boolean;
begin
  magic := true;
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i, j] := random(50);
      write(a[i, j]:4);
      if(i = 1) then s_s := s_s + a[i, j];
      if(j mod m = 0) then writeln;
    end;
  end;

  for i := 2 to n do begin
    tmp := 0;
    for j := 1 to m do begin
      tmp := tmp + a[i, j];
    end;
    if(tmp <> s_s) then begin
      magic := false;
      break;
    end;
  end;


  for i := 1 to n do begin
    tmp := 0;
    for j := 1 to m do begin
      tmp := tmp + a[j, i];
    end;
    if(tmp <> s_s) then begin
      magic := false;
      break;
    end;
  end;
  if(magic) then writeln('Матрица является магическим квадратом') else
    writeln('Матрица не является магическим квадратом');
end.

0,0(0 оценок)
Ответ:
swetakorchagov
swetakorchagov
22.12.2022 15:29

1.    Он американский ученый, основоположник кибернетики. А

также теории об искусственном интеллекте. Славу ему принесли его работы в

математике и физике. Его большая роль в том, что именно он впервые смог понять

огромное значение того, что информация будет использоваться в процессах

управления.


2.      

Основатель теории информации, которая нашла свое место в современных

системах связи. В 40-х годах века ввел понятие «бит».


3.      

Термин, который означает «выполняющееся

действие по запросу», ввел Тед Нельсон в веке, в 1963 году.


4.      

В 1989 году. Изобретателем считают

двух человек – Тима Бернерс-Ли и Роберт Кайо.


5.      

Эйлер, в честь которого назвали графическую

схему, был ученым. Его сферой изучения была математика, физика, астрономия,

химия, ботаника, музыка, медицина и другие направления. Он автор 600 трудов. 


не за что!       и на сердечко

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота