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

Определить, попадает ли точка с координатами x0 , y0 в круг радиусом r . присвоить признаку n=1 , если точка находится внутри круга, и n=0 , если точка вне круга. паскаль

👇
Ответ:
ЯтвойНос
ЯтвойНос
07.08.2022
//PascalABC.NET
var
x,y,r:real;
begin
write('Введите координаты точки и радиус круга: ');
readln(x,y,r);
if sqr(x)+sqr(y) <= sqr(r) then
writeln('Точка попадает в круг.')
else
writeln('Точка не попадает в круг.');
end.
4,8(69 оценок)
Открыть все ответы
Ответ:
kuanyshqz
kuanyshqz
07.08.2022
Это ?   pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 uses graphabc; function f(x: real): real; begin f: =sin(x)/x end; var mx,my,x,dx,y: real;     x0,y0,i: integer;     s: string; begin x0: =windowwidth div 2; {г*г*г·г*г«г® гєг®г®г°г¤гёг*г*гі гў г¶гґг*гіг°гґ гѕгєг°г*г*г*} y0: =windowheight div 2; {гєг®гѕгґгґгёг¶гёгґг*гіг» гїг® г®г±гїг¬ г¤г«гї гїгґг°гґгўг®г¤г* г°гґг*г«гјг*г»гµ гєг®г®г°г¤гёг*г*гі гў гѕгєг°г*г*г*г»гґ} mx: =30; my: =100; line(0,y0,windowwidth,y0); {г®г±гј г•} line(x0,windowheight,x0,0); {г®г±гј г“} {гїг®г¤гїгёг±гё г®г±гё y} line(x0-3,y0-round(my),x0+3,y0-round(my)); textout(x0-10,y0-round(my)-15,'1'); line(x0-3,y0+round(my),x0+3,y0+round(my)); textout(x0-15,y0+round(my),'-1'); {гїг®г¤г°гёг±гё г®г±гё г•} for i: =1 to 6 do   {г¬г*гєг±гёг¬г*г«гјг*г®гґ гєг®г«гёг·гґг±гігўг® г§г*г±гґг·гґгє гў г®г¤г*гі г±гіг®г°г®г*гі}   begin   line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3); {г§г*г±гґг·гєгё г*г* г®г±гё г•}   line(x0-round(i*pi*mx/2),y0-3,x0-round(i*pi*mx/2),y0+3);   if i mod 2=0 then {гїг®г¤гїгёг±гё г·гґг°гґг§ 1}     begin     str(i div 2,s);     if s='1' then s: =''; {1pi 1 г*гґ гїгёгёгґг¬}     textout(x0+round(i*pi*mx/2),y0+10,s+'pi');     textout(x0-round(i*pi*mx/2),y0+10,'-'+s+'pi');     end;   end; {г¶гґг*гіг°} textout(x0+5,y0+10,'0'); {гїг®г¤гїгёг±гё гєг®г*г¶г®гў г®г±гґг©} textout(windowwidth-10,y0-10,'x'); textout(x0-10,10, 'y'); dx: =0.001; {гјг°г*гґгёгє} x: =-3*pi; while x< =3*pi do   begin   setpixel(x0+round(x*mx),y0-round(f(x)*my),clblue); {гјг°г*гґгёгє г±гёг*гёг¬}   x: =x+dx; {г*г*г°г*г№гёгўг*гґг¬ гµ}   end; end.
4,5(90 оценок)
Ответ:
ali12ali
ali12ali
07.08.2022

1.

var числа = []; for (let сч = 0; сч < 3; сч++) числа.push(Math.floor(Math.random() * 100)); var чётных = 0; числа.forEach(function (зн) { if (зн % 2 == 0) чётных++; }); alert(чётных);


2.

var a = prompt("a:"), b = prompt("b:"), c = prompt("c:");

var d = Math.pow(b, 2) - 4 * a * c;

if (d < 0) alert("Нету решений.");

else if (d == 0) alert("x = " + (-b / 2 / a));

else alert("x_1 = " + ((-b - Math.sqrt(d)) / 2 / a) + "; x_2 = " + ((-b+ Math.sqrt(d)) / 2 / a));


3.

var x = prompt("x:"), y = prompt("y:");

if (x > 0) {

 if (y > 0) alert("I"); else if (y < 0) alert("IV"); else alert("На оси Ox");

}

else if (x < 0) {

 if (y > 0) alert("II"); else if (y < 0) alert("III"); else alert("На оси Ox");

}

else if (y == 0) alert("В центре координат");

else alert("На оси Oy");

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