Показать сообщение отдельно
Старый 14.12.2013, 03:42   #8 (permalink)
Gruvi
VIP user
 
Аватар для Gruvi
 
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
По умолчанию

Могу и с этой помочь=) совсем вы люди обленились, а ведь у меня тоже сессия =)
на держи программу:
Цитата:
uses crt;
const n=10;
type point=record
x,y:real;
end;
mas=array[1..n] of point;
function Rasst(toint):real;
begin
Rasst:=sqrt(sqr(t.x)+sqr(t.y));
end;
function Count(r1,r2:real;t:mas):integer;
var k,i:integer;
begin
k:=0;
for i:=1 to n do
if (Rasst(t[i])>=r1*r1)and(Rasst(t[i])<=r2*r2) then inc(k);
Count:=k;
end;
procedure Vvod(var r1,r2:real;k:integer);
begin
repeat
writeln('Введите внутренний и внешний радиусы кольца ',k);
readln(r1,r2);
until(r1>0)and(r2>r1);
end;
var vn1,vs1,vn2,vs2:real;
a:mas;
i,k1,k2:integer;
begin
clrscr;
writeln('Введите координаты ',n,' точек');
for i:=1 to n do
begin
writeln('Точка ',i);
write('x=');readln(a[i].x);
write('y=');readln(a[i].y);
end;
clrscr;
writeln('Координаты точек:');
write(' ');
for i:=1 to n do
write(i:6);
writeln;
write('X:');
for i:=1 to n do
write(a[i].x:6:2);
writeln;
write('Y:');
for i:=1 to n do
write(a[i].y:6:2);
writeln;
writeln;
Vvod(vn1,vs1,1);
Vvod(vn2,vs2,2);
k1:=Count(vn1,vs1,a);
k2:=Count(vn2,vs2,a);
writeln('Количество точек в кольце 1=',k1);
writeln('Количество точек в кольце 2=',k2);
if k1>k2 then write('В кольце 1 больше')
else if k1<k2 then write('В кольце 2 больше')
else write('Количество точек в кольцах равное');
readln
end.
Gruvi вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070