Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
virtuelna ravan-preklapanje krugova
program presjekKrugova; type pok=^elem; elem=record x,y,r:real; next:pok end; var n,i:integer; lista,tek1,tek2:pok; d:real; procedure ubacielemulistu(var lista:pok); var novi:pok; begin new(novi); read(novi^.x,novi^.y,novi^.r); if lista=nil then lista:=novi else begin novi^.next:=lista; lista:=novi end end; procedure izbrisilistu(var lista:pok); var pom:pok; begin while (lista<>nil) do begin pom:=lista; lista:=pom^.next; dispose(pom) end end; begin writeln('Unesite broj krugova: '); read(n); lista:=nil; for i:=1 to n do ubacielemulistu(lista); tek1:=lista; while (tek1<>nil) do begin tek2:=tek1; while(tek2<>nil) do begin d:=sqrt((tek1^.x-tek2^.x)*(tek1^.x-tek2^.x)+(tek1^.y-tek2^.y)*(tek1^.y-tek2^.y)); if (d<>0) then if (d<(tek1^.r+tek2^.r)) then writeln('Preklapaju se krug(',tek1^.x:0:2,',',tek1^.y:0:2,')i krug(',tek2^.x:0:2,',',tek2^.y:0:2,').'); tek2:=tek2^.next end; tek1:=tek1^.next end; izbrisilistu(lista) end.
run
|
edit
|
history
|
help
0
123
Programa para calcular digito verificador de un RUT
practica 2 ejercicio 5
Calcular digitos de un numero (hasta 4 digitos)
Triangle.pas
1
Сумма пар чисел кратных и некратных 11 с дельтой
practica 11 ejercicio 5
ANDRESSA LIMA NEPOMUCENO 600624624
9