Rastgele noktalar -hareketli fotoğraf

Rastgele noktalar -hareketli

void setup()
{
size (400,400);
background(255);
//noLoop();
}

void draw()
{
int [][]renkler ;
renkler = new int[width][height] ;

for (int i=0 ; i {
for (int j=0 ; j {
renkler[i][j] = round (random(255));
}
}

for (int i=0 ; i {
for (int j=0 ; j {
stroke(255,renkler[i][j],renkler[i][j]);
point(i,j);
}

}

}

array2

void setup()
{
size(400,400);
background(25,90,120);
//noLoop();
}

void draw()
{
int[][]renkler;
renkler= new int [width][height];
int noktaX= mouseX;
int noktaY= mouseY;
for (int i=0; i< width; i++)
{
for (int j=0; j< height; j++)
{
renkler[i][j] = round(dist(i,j,noktaX,noktaY))*255/100;
}
}


for(int i=0; i for(int j=0; j stroke(renkler[j][i]);
point(j, i);
}
}

}

mouse odaklı nokta

void setup()
{
size (400,400);
background(0);
//noLoop();
}

void draw()
{
int [][]renkler ;
renkler = new int[width][height] ;

int noktaX = mouseX;
int noktaY = mouseY;

for (int i=0 ; i {
for(int j=0 ; j {
renkler[i][j] = round(dist (i,j,noktaX,noktaY)) * 255 /500;
}

}

for (int i=0 ; i {
for(int j=0 ; j {
stroke(renkler [j][i]);
point(j, i);
}

}

}

processing, x ve y ye bağlı ekran bölme

void setup()
{
size(400,400);
background(0);
//noLoop();
}

void draw()
{
int X,Y;
X=mouseX/5;
Y=mouseY/5;


for(int i=0 ;i {
for(int j=0 ;j {
fill(abs(round(X/2)-i)*10+ abs (round(Y/2)-j)*10);
stroke(abs(round(X/2)-i)*10+ abs (round(Y/2)-j)*10);
rect(width/X *i , height/Y*j,width/X,height/Y);
}
}

}

gradient

void setup()

{
size(500,500);
background(0);
noLoop();
}

void draw()

{
int Xbol = 50;
int Ybol = 50;

for (int i=0; i<0) ctrl=" 255;">255)
{
ctrl =255;
}

fill(ctrl);
stroke(ctrl);
rect(width/Xbol * i, height/Ybol*j , width/Xbol, height/Ybol);

}

}

}

Ekranı ortadan renklendirme Fotoğraf

Ekranı ortadan renklendirme

void setup()
{
size (400,400);
background(0);
noLoop();
}

void draw()
{
int Xbol = 20 ;
int Ybol = 20 ;

for (int i = 0 ; i {
for (int j = 0 ; j {

fill(abs(round(Xbol/2)-i)*25 + abs(round(Ybol/2)-j)*25);

rect(width/Xbol* i , height/Ybol * j,width/Xbol , height/Ybol);
}
}

}

// matris renklendirme..

void setup()
{
size(400,400);
background(0);
noLoop();
}

void draw()
{
int Xbol=5;
int Ybol=5;
//ekranı böldük 5e..

for (int i= 0; i {
for(int j=0; j {
fill(250-i*25-j*25);
rect(width/Xbol*i, height/Ybol*j, width/Xbol, height/Ybol);
}
}

}

veri.txt

23 5

11111111111111111111111
11111111111111111111111
12121212121212121212121
10101010101010101010101
11111111111011111111111
0.8 2.15 1.5 2.15 1.5 2.15 1.5 2.15 1.5 2.15

girdi.txt

7 7
1 1 1 1 1 1 1
1 2 1 3 3 3 1
1 2 1 1 1 1 1
1 2 1 5 1 6 1
1 1 1 5 1 6 1
1 4 1 5 1 6 1
1 1 1 1 1 1 1
0.2 3.5 0.2 2.0 0.2 2.0 0.2
0.2 2.0 0.2 2.0 0.2 3.8 0.2

Processing de fibonacci dizisi

void setup()
{
size(400,400);
noLoop();

}

void draw()
{
float[] fibonacci = new float[40];
fibonacci[0] = 1;
fibonacci[1] = 1;
fibonacci[2] = 2;

for(int i=3 ; i<40 ; i++)
{
fibonacci[i] = fibonacci[i-1] + fibonacci[i-2];
}

println(fibonacci);

}

Processing: diziler elips çizme

void setup()

{

size(400,400);
noLoop();

}

void draw()
{
int X1, Y1, X2, Y2;
int Xartis, Yartis;

X1=50; Y1=50;
X2=300; Y2=400;


int[] Xler = new int [10];
int[] Yler = new int [10];
//Xler =array[1,,10] of INTEGER;

ellipse (X1, Y1, 5,5);
ellipse (X2, Y2, 15,15);

Xartis = (abs (X2 - X1)) / 10;
Yartis = (abs (Y2 - Y1)) / 10;

for (int i =0; i < 10; i++)
{
Xler[i] = X1 + Xartis * i;
Yler[i] = Y1 + Yartis * i;
}

for (int k =0; k < 10; k++)
{
ellipse ( Xler[k], Yler[k], 5*k, 5*(k+5));

}

}

Processing: diziler

void setup()
{

size (400,400);
noLoop();
}

void draw()
{

int[] sayilar= {432, 322, 345, 654, 4535};

for (int j = 0; j < 4; j++)
{
for ( int i= 0;i < 4-j; i= i+1)

{
if (sayilar[i] < sayilar[i+1])
{
int temp = sayilar[i];
sayilar[i] = sayilar[i+1];
sayilar[i+1] = temp;
}



}

}





for ( int i= 0; i < 5 ; i++)

{

println(sayilar[i]);

}


}

Processing-Dizi sayı yazdırma

void setup()
{


size(400,400);
noLoop();

}

void draw()
{
int[] sayilar = { 432, 322, 345,654,4535 };
for (int i=0; i < 5; i++)

//i=i + 1
{
println(sayilar[i]);
}
}

Processing: draw shape..

void setup()
{

size (400,400);

}

void draw()
{

beginShape();

if (mouseX < width/2)

{
vertex(mouseX, mouseY+20);
vertex(mouseX, 20);
}
else
{
vertex(mouseX/2, mouseY+20/2);
vertex(mouseX/2, 20);
}
vertex(40, 40);
vertex(60, 40);
vertex(60, 60);
vertex(20, 60);
endShape(CLOSE);

}

MARIO AMCA

PROGRAM MARIOVERI ;
VAR i, j, k, t, ls, js, T1, T2, T3, T4, T5 : INTEGER;

mario : ARRAY [ 1..20, 1..20] of INTEGER;

veri, marioson : text;

BEGIN

ASSIGN(veri, 'C:\mario.txt');
RESET(veri);

ASSIGN (marioson, 'C:\mariosonuc.txt');
REWRITE(marioson);

FOR k:= 1 TO 20 DO
FOR t :=1 TO 20 DO
BEGIN
mario[k][t] := 0;
END;
READ(veri, js, ls);


FOR i:= 1 TO ls DO
BEGIN
FOR j:= 1 TO js DO
BEGIN
READ ( veri, mario[i][j]);
WRITE ( marioson, mario[i][j]);
END;

READLN(veri);
WRITELN(marioson);
END;

T1 := 0; T2 :=0; T3:=0; T4:=0; T5:=0;


FOR i := 1 TO ls DO
BEGIN
FOR j := 1 TO js DO
BEGIN
CASE mario[i][j] OF

1: T1 := T1+1;
2: T2 := T2+1;
3: T3 := T3+1;
4: T4 := T4+1;
5: T5 := T5+1;
END;
END;
END;

WRITELN (marioson,'Kac kere 1 kullanilmis:', T1:8);
WRITELN (marioson,'Kac kere 2 kullanilmis:', T2:8);
WRITELN (marioson,'Kac kere 3 kullanilmis:', T3:8);
WRITELN (marioson,'Kac kere 4 kullanilmis:', T4:8);
WRITELN (marioson,'Kac kere 5 kullanilmis:', T5:8);



CLOSE (marioson);

READLN;
END.

MARİOMATRİS

PROGRAM MARIOVERI;
VAR i,j,ls,js,k,t : INTEGER;
mario : ARRAY [0..20,0..20] OF INTEGER;
marioson,veri:TEXT;

BEGIN


ASSIGN(veri,'C:/mariotext.txt');
RESET(veri);

ASSIGN (marioson , 'C:/mariosonuc.txt');
REWRITE(marioson);

FOR k:=1 TO 20 DO
FOR t :=1 TO 20 DO
BEGIN

mario[k][t] :=0;

END;

READ(veri, js, ls);
FOR i:=1 TO ls DO
BEGIN
FOR j:=1 TO js DO
BEGIN
READ(veri, mario[i][j]);
WRITE(marioson, mario[i][j]);
END;
READLN(veri);
WRITELN(marioson);
END;





FOR k:=1 TO 20 DO
BEGIN
FOR t :=1 TO 20 DO
BEGIN

WRITE( marioson,mario[k][t], ' ');

END;

WRITELN(marioson);
END;


READ(veri,i,j);

WRITELN(i);
WRITELN(j);


CLOSE(marioson);
READLN;
END.

matriste alan hesabı (pascal)

PROGRAM alan;

TYPE kat = array[1..30,1..30] of INTEGER;

VAR m:kat;
Xler : array [1..30] of REAL;
Yler : array [1..30] of REAL;

i,j,ls,js,k,s,p :INTEGER;
t,top,t1,t2,t3,t4,t5,t6 : REAL;

girdi,alanlar : text;

BEGIN

ASSIGN(girdi, 'C:/girdi.txt');
RESET(girdi);

ASSIGN(alanlar, 'C:/alanlar.txt');
REWRITE(alanlar);

READ (girdi,ls,js);

WRITELN(alanlar,'sonuclar' );
WRITELN(alanlar,'matris says:' , ls, ',' , js);

FOR i:=1 TO ls DO

BEGIN
FOR j:=1 TO js DO
BEGIN
READ (girdi,m[i,j]);
WRITE (alanlar,m[i,j],' ');
END;

WRITELN(alanlar);
END;





FOR s:= 1 TO ls DO
BEGIN
READ(girdi , Xler[s]);
END;

READLN(girdi);

FOR k:=1 TO js DO
BEGIN
READ(girdi, Yler[k]);
END;

t1:= 0;
t2:= 0;
t3:= 0;
t4:= 0;
t5:= 0;
t6:= 0;

FOR s:= 1 TO ls DO
BEGIN
FOR i:=1 TO js DO
BEGIN
case m[i, s] of
1: t1 := t1 + Xler[i]*Yler[s];
2: t2 := t2 + Xler[i]*Yler[s];
3: t3 := t3 + Xler[i]*Yler[s];
4: t4 := t4 + Xler[i]*Yler[s];
5: t5 := t5 + Xler[i]*Yler[s];
6: t6 := t6 + Xler[i]*Yler[s];
{WRITELN(alanlar ,(Xler[i] * Yler[s]) : 4:2);}
end;

END;
END;

WRITELN(alanlar, 'Duvar alani=', t1:8:2);
WRITELN(alanlar, '2nolu mekan alani=', t2:8:2);
WRITELN(alanlar, '3nolu mekan alani=', t3:8:2);
WRITELN(alanlar, '4nolu mekan alani=', t4:8:2);
WRITELN(alanlar, '5nolu mekan alani=', t5:8:2);
WRITELN(alanlar, '6nolu mekan alani=', t6:8:2);

WRITELN(alanlar, 'Toplam alan=', (t1+t2+t3+t4+t5+t6):8:2);



CLOSE (alanlar);
READLN;
END.

ALANLAR

PROGRAM alan;

Type kat=array[1..30,1..30] of INTEGER;

VAR m : kat;

Xler : array[1..30] of REAL;

Yler : array[1..30] of REAL;

i,j,ls,js,s,p,k:INTEGER;

t,top,t1,t2,t3,t4,t5,t6 :REAL;

girdi,alanlar :text;

BEGIN

ASSIGN (girdi, 'C:\girdiler.txt');

RESET(girdi);

ASSIGN (alanlar, 'C:\alanlar.txt');

REWRITE(alanlar);

READ (girdi, ls, js);

WRITELN(alanlar, 'sonuclar');

WRITELN (alanlar, 'matris sayisi: ',ls,',',js);

FOR i:=1 to ls DO

BEGIN

FOR j:=1 to js DO

BEGIN

READ (girdi,m[i,j]);

WRITE (alanlar, m[i, j]);

END;

WRITELN (alanlar);

END;

FOR s:=1 TO ls DO

BEGIN

READ(girdi, Xler[s])

END ;

READLN(girdi);

FOR k:= 1 TO js DO

BEGIN

READ (girdi, Yler[k]);

END;

FOR s:=1 TO ls DO

BEGIN

FOR i:=1 TO js DO

BEGIN

WRITELN (alanlar, ( Xler[s] * Yler[i]): 4:2);

END;

END;

{

m[1,1] --> 2 --> 3,5 * 2=7

m[1,2] --> 2 --> 3,5* 0,2=0,7

m[1,3] --> 2 --> 3'5*2=7 }

CLOSE (alanlar);

READLN;

END.