OK ... in primul rand, SaL la toata lumea
sunt nou pe Forum si pe site
si desigur intentionez sa raman alaturi de aceasta comunitate online
Dupa luuungi cautari pe Google
in sfarsit am gasit si eu ceea ce cautam ... o comunitate unita, activa si dinamica din foarte multe puncte de vedere ... nu cunosc pe nimeni, nu stiu legaturile care sunt intre voi, dar sper sa ma primiti si pe mine
OK acum sa trec la subiect ... sunt clasa a 12 -a,
la profil de MATE-INFO (uff... greu) si evident (zic eu ) ... trebuie sa fac un atestat ... de 15-20 pagini + program de dificultate medie
Pana acum e totul bine ... am facut cam 10 pagini ( introducere in limbajul Pascal, secvente, descrierea instructiunilor, directive, identificatori etc ) si urmatorul program care afiseaza un grafic de forma unui ochi ... foarte frumos zic eu
program ochi;
uses graph;
var dg,mg:integer;
x,y,r,u,yo:longint;
procedure init;
var cale:string;
begin
write('Calea driverului grafic(pentru C:\BP\BGI apasati CR):');
readln(cale);
if cale='' then cale:='C:\BP\BGI';
detectgraph (dg,mg); initgraph(dg,mg,cale);
if graphresult<>grok then
begin writeln ('Cale incorecta'); halt end
end;
begin
init;
setbkcolor (black);
cleardevice;
x:=getmaxx div 2;y:=getmaxy div 2;
r:=((sqr(x)+sqr(y))div(2*y));
u:=round(arctan(x/(r-y))*180/pi);
setcolor (white);
arc (x,r,90-u,90+u,r);
arc (x,2*y-r,270-u,270+u,r);
setfillstyle (solidfill,white);
floodfill (10,y,white);
setcolor (brown);
setfillstyle (solidfill,brown);
pieslice (x,y,0,360,y div 3 * 2);
setcolor (black);
setfillstyle (solidfill,black);
pieslice (x,y,0,360,y div 6);
readln;
closegraph
end.
OK .. so far so good
... mai trebuie aproximativ 5-6 pagini cu Explicatii si Informatii pe marginea acestui program : de ce e pieslice si nu altceva, ce inseamna secventa cutare, ce face floodfill, ce inseamna cleardevice si la ce foloseste etc . Eu nu am idee cum sa dezvolt toate cele ca sa intre in 5-6 pagini ... + ca unele secvente nu stiu ce fac sau ce insemana : cleardevice, detectgraph etc
Cunostiintele mele in Pascal sunt destul de limitate recunosc
spre deosebire de HARDWARE & SOFTWARE unde ma pricep foarte bine
Va rog ... daca ma poate cineva ajuta cu acele explicatii pe margina programului ... orice considerati voi util poate fi de ajutor
Thanks
Daca ma puteti ajuta, adaugati ID-ul meu de mess : sters
Bafta !
