Faceți căutări pe acest blog
Acest blog este o platformă on-line de studiu,este o școală online pentru elevi. Aceasta platformă include: -soft educational online la tehnici de programare. -studierea limbajului Pascal -exerciții cu java-script -grafică pe calculator -studii Gimp -studii Photoshop -grafica fractala -lectii online -web binare -asistenta online cu elevii -lucru individual cu elevii -rezolvari de exercitii -seminare pe zoom -Totul pe site este gratis!!! Abonați-va la site!!! Lucru Voluntar admin Staicu A.
Prezentat
- Solicitați un link
- X
- Alte aplicații
Forum 12.11.2020
Program fractal_seperski;
uses graph;
Var a, b, c, d, e, f:integer;
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
procedure chaos_serp(x1, y1, x2, y2, x3, y3: integer);
var
x, y, r: integer;
begin
randomize;
x := random(window.Width);
y := random(window.Height);
moveto(x, y);
for i: integer := 0 to 100000 do
begin
r := random(1, 3);
if r = 1 then
begin
x := (x + x1) div 2;
y := (y + y1) div 2;
end
else if r = 2 then
begin
x := (x + x2) div 2;
y := (y + y2) div 2;
end
else
begin
x := (x + x3) div 2;
y := (y + y3) div 2;
end;
PutPixel(x, y, clRandom);
MoveTo(x, y);
end;
end;
Begin
grDriver := Detect;
InitGraph(grDriver, grMode, 'X:\BP');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
{ Grafica fractala }
Writeln('introduceti coordonatele');
write('x1=');
Readln(a);
write('y1=');
Readln(b);
write('x2=');
Readln(c);
write('y1=');
Readln(d);
write('x3=');
Readln(e);
write('y3=');
Readln(f);
chaos_serp(a,b,c,d,e,f);
ReadLn;
CloseGraph;
end
else
WriteLn('Eror graphic mode init:', GraphErrorMsg(ErrCode));
readln;
end.
Aurelian Staicu:- Solicitați un link
- X
- Alte aplicații
Postări populare
Forum 02.03.21 Tehnici de programare Limbajul Pascal
- Solicitați un link
- X
- Alte aplicații
Forum 01.12.2020 Pagini web vs Photoshop
- Solicitați un link
- X
- Alte aplicații
Comentarii
Trimiteți un comentariu