başka faydalı adresler

http://www.biothing.org/wiki/doku.php?id=home

SIGGRAPH-SEMPOZYUMU:
http://www.siggraph.org/s2011/for_submitters/art-papers

faydalı bağlantılardan bazıları..

http://processing.org
http://modelab.nu/
http://formandcode.com/
http://www.openprocessing.org/
http://www.codeproject.com/KB/architecture/
http://bocoup.com/processing-js/docs/index.php
http://www.creativeapplications.net/processing/the-afterparty-processing/
http://www.digitalcrafting.dk/
http://www.processingblogs.org/

AD: Programming Cultures: Architecture, Art and Science in the Age of Software Development (ITU kutuphanesi elektronik kaynaklardan ulaşılabilir)

Matris 1-15; II.Yöntem

program dizi4;

var i,j,k : integer;



begin

for j:= 1 to 15 do
begin
write(j:3);

if j mod 5=0 then
writeln;
end;


readln;
end.

birdenonbeşekadar

PROGRAM bironbes;
VAR j: INTEGER;
BEGIN
..for j:=1 to 15 do
....begin
......if j mod 5=0 then
........begin
.........write(j:2);
.........writeln;
........end

......else
.......write(j:2);


......end;


READLN;
END.

Matris_1'den 15'e..

program dizi4;

var i,j,k : integer;



begin
k:=1;

for i := 1 to 3 do

begin
for j:= 1 to 5 do
begin
write(k:3);
k:=k+1;
end;
writeln;

end;

readln;
end.

12345

PROGRAM biriki;
VAR i,j: INTEGER;
BEGIN
j:=j+1;
for i:=1 to 3 do

..begin
.....for j:=1 to 5 do
.......begin
........write(j );
.......end;
..writeln;
..end;

READLN;
END.

dizi3

program diziler;

Var i,j, a: integer;
sira:ARRAY[0..4] of integer;


begin
writeln('sayi giriniz');


for j := 0 to 4 do

begin
readln(sira[j]);
end;

for j := 4 downto 0 do

begin
writeln('dizinin', j, 'inci elemani:', sira[j]);
end;


readln;
end.

diziler_sayı yazdırma

PROGRAM diziler2;

VAR i,j:integer;

SIRA : ARRAY [0..4] of integer;

BEGIN
writeln ('bes tane tam say girin');


for i:=0 to 4 do

begin



READLN(SIRA[i]);

end;

for i:=4 downto 0 do

begin
writeln('SIRA= ', SIRA[i]);

end;





READLN;

END.

Diziler_Downto

program diziler;

Var i,j: integer;
dizi:ARRAY[0..7] of integer;
a: integer;

begin

for i := 0 to 7 do

begin
dizi[i] := i*10;
end;

for j:= 0 to 7 do
writeln(dizi[j]:6);

for j:= 7 downto 0 do
writeln(dizi[j]:6);




readln;
end.

diziler1

PROGRAM diziler1;

VAR i:integer;

dizi : ARRAY [0..7] of integer;

BEGIN

for i:=0 to 7 do

begin

dizi[i] := i*10;

end;

WRITELN (dizi[0]:6);
WRITELN (dizi[1]:6);
WRITELN (dizi[2]:6);
WRITELN (dizi[3]:6);
WRITELN (dizi[4]:6);
WRITELN (dizi[5]:6);
WRITELN (dizi[6]:6);
WRITELN (dizi[7]:6);

READLN;

END.

mod'suz katsayi programi

program bolunme;

var i,a,b,c,d:integer;

begin

writeln('Ust sayi siniri kac olsun?');
readln(b);

Writeln('Kacin katlari bulunsun?');
readln(d);

c:=b div d;

for i:=1 to b do
begin
for a:=1 to c do
begin
if d*a=i then Writeln(i);
end;
end;
readln;

end.

LONGINT

PROGRAM repeat1;
USES CRT;
var i,toplam,a : LONGINT;


BEGIN

WRITELN('BIR TAM SAYI GIRINIZ ');
READLN(a);
i:=0;
toplam:=0;
CLRSCR;

REPEAT
IF i MOD 5 = 0 THEN

BEGIN
toplam:=toplam+i;
writeln(i);
END;
i:=i +1;

UNTIL i>a;

WRITELN (toplam);


READLN;
END.

5 kasım- repeat*until

program deneme1;
uses crt;
var i, toplam, toplam2, toplam3: integer;

begin
clrscr;
i:=0;
toplam:=0;
toplam2:=0;
toplam3:=0;

repeat
if i mod 5= 0 then

begin
toplam:=toplam+i;
end;

if i mod 7= 0 then

begin
toplam2:=toplam2+i;
end;

if i mod 3= 0 then

begin
toplam3:=toplam3+i;
end;


i:= i+1;
until i>50;
writeln(toplam);
writeln('7 nin katlarinin toplami: ', toplam2);
writeln('3 un katlarinin toplami:', toplam3);

readln;
end.

50'ye kadar sayılardan 5'in katlarının, 3'ün katlarının, 7'nin katarının ayrı ayrı toplamı - while ile

PROGRAM deneme5;
USES CRT;
VAR i, TOPLAM!, TOPLAM2, TOPLAM^3 : INTEGER;

BEGIN
CLRSCR;
i:=0;
TOPLAM1 := 0;
TOPLAM2 := 0;
TOPLAM3 := 0;


WHILE i < 50 DO
BEGIN

IF i MOD 5 = 0 THEN
BEGIN
TOPLAM1 := TOPLAM1 + i;
END;

IF i MOD 3 = 0 THEN
BEGIN
TOPLAM2 := TOPLAM2 + i;
END;

IF i MOD 7 = 0 THEN
BEGIN
TOPLAM3 := TOPLAM3 + i;
END;
i = i + 1;
END;

WRITELN (‘ BESIN KATLARININ TOPLAMI = ‘, TOPLAM1);
WRITELN (‘ UCUN KATLARININ TOPLAMI = ‘, TOPLAM2);
WRITELN (‘ YEDININ KATLARININ TOPLAMI = ‘, TOPLAM3);

READLN;
END;

50'ye kadar 2'şer 2'şer artan olan sayılardan 5'in katları olanların toplanması - while kullanılarak

PROGRAM deneme4;
USES CRT;
VAR i : INTEGER;

BEGIN
CLRSCR;
i:=0;

WHILE i < 50 DO
BEGIN
IF i MOD 5 = 0 THEN
BEGIN
WRITELN(i);
END;
i = i + 2;

END;

READLN;
END.

50'ye kadar sayılardan 5'in katlarının toplamı - for ile

PROGRAM deneme3;
{CONST}
USES CRT;
VAR i,toplam: INTEGER;

BEGIN
CLRSCR;
toplam := 0;

FOR i := 1 TO 50 DO
BEGIN
IF ( i MOD 5 = 0) THEN
BEGIN
WRITELN(i);
toplam := toplam + i;
END;
END;

WRITELN(toplam);

READLN;
END.

50'ye kadar sayıların ekrana yazdırılması - for ile

PROGRAM deneme1;
USES CRT;
VAR i: INTEGER;

BEGIN
CLRSCR;

FOR i := 1 TO 50 DO
WRITELN(i);

READLN;
END;