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

Помогите, пожалуйста, с Паскалем!
http://uptimecommerce.com/forum/viewtopic.php?f=22&t=798		 Страница 2 из 7
Автор:  YSA [ 12 янв 2010, 13:00 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
А что есть такое positive? :) Условие чего-то?
Автор:  Kirilll [ 12 янв 2010, 13:04 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
ето переменная boolean типу. если прочитаное в файле init.txt число будет >= 0 т.е. додатное то мы присваиваем positive значения true в противном случае присваиваем false
с помощью positive проверяем предыдущее значения последовательности. потому что если на даном кроке цыкла мы еще не присвоили значения positive то ета переменная хранит значения из предыдущего крока. значит таким образом мы можем судить о предыдущем значении числа из последовательности было ли оно или -
Автор:  YSA [ 12 янв 2010, 13:04 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
Ммм...типа, условие положительности?)
Автор:  Kirilll [ 12 янв 2010, 13:05 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
да)
Автор:  YSA [ 12 янв 2010, 13:07 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
Спасибо, теперь всё ясно :))
Автор:  Kirilll [ 12 янв 2010, 13:09 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
На здоровье =)
Автор:  YSA [ 12 янв 2010, 13:11 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
У меня есть ещё наброски одной проги на бумаге, попробую с ней повозиться :) Если не выйдет что - напишу сюда. Надеюсь, что подскажешь :)

П.С. Забавно совпало, что на аватаре у тебя мой любимый герой компьютерной игры :)
Автор:  Kirilll [ 12 янв 2010, 13:14 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
ок... без проблем)
Автор:  Kirilll [ 12 янв 2010, 14:09 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
Гг)
Автор:  YSA [ 12 янв 2010, 19:36 ]
Заголовок сообщения:  Re: Помогите, пожалуйста, с Паскалем!
Ну, собственно, вот моя задача: Из заданного множества точек на плоскости выбрать 2 различные точки так, чтобы количество точек, лежащих по разные стороны прямой, проходящей через эти 2 точки, различались наименьшим образом.
Вот мои наброски: Program Kursovik;
Const koor=25; {kol-vo to4ek}
Type exact=single; {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(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;

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],') i razli4auts9 po koli4estvu na p to4ek',p);
end;

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

i:=0; assign (init,'init.txt'); reset(init);
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);
end.

Выдается ошибка 26 в пятой строке процедуры.
Хелп :)
Страница 2 из 7 Часовой пояс: UTC
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/