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

#0 by System at 2006-10-20 20:46:32 (940 săptămâni în urmă) - [Link]Top
Кто может скинуть учебники, стастьи, исходники....и т.д.?


Mesaj util ?   Da   0 puncte

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

#76 by mdcool (Power User) (0 mesaje) at 2006-10-22 01:26:49 (940 săptămâni în urmă) - [Link]Top
#75 Stinger, жду, надеюсь поможешь. заранее thx


Mesaj util ?   Da   0 puncte
#77 by Capilleary Donor (Патлатый) (0 mesaje) at 2006-10-22 11:32:22 (940 săptămâni în urmă) - [Link]Top
cind eu am dat BAC la info, au fost probleme alde "rezolvatzi integrala definita prin metoda dreptunghiurilor din dreapta", "rezolvatzi ecuatzia" s.a.m.d. Karo4 ceva ce se invatza mai amanuntzit la "metode numerice". Daca ceva intrebari spunetzi, imi place sa ajut la persoane care asimileaza bine noua informatzia :)

mdcool, no offence, dar sh eu in rusa cam nu prea bine vorbesc, mai ales sa scriu. VOm vorbi in limba universala - PASCAL :D


Mesaj util ?   Da   0 puncte
#78 by UTM Donor (Power User) (0 mesaje) at 2006-10-22 11:59:27 (940 săptămâni în urmă) - [Link]Top
:smile: Am gasit inc un prog. facut demult.
Simplu de tot, nu are collision detection si nu prea faci multe in el,
dar pe atunci imi placea cum arata. 


{$R-,S-,Q-}
program motor_racer; uses crt,graph;
const xmax=640; ymax=349; mx=320; my=175;
var x,y:integer; x1,x2,x3,y1,y2,y3:integer; speed:byte;

procedure init; var gd,gm:integer;
begin randomize; gd:=3; gm:=1; initgraph(gd,gm,'c:\tp\bgi' ) ; setcolor(15);
setbkcolor(0); speed:=1;
x:=mx; y:=300; x1:=mx-80; y1:=0; x2:=mx-40; y2:=120; x3:=mx+40; y3:=240;
end;

procedure drum1; var i,j:integer;
begin
  rectangle(mx-110,0,mx-100,ymax);
  rectangle(mx+110,0,mx+100,ymax);
end;

procedure motor;
begin
  rectangle(x-20,y,x+20,y+40);
  circle(x,y+20,10); line(x,y+20,x,y-10);
end;

procedure inamic(i,j:integer);
begin
  rectangle(i-20,j,i+20,j+40);
  circle(i,j+20,10); line(i,j+20,i,j+50);
end;

procedure enemy;
begin
if y1>350 then begin x1:=mx+(random(5)-2)*40; y1:=-40; end;
if y2>350 then begin x2:=mx+(random(5)-2)*40; y2:=-40; end;
if y3>350 then begin x3:=mx+(random(5)-2)*40; y3:=-40; end;
inc(y1,speed); inc(y2,speed); inc(y3,speed);
inamic(x1,y1); inamic(x2,y2); inamic(x3,y3);
end;

procedure quit; begin readln; closegraph; end;

procedure key; var c:char;
begin
if keypressed then c:=readkey;
case c of
{left} #75 : if x>=mx-40 then x:=x-40;
{rght} #77 : if x<=mx+40 then x:=x+40;
{F10}  #68 : quit;
      '+' : inc(speed);
      '-' : if speed>0 then dec(speed);
end;
end;

begin
init;
repeat
  key;
  setactivepage(0);
    cleardevice;
    outtext('Apasa F10 ca sa iesi. ' )  ;
    drum1;
    motor;
    enemy;
  setvisualpage(0);
Repeat Until Port[$03DA] And $08 = $08;
  setactivepage(1);
    cleardevice;
    outtext('Apasa F10 ca sa iesi.' ) ;
    drum1;
    motor;
    enemy;
  setvisualpage(1);
Repeat Until Port[$03DA] And $08 = $08;
until false;
end.


Screen:

Editat de către UTM la 2006-10-22 12:06:47




Mesaj util ?   Da   0 puncte
#79 by Roosvelt (¡Hala Madrid! Y Nada Más!) (0 mesaje) at 2006-10-22 12:05:35 (940 săptămâni în urmă) - [Link]Top
#72 DIMEX, :rofl:


Mesaj util ?   Da   0 puncte
#80 by VadikRammDisabled (Der Metzgermeister) (0 mesaje) at 2006-10-22 13:14:20 (940 săptămâni în urmă) - [Link]Top
#78 UTM, de ce aproape toate programele scrise de voi dau erori?


Mesaj util ?   Da   0 puncte
#81 by UTM Donor (Power User) (0 mesaje) at 2006-10-22 13:20:11 (940 săptămâni în urmă) - [Link]Top
#80 VadikRamm ce fel de erori?
Posibil tre sa pui calea corecta aici: initgraph(gd,gm,'c:\tp\bgi' )
In rest, nu vad de ce nu ar merge.


Mesaj util ?   Da   0 puncte
#82 by mdcool (Power User) (0 mesaje) at 2006-10-22 15:16:30 (940 săptămâni în urmă) - [Link]Top
#80 VadikRamm, да, дело может быть в том, что папки указаны неправильно или ваще не указаны. каждый раз при запуске паскаля(увы, настройки че-то не сохраняются) мне приходится вручную вводить папку с TPU файлами сюда - options->directories->exe and tpu directory->"c:\progra~1\tp_71\tp\units"

ps у каждого tpu-шки хранятся в разных папках, просто найди их и укажи компилятору путь туда.

#77 Capilleary, ok, tre si eu sa studiez limba de stat.bine, dar eu mai mult voi utiliza limba rusa. у тя есть хоть какие-то экзаминационные работы по информатике, если есть, дай их мне - я должен хотя б знать че это такое, а то блин опять проколюсь, как на прошлогодней региональной олимпиаде( у нас по гагаузии есть еще один тур - школа->район->регион(3 района гагаузии)->республика) там нам дали задачу, переформулировав ее условие, чтоб мы не узнали ее(она висела в нэте , я после олимпиады ее сразу нашел), причем так переделали что непонятно было че искать-то, в итоге 11-классники все по-разному ее решили, ии один был просто чуть ближе к ответу. я потом еее выставлю, надо листик с ней найти, посмеетесь)))


Mesaj util ?   Da   0 puncte
#83 by ZendeN (Uploader) (0 mesaje) at 2006-10-22 18:44:11 (940 săptămâni în urmă) - [Link]Top
Помогите мне придумать алгоритм решения задачи.

Дан садовый участок некоторого размера, засаженный деревьями. Даны координаты этих деревьев. Задача программы состоит в том, чтобы помочь
дачнику найти наибольшую площадь под постройку дома, чтобы сохранить все деревья в неприкосновенности. Вот иллюстрация:



зеленые кружочки - это деревья  :)

P.S. Я в Pascal-e шарю, едиственное что мне нужно - додуматься как же вычислить координыты этого наибольшего свободного пространства...


Mesaj util ?   Da   0 puncte
#84 by kuett Fotbalist (VIP) (0 mesaje) at 2006-10-22 18:50:01 (940 săptămâni în urmă) - [Link]Top
=)) MDA CE PROBLEME.. eu inteleg totul foarte bine pana la fisiere .. adica tablouri proceduri functii .. tat xui%ea =) da iata si voi faceti asta e :w00t: de pe alta planeta.. nimic nu inteleg


Mesaj util ?   Da   0 puncte
#85 by VadikRammDisabled (Der Metzgermeister) (0 mesaje) at 2006-10-22 19:29:40 (940 săptămâni în urmă) - [Link]Top
#81 UTM, "Posibil tre sa pui calea corecta aici: initgraph(gd,gm,'c:\tp\bgi' )"- amu explica in ce limba ai scris, nik nu intzeleg in pascalu ista


Mesaj util ?   Da   0 puncte
#86 by Hunter (a.k.a. Revolter) (0 mesaje) at 2006-10-22 20:52:00 (940 săptămâni în urmă) - [Link]Top
Вот одна из игрушек сделанная мной на паскале очень давно. К сожелению исходников не могу найти. :(

Iata un joc facut de mine in pascal cu mult timp in urma. Din pacate nu pot gasi fisierele cu surse. :(

http://dl.p4p.skynet.md/1886/game.zip


Mesaj util ?   Da   0 puncte
#87 by kuett Fotbalist (VIP) (0 mesaje) at 2006-10-22 20:55:39 (940 săptămâni în urmă) - [Link]Top
#86 Hunter, papskaia joaca!! am incercat-o /// pentru 7 ani in urma cand erai mai tanar)) rupe buka!! :thumbsup: :w00t:

Editat de către kuett la 2006-10-22 21:18:06




Mesaj util ?   Da   0 puncte
#88 by Leolik Donor (white socks lover) (0 mesaje) at 2006-10-22 21:10:28 (940 săptămâni în urmă) - [Link]Top
Şi chiar e posibil aşa ceva să faci în Pascal?


Mesaj util ?   Da   0 puncte
#89 by kuett Fotbalist (VIP) (0 mesaje) at 2006-10-22 21:18:54 (940 săptămâni în urmă) - [Link]Top
#88 Leolik, da .. O_O


Mesaj util ?   Da   0 puncte
#90 by Leolik Donor (white socks lover) (0 mesaje) at 2006-10-22 21:21:15 (940 săptămâni în urmă) - [Link]Top
Ei dacă într-adevăr aşa stau lucrurile eu mă apuc să fac "Windows Turbo":-D:lol:


Mesaj util ?   Da   0 puncte
#91 by Hunter (a.k.a. Revolter) (0 mesaje) at 2006-10-22 21:22:18 (940 săptămâni în urmă) - [Link]Top
#88 Leolik, Desigur. Principal e sa stii cum :)


Mesaj util ?   Da   0 puncte
#92 by Hohhi (Power User) (0 mesaje) at 2006-10-22 21:24:21 (940 săptămâni în urmă) - [Link]Top
#83 ZendeN, переберай площади между четырьмя ближними точками, долго длинно и трудно зато 1000 % получится


Mesaj util ?   Da   0 puncte
#93 by Leolik Donor (white socks lover) (0 mesaje) at 2006-10-22 21:24:29 (940 săptămâni în urmă) - [Link]Top
Da eu mă pricep la asta ca mîţa-n calendar :-)


Mesaj util ?   Da   0 puncte
#94 by mdcool (Power User) (0 mesaje) at 2006-10-23 00:25:46 (940 săptămâni în urmă) - [Link]Top
#81 UTM, кстати у меня тоже эта игра не запускается, не знаю в чем проблема, твой инитграф не помогает


Mesaj util ?   Da   0 puncte
#95 by Capilleary Donor (Патлатый) (0 mesaje) at 2006-10-23 00:31:44 (940 săptămâni în urmă) - [Link]Top
Hohhi, chiar shi algoritmul Backtracking aici e greu de compus. Nu ai de la ce incepe sh unde sa termini. Am sa ma gindesc insa. Poate am sa fac ceva.
Problema a fost sh la OMI :) atunci insa nu am putut sa o rezolv timp de o ora.


Mesaj util ?   Da   0 puncte
#96 by Capilleary Donor (Патлатый) (0 mesaje) at 2006-10-23 12:19:34 (940 săptămâni în urmă) - [Link]Top
#83 am facut un algoritm destul de simplu, lucreaza rapid. Ce-i drept l-am incercat numai la 5 copaci.



Program copaci;
uses crt,graph;
type supr=record
                dx,dy,px,py:integer;
                s:longint;
                end;
var x,y:array[1..20] of integer;
    s:supr;
    n,a,b,lx,ly:integer;
procedure prelucrare(dx,dy,px,py:integer);
var i:longint;
    bun:boolean;
begin
    bun:=true;
    for i:=1 to n do
        if (x[i]<px) and (x[i]>dx) and (y[i]<py) and (y[i]>dy) then begin
            bun:=false;
            prelucrare(dx,dy,x[i],py);
            prelucrare(x[i],dy,px,py);
            prelucrare(dx,dy,px,y[i]);
            prelucrare(dx,y[i],px,py);
        end;
    if bun then begin
        i:=(px-dx)*(py-dy);
        if s.s<i then begin
          s.s:=i;
          s.dx:=dx;
          s.dy:=dy;
          s.px:=px;
          s.py:=py;
        end;
    end;
end;
begin
clrscr;
write('Introducetzi numarul de copaci: ' );
readln(n);
writeln('Introducetzi coordonata x shi y a copacilor: ' );
for a:=1 to n do
    readln(x[a],y[a]);
write('Introducetzi latzimea (x) shi lungimea (y) teritoriului: ' );
readln(lx,ly);
prelucrare(1,1,lx,ly);


{ei sh deam aici merge afisharea rezultatului in interfatza grafica}
detectgraph(a,b);
initgraph(a,b,'' );
rectangle(4,4,lx*4,ly*4);
for a:=1 to n do
    circle(x[a]*4,y[a]*4,2);
setcolor(green);
rectangle(s.dx*4,s.dy*4,s.px*4,s.py*4);
rectangle(s.dx*4+1,s.dy*4+1,s.px*4-1,s.py*4-1);
readkey;
closegraph;
end.


are sh interfatza grafica ca sa verifici corectitudinea rezultatelor.


Mesaj util ?   Da   0 puncte
#97 by ZendeN (Uploader) (0 mesaje) at 2006-10-23 17:26:29 (940 săptămâni în urmă) - [Link]Top
#96 Capilleary, спасибо за алгоритм. Я не очень вникал в него, понял что ты применил рекурсию. Сам я решил её методом перебора, работало не слишком долго.....

Эту задачу мне дала как дополнительную учительница по информатике, сказав, что она сама не смогла её решить (вот такие у нас учителя).


Mesaj util ?   Da   0 puncte
#98 by Capilleary Donor (Патлатый) (0 mesaje) at 2006-10-23 21:58:02 (940 săptămâni în urmă) - [Link]Top
ZendeN, asha is majoritatea profesorilor de la liceu. N-ai ce-i face.

Dar ce algoritm ai facut tu?

La mine e simplu, el desparte cimpul in jumate pe verticala, limita fiind unul din copaci, sh rezolva problema pentru fiecare din cele 2 jumatatzi. SH dupa asta pe orizontala desparte.


Mesaj util ?   Da   0 puncte
#99 by ZendeN (Uploader) (0 mesaje) at 2006-10-23 22:11:08 (940 săptămâni în urmă) - [Link]Top
Мой алгоритм с научной точки зрения не выдерживает никакой критики, поскольку это тупой перебор, а твое разделение плоскости по вертикали, горизонтали у меня тоже пробегало в голове.. но не дошло до реализации. В любом случае спасибо.


Mesaj util ?   Da   0 puncte
#100 by Capilleary Donor (Патлатый) (0 mesaje) at 2006-10-23 22:24:46 (940 săptămâni în urmă) - [Link]Top
ZendeN, pa liubomu pune. Mi-e interesant cum fara recursie ar arata. Eu singur ma chinuiam cu problema asta inainte. Abia azi dimineatza m-am apucat sh cu succes din prima incercare a lucrat, fara bugs.


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.


Navigare rapidă:


Comunitatea digitală din Moldova. Să adunăm și să organizăm conținutul autohton de pe întreg internet pe un singur site web.