Дизайн и креатив: разработка от профессионалов http://www.uptimecommerce.com/forum/ |
|
Помогите, пожалуйста, с Паскалем! http://www.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/ |