Дизайн и креатив: разработка от профессионалов
http://uptimecommerce.com/forum/

Помогите, пожалуйста, с Паскалем!
http://uptimecommerce.com/forum/viewtopic.php?f=22&t=798		 Страница 5 из 7
Автор:  Kirilll [ 13 янв 2010, 20:13 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
2 Дима Баглаев тут придется геометрию терзать)
во 1 что ето за координаты в первых 2 строках файла... координаты чего?
Автор:  YSA [ 13 янв 2010, 20:37 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
Program Kursovik;
Const koor=25; {kol-vo to4ek}
Type exact=real; {to4nost}
MyMas=longint;
MyArray=array [1..koor, 1..2] of MyMas;
Var g1,g2, {koli4estvo to4ek po raznie storoni pr9moy}
p, {modul' raznosti mezhdu nimi}
i,j, {nomer to4ki iz massiva}
i0,j0,
c,l, {s4et4iki}
lol: integer;
x,y, {koordinati to4ki}
x1,x2,y1,y2, {koordinati to4ek, 4erez kotorie proxodit pr9ma9}
k,b:exact; {koefficienti pr9moy}
stop: boolean;
m: MyArray; {massiv, v kotoriy vxod9t to4ki}
init, out: text;
d: longint;

{procedure read (const m:MyArray; var init:text);
var i,d: longint;
begin reset(iniy); i:=0;
while not(Eoln(init)) do begin i:=i 1;
read(init,d);
m[i,1]:=d;
end;
i:=0;
while not(Eof(init)) do begin i:=i 1;
read(init,d);
m[i,2]:=d;
end; }

procedure print (const i,j,p:integer; const m: MyArray);
begin
writeLn ('Pr9ma9 proxodit 4erez to4ku, u kotorix koordinati (',m[i,1],',',m[i,2],') i (',m[j,1],',',m[j,2],')');
writeLn ('i razli4auts9 po koli4estvu na p to4ek',p);
end;

begin
j:=2; p:=koor; stop:=false;
assign (out, 'out.txt');
rewrite (out);

assign (init,'init.txt'); reset(init);
i:=0;
while not(Eoln(init)) do
begin i:=i 1;
read(init,d);
m[i,1]:=d;
end;
i:=0;
while not(Eof(init)) do
begin i:=i 1;
read(init,d);
m[i,2]:=d;
end;
i:=1;

while not (stop) do
begin c:=0; g1:=0; g2:=0;
x1:=m[i,1]; y1:=m[i,2]; x2:=m[j,1]; y2:=m[j,2];
if not(x1=x2) then
k:=(y1-y2)/(x1-x2);
b:=y1-k*x1;

while c<koor do
begin
c:=c 1;
if (not(c=i)) and(not(c=j)) then begin x:=m[c,1]; y:=m[c,2];
if y>k*x b then g1:=g1 1;
if y<k*x b then g2:=g2 1; writeln (g1,' ',g2);
end;
end;
if abs(g1-g2)<p then begin p:=abs(g1-g2); i0:=i; j0:=j; end;
j:=j 1;
if j>koor then begin i:=i 1; j:=J 1; end;
if i>koor then stop:=true;
end;
print(i,j,p,m);
readln;
end.

Ну вот всё, что есть у меня :)
Автор:  Kirilll [ 13 янв 2010, 20:44 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
=) я имел ввиду задачу а не сам код..))
я попробую сам написать с 0.. просто мне не очень понятно само условие задачи)
Автор:  YSA [ 13 янв 2010, 20:55 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
Так вот условие: Из заданного множества точек на плоскости выбрать 2 различные точки так, чтобы количество точек, лежащих по разные стороны прямой, проходящей через эти 2 точки, различались наименьшим образом.

Не заметил, видимо :))
Автор:  Kirilll [ 13 янв 2010, 21:09 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
а если точки лежат на самой прямой... то куда их надо считать? или ваще не считать?)
Автор:  YSA [ 13 янв 2010, 21:21 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
Тогда не считать...)
Автор:  Андрей Кузьмич С третьего [ 14 янв 2010, 19:26 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
Хотите РЕАЛЬНУЮ помощь с паскалем? Учите си. Я серьезно, паскаль маломощный язык, к тому же мертвый. Если вы, конечно, собираетесь заниматься программированием в дальнейшем.
Автор:  Андрей Кузьмич С третьего [ 14 янв 2010, 19:27 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
А если серьезно, то могу набрасать на сях
Автор:  YSA [ 14 янв 2010, 21:46 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
Хм...Я непременно займусь изучением си, когда с учёбой попроще станет...решение этой задачи на си я где-то уже находила)
Автор:  Дарья Борисенко [ 17 янв 2010, 13:44 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
ПРИВЕТ ВСЕМ!!!КТО ЗНАЕТ КАК В ПАСКАЛЕ ПЕРЕЙТИ С АНГЛИЙСКОГО ЯЗЫКА НА РУССКИЙ??ОЧЕНЬ СРОЧНО НАДО!!!
Страница 5 из 7 Часовой пояс: UTC
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/