Склавиатуры ввести натуральное число n и вещественные числа х1, хi, уi, . рассматривая пары хi, и уi, как координаты точек на плоскости, определить радиус наименьшего круга (с центром в начале координат), внутрь которого все эти точки. вычисление расстояния между двумя точками реализовать в виде функции. результат вывести в файл оut.txt.переделайте с паскаля на c(си) uses crt; vari, n: integer; x, y, min, t: real; beginclrscr; write('введите n = '); readln(n); min: =0; for i: =1 to n dobeginwrite ('введите 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.
Ответы
По выполняемым функциям и возможности применения информационные технологии делят на используемые:1) в автономных компьютерах (ПЭВМ) и в локальных рабочих станциях (АРМ) в составе сетевых автоматизированных информационных систем (АИС) реального времени;2) в объектно-ориентированных, распределённых, корпоративных и иных локальных и сетевых информационно-поисковых, гипертекстовых и мультимедийных системах;3) в системах с искусственным интеллектом;4) в интегрированных АИС;5) в геоинформационных, глобальных и других системах.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Расставь по порядку do, условие, while, команда;
Автор: bksenia9775
Тот составьте таблицу истинности для выражения: a∧(b∨c)∨(b∧ ¬c)
Автор: Ignateva737
Сумма четных цифр четырехзначного числа в phyton
Автор: Lyubov214
Как можно ввести данные с клавиатуры в переменные?
Автор: samoilovcoc
const n=19;
var i, l: integer;
Dat: array [1..n] of integer;
New: array [1..n] of integer;
begin
write('Dat: ');
for i:=1 to n do begin
Dat[i]:=random(30)-15;
write(Dat[i],' ');
end;
writeln();
write('New: ');
l:=0;
for i:=1 to n do if (Dat[i]>=0) and (Dat[i] mod 8<>0) then begin
l:=l+1;
New[l]:=Dat[i];
end;
for i:=1 to l do write(New[i],' ');
end.