program main; uses crt; const i : integer = 0; j : integer = 0; var sayi, k, count : integer; begin write('sayi giriniz: '); readln(sayi); for i:=0 to sayi do begin for j:=0 to i do begin write('*'); end; writeln; end; readkey; end.
ekran görüntüsü:
*
**
***
****
program main; uses crt; const i : integer = 0; j : integer = 0; k : integer = 0; var sayi, count : integer; begin write('sayi giriniz: '); readln(sayi); for i:=sayi downto 1 do begin for k:=1 to i-1 do begin write(' '); end; for j:=0 to sayi-i do begin write('*'); end; writeln; end; readkey; end.
ekran görüntüsü:
*
**
***
****
program main; uses crt; const i : integer = 0; j : integer = 0; var sayi, k, count : integer; begin write('sayi giriniz: '); readln(sayi); for i:=sayi downto 1 do begin for k:=1 to i do begin write('*'); end; writeln; end; readkey; end. ekran görüntüsü:
*****
****
***
**
program main; uses crt; const i : integer = 0; j : integer = 0; var sayi, k, count : integer; begin write('sayi giriniz: '); readln(sayi); for i:=0 to sayi do begin for k:=0 to i-1 do begin write(' '); end; for k:=1 to sayi-i do begin write('*'); end; writeln; end; readkey; end.
ekran görüntüsü:
*****
****
***
**
program main; uses crt; const i : integer = 0; j : integer = 0; k : integer = 0; m : integer = 0; t : integer = 0; w : integer = 0; r : integer = 0; x : integer = 0; var sayi, bosluk : integer; begin write('sayi giriniz: '); readln(sayi); writeln; sayi := trunc(sayi/2); bosluk := sayi-1; for i:=0 to sayi do begin for j:=bosluk downto i do begin write(' '); end; for k:=1 to i do begin write('*'); end; for t:=0 to i do begin write('*'); end; writeln; end; for w:=0 to sayi-1 do begin for r:=0 to w do begin write(' '); end; for m:=1 to sayi-w do begin write('*'); end; for x:=sayi-w downto 2 do begin write('*'); end; writeln; end; readkey; end.
ekran görüntüsü:
*
***
*****
******
*****
***
*
program main; uses crt; const c : integer = 1; var a, b, m, s : integer; begin writeln('*'); for c:=0 to 9 do { kaç tane artan olacağı } begin for a:=1 to c-1 do { satır atlayan } begin for b:=0 to a-1 do { boşluk koyan } begin write(' '); end; writeln('*'); end; inc(a); inc(b); for s:=1 to a-1 do begin for m:=b-1 downto 1 do begin write(' '); end; dec(b); writeln('*'); end; end; readkey; end.
ekran görüntüsü:
*
*
*
*
*
*
son olarakta kendim ugraşıp yaptıgım kare yapma var
program main; uses crt; const i : integer = 1; j : integer = 1; var sayi, k, count : integer; begin write('sayi giriniz: '); readln(sayi); for i:=1 to sayi do begin for j:=1 to i do begin write('*'); end; writeln; end; readkey; end.
ekran görüntüsü:
****
****
****
benden bu kadar bi dahaki programlarda görüşürüz
ekran görüntüsü:
*
**
***
****
program main; uses crt; const i : integer = 0; j : integer = 0; k : integer = 0; var sayi, count : integer; begin write('sayi giriniz: '); readln(sayi); for i:=sayi downto 1 do begin for k:=1 to i-1 do begin write(' '); end; for j:=0 to sayi-i do begin write('*'); end; writeln; end; readkey; end.
ekran görüntüsü:
*
**
***
****
program main; uses crt; const i : integer = 0; j : integer = 0; var sayi, k, count : integer; begin write('sayi giriniz: '); readln(sayi); for i:=sayi downto 1 do begin for k:=1 to i do begin write('*'); end; writeln; end; readkey; end. ekran görüntüsü:
*****
****
***
**
program main; uses crt; const i : integer = 0; j : integer = 0; var sayi, k, count : integer; begin write('sayi giriniz: '); readln(sayi); for i:=0 to sayi do begin for k:=0 to i-1 do begin write(' '); end; for k:=1 to sayi-i do begin write('*'); end; writeln; end; readkey; end.
ekran görüntüsü:
*****
****
***
**
program main; uses crt; const i : integer = 0; j : integer = 0; k : integer = 0; m : integer = 0; t : integer = 0; w : integer = 0; r : integer = 0; x : integer = 0; var sayi, bosluk : integer; begin write('sayi giriniz: '); readln(sayi); writeln; sayi := trunc(sayi/2); bosluk := sayi-1; for i:=0 to sayi do begin for j:=bosluk downto i do begin write(' '); end; for k:=1 to i do begin write('*'); end; for t:=0 to i do begin write('*'); end; writeln; end; for w:=0 to sayi-1 do begin for r:=0 to w do begin write(' '); end; for m:=1 to sayi-w do begin write('*'); end; for x:=sayi-w downto 2 do begin write('*'); end; writeln; end; readkey; end.
ekran görüntüsü:
*
***
*****
******
*****
***
*
program main; uses crt; const c : integer = 1; var a, b, m, s : integer; begin writeln('*'); for c:=0 to 9 do { kaç tane artan olacağı } begin for a:=1 to c-1 do { satır atlayan } begin for b:=0 to a-1 do { boşluk koyan } begin write(' '); end; writeln('*'); end; inc(a); inc(b); for s:=1 to a-1 do begin for m:=b-1 downto 1 do begin write(' '); end; dec(b); writeln('*'); end; end; readkey; end.
ekran görüntüsü:
*
*
*
*
*
*
son olarakta kendim ugraşıp yaptıgım kare yapma var
program main; uses crt; const i : integer = 1; j : integer = 1; var sayi, k, count : integer; begin write('sayi giriniz: '); readln(sayi); for i:=1 to sayi do begin for j:=1 to i do begin write('*'); end; writeln; end; readkey; end.
ekran görüntüsü:
****
****
****
benden bu kadar bi dahaki programlarda görüşürüz
Son düzenleme:
