Lambang Nazi dan Swastika

Lambang Nazi dan Swastika

Berawal dari sebuah Tugas Algoritma dan pemograman yang di haruskan untuk membuat sebuah program yang bisa menampilkan lambang dan kebetulan saya menampilkan Nazi dan Swastika karena lambang ini sudah tak asing lagi,,,,.....akhirnya dengan sebuah perjuangan mencari petunjuk dari blog" dan google dan temen2 yang sudah ahli,,dapat juga menyelesaikan Tugasalgoritma dan pemograman ini. :D .




Lambang Swastika


uses crt;
var
i,y,z,n:integer;
begin
clrscr;
  write('masukkan nilai N: ');readln(n);
  if n mod 2=1 then
  begin
    clrscr;
    y:= ( n mod 2)+(n div 2);
    gotoxy(y,1);
    for i:= y to n do
       begin
       write('*');
       end;

    gotoxy(1,y);
    for i:= 1 to n do
       begin
       write('*');
       end;

    gotoxy(1,n);
    for i:= 1 to y do
       begin
       write('*');
       end;

    z:=1;
    repeat
    gotoxy(1,z);
        begin
        write('*');
        z:=z+1;
        end;
    until z=y;


    z:=1;
    repeat
    gotoxy(y,z);
        begin
        write('*');
        z:=z+1;
        end;
    until z=n;

    repeat
    gotoxy(n,y);
        begin
        write('*');
        y:=y+1;
        end;
    until y=n+1;
    n:=n+2;
    gotoxy(1,n);
    write('Hasil untuk N=',n-2);
    end
  else
  write('masukkan harus angka ganjil');
  readln;
  end.


 Lambang Nazi

uses crt;
var
x,y,n:integer;
begin
clrscr;
   write('Masukkan nilai N: ');readln(n);
   if n mod 2 = 1 then
      begin
        clrscr;
        y:=1;
        x:=n;

        repeat
        gotoxy(x,y);
          begin
          write('*');
          x:=x+1;
          y:=y+1;
          end;
          until y=n-(n div 2);

        x:=n-(n div 2);
        y:=x;
        repeat
        gotoxy(x,y);
          begin
          write('*');
          x:=x+1;
          y:=y+1;
          end;
          until y=n+(n div 2);

        x:=n-(n div 2);
        y:=n+(n div 2);
        repeat
        gotoxy(x,y);
          begin
          write('*');
          x:=x+1;
          y:=y+1;
          end;
          until y=(n+(n div 2))+(n div 2)+1;

        x:=n-(n div 2);
        y:=x;
        repeat
        gotoxy(x,y);
          begin
          write('*');
          x:=x-1;
          y:=y+1;
          end;
        until y=n+1;

        x:=n+( n div 2);
        y:=n-(n div 2);
        repeat
        gotoxy(x,y);
        begin
        write('*');
        x:=x-1;
        y:=y+1;
        end;
        until y=n+(n div 2);

        x:=(n+(n div 2))+(n div 2);
        y:=n;
        repeat
        gotoxy(x,y);
        begin
        write('*');
        x:=x-1;
        y:=y+1;
        end;
        until y=n+(n div 2)+1;

        x:=1;
        y:=n*2;
        gotoxy(x,y);
        begin
        write('Hasil untuk N= ',n);
        end;
        end
   else
   write('masukkan harus angka ganjil');
        readln;
        end.