processing if-else

void setup ()


{

size (400, 400);
background (250);



}

void draw ()
{

fill(250,100);
rect(0,0,400,400);

noFill();
strokeWeight(3);


if ((mouseX<200)&&(mouseY<200))

{
ellipse(mouseX,mouseY,150,100);
}
else if ((mouseX>200)&&(mouseY<200))
{
ellipse(mouseX, mouseY,100,150);
}

else if ((mouseX<200)&&(mouseY>200))
{
ellipse(mouseX, mouseY,100,100);
}

else
{
ellipse(mouseX, mouseY,random (100), random (100));
}


}

Ekranı Dörde Bölme (Processing) & Random

//{PROGRAM adı;}
/*backgroung{0-255};
background(R,G,B);
backgorund(R,G,B,A);*/

//BEGIN
//...
//READLN;
//END.

//REAL --> FLOAT , DOUBLE
//INTEGER --> int

void setup()
{

size (400,400);
background(250);
//noLoop();
}
void draw()
{
//noStroke();
fill(250,50);
rect(0,0,400,400);

noFill();
strokeWeight(3);

if ((mouseX < 200) && (mouseY < 200))
{
ellipse(mouseX,mouseY,150,100);

}
else if((mouseX > 200) && (mouseY < 200))
{
ellipse(mouseX,mouseY,100,150);

}

else if ((mouseX < 200) && (mouseY > 200))

{
ellipse(mouseX,mouseY,100,100);
}

else

{
ellipse(mouseX,mouseY,random(100),random(100));
}

}

processing deneme2

void setup ()


{

size (400, 400);
background (255,200,0);
noLoop();

}

void draw ()
{

for(int i=0;i<8;i++)
{
for(int j=0; j<8;j= j + 1)
{
fill(random(255), i+j*50,0);
rect(i*50,j*50,50,50);
}


}
}

processing deneme1

void setup ()


{

size (400, 400);
background (255,200,0);
}

void draw ()
{

for(int i=0;i<8;i++)
{
for(int j=0; j<8;j= j + 1)
{
fill(i*j*50, i+j*50,0);
rect(i*50,j*50,50,50);
}


}
}

MARIO - MATRIS OLUŞTURMA

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

BEGIN


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

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

FOR k:=0 TO 19 DO
FOR t :=0 TO 19 DO
BEGIN

mario[k][t] :=0;

END;


FOR k:=0 TO 19 DO
BEGIN
FOR t :=0 TO 19 DO
BEGIN

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

END;

WRITELN(marioson);
END;


READ(veri,i,j);

WRITELN(i);
WRITELN(j);


CLOSE(marioson);
READLN;
END.

mariosonuç

program mario;
uses crt;
var i,j: integer;
marioson,veri: TEXT;

begin
clrscr;
assign(veri, 'c:/mario.txt');
reset(veri);

assign(marioson, 'c:/mariosonuc.txt');
rewrite(marioson);

read(veri,i,j);
writeln(i);
writeln(j);
close(marioson);
readln;
end.

mario-matrisle tanim teknigi