Составить программу и определить, принадлежит ли точка с координатами (х, у) кругу с r=1 и центром в - id1054242220220909 от sacredand 09.09.2022 12:19

Question

Информатика: Составить программу и определить, принадлежит ли точка с координатами (х, у) кругу с r=1 и центром в начале координат о(0,0). уравнение окружности х2 + у2 = r2 if х * х + у * у = r * r then writeln (‘точка принадлежит кругу’) else writeln (‘точка не принадлежит кругу’);

sacredand · Accepted Answer

Uses crt; type oc=record        per,bt,tr:integer; end; ab=record fam,im:string; ocen:oc; end; var b:array [1..50] of ab; l:ab; i,n,g,k,h:integer; begin clrscr; writeln ( введи количество абитуриентов ); readln (n); Writeln ( Вводи фамилии, имена и 3 оценки ); for i:=1 to n do with b[i] do begin readln (fam); readln (im); readln (ocen.per,ocen.bt,ocen.tr); end; clrscr; for j:=1 to n do for i:=1 to n-1 do if b[i].fam b[i+1].fam then begin l:=b[i]; b[i]:=b[i+1]; b[i+1]:=l; end; writeln ( Список всех...

MOGZ ответил