Всё что касается Turbo Pascal 7.0.

#0 by System at 2006-10-20 20:46:32 (920 săptămâni în urmă) - [Link]

Кто может скинуть учебники, стастьи, исходники....и т.д.?

Mesaj util ? Da 0 puncte

1 2 3 4 5
<< Precedenta Următoarea >>

#101 by ZendeN (Uploader) (0 mesaje) at 2006-10-24 17:06:56 (920 săptămâni în urmă) - [Link]

#100 Capilleary, мой алгоритм находит наибольший свободный прямоугольник (а наверное нужно было квадрат)

Quote:

uses crt, graph;
type
point = record
x,y : integer;
end;
rect=record
x,y,w,h: integer;
s: longint;
end;
var
p : array[1..50] of point;
width, height: integer;
max,t: rect;
x,y,w,h,n,i: integer;

a,b:integer;

function includes(d: point;r: rect): boolean;
begin
includes:=false;
if (d.x>r.x) and (d.x<r.x+r.w) and (d.y>r.y) and (d.y<r.y+r.h) then
includes:=true;
end;

function checkrect(r: rect): boolean;
begin
checkrect:=false;
for i:=1 to n do
if includes(p[i],r) then exit;
checkrect:=true;
end;

begin
clrscr;
write('Vvedite razmery u4astka(x & y) : ' );

readln(width, height);
write('Vvedite kol-vo dereviev ' );
readln(n);
writeln('Vvedite koordinaty dereviev (x & y): ' );

for i:=1 to n do
begin
readln(p[i].x,p[i].y);
if (p[i].x<1) or (p[i].x>width) or (p[i].y<1) or (p[i].y>height) then exit;
end;

for x:=0 to width-1 do
for y:=0 to height-1 do
for w:=1 to width-x do
for h:=1 to height-y do begin
t.x:=x;
t.y:=y;
t.w:=w;
t.h:=h;
if checkrect(t) then begin
t.s:=t.w*t.h;
if t.s> max.s then max:=t;
end;
end;

writeln(max.x,' ',max.y,' ',max.w,' ',max.h);
readln;

{graf.dvijok}
detectgraph(a,b);
initgraph(a,b,'' );
rectangle(20,20,20+width*20,20+height*20);
for i:=1 to n do
circle(20+p[i].x*20,20+p[i].y*20,2);
setcolor(green);
rectangle(20+max.x*20,20+max.y*20,20+(max.w+max.x)*20,
20+(max.y+max.h)*20);

readkey;
closegraph;
end.

Editat de către ZendeN la 2006-10-25 15:31:17

Mesaj util ? Da 0 puncte

#102 by Capilleary

(Патлатый) (0 mesaje) at 2006-10-24 22:59:55 (919 săptămâni în urmă) - [Link]

daaa, algoritmul functzioneaza. Dar daca incerci sa-l pui la un cimp 200x200 ap precis ca ai sa te zacalibeshti sa ashteptzi. Da la al meu algoritm insa exista problema copacilor. Cit mai multzi copaci atit mai multa memorie ocupa programul, in progresie geometrica.

Instructziuni necunoscute wrote:

if (d.x>r.x) and (d.x<r.x+r.w) and (d.y>r.y) and (d.y<r.y+r.h) then

ce-i cu ";"? Eu asha operatori prima data vad in Pascal.

Mesaj util ? Da 0 puncte

#103 by ZendeN (Uploader) (0 mesaje) at 2006-10-25 15:32:32 (919 săptămâni în urmă) - [Link]

Quote:

if (d.x>r.x) and (d.x<r.x+r.w) and (d.y>r.y) and (d.y<r.y+r.h) then

Это так неправильно конвертировалось пр копировании на форум... исправил...

насчет алгоритма 100 % согласен, но я думаю если эту задачу дали бы на олимпиаде, такое решение прокатило...

Mesaj util ? Da 0 puncte

#104 by Capilleary

(Патлатый) (0 mesaje) at 2006-10-25 19:15:55 (919 săptămâni în urmă) - [Link]

ZendeN,

eram sh eu asha ca tine pina nu demult. Aveam profe levie care nu ne-au predat normal recursia. Rezolvam sh eu cu algoritmi interesantzi alde acesta. Dar treceam in mediu 3 teste din 5 la problema. Problema: in asha metode deseori apar bugs, care necesita mult timp pentru a-i corecta, shi daca se corecteaza uneori nu pina la urma, shi lucreaza mai incet, probleme cu memoria... ETC.

CHEIA: Un prof foarte bun. Care a trecut sh el prin olimpiade, sa fie tinar shi sa shtie mult mai mult decit programul shcolar.

Acum is fericit, am dat de un prof care mi-a aratat ca recursia face minuni.

Mesaj util ? Da 0 puncte

#105 by ZendeN (Uploader) (0 mesaje) at 2006-10-25 21:28:28 (919 săptămâni în urmă) - [Link]

#104 Capilleary,
Уровень преподавания информатики в моем лицее (не буду говорить о всех) очень низкий. Учительница толком не умеет объяснять, из-за этого почти все мои одноклассники ничего не понимают, и каждый раз когда идет зачётная работа, мне приходится их выручать.

В своих разговорах они жалуются что Паскаль устарел, на Паскале никто ничего не пишет. В этом есть доля правды. Но! В школе нас учат не столько Паскалю, а учат думать., создавать алгоритмы.

Что касается меня - я участвовал в олимпиадах, занимал призовые места, но очень многие задачи мне кажутся просто неинтересными, другие головоломками. Ни те, ни другие я не люблю решать. Я хочу создавать алгоритмы имеющие практическое применение.

Сейчас я заинтересован в создании алгоритмов распознавания CAPTCHA (картинка, на которой изображены цифры или буквы, которые обычно просят ввести при регистрации на многих онлайн-сервисах). Если у тебя есть идеи по этому поводу, предлагай.

Mesaj util ? Da 0 puncte

#106 by Capilleary

(Патлатый) (0 mesaje) at 2006-10-25 21:31:38 (919 săptămâni în urmă) - [Link]

ZendeN, interesant, dar mult de lucru. Eu m-am dezis de asha ceva, cautind idei utile pentru programe care s-ar vinde bine in MD sh poate dupa hotare. Pentru asta nu am nevoie aproape deloc de algoritmii complicatzi pe care i-am invatzat la liceu.

P.S. la mine tot asha profe au fost

Mesaj util ? Da 0 puncte

1 2 3 4 5
<< Precedenta Următoarea >>

Forum Index > Coș cu teme șterse > Soft > Всё что касается Turbo Pascal 7.0.

You are not permitted to post in this forum.