LaTeX Forum

\documentclass[12pt,titlepage,
  listof=totoc,listof=flat,
  bibliography=totoc,
  headsepline]{scrartcl}

\documentclass[a4paper,12pt,titlepage,german,liststotoc,bibtotoc,headsepline]{scrartcl}

\usepackage[ngerman]{babel} % deutsche Silbentrennung
\usepackage[utf8]{inputenc} % deutsche Umlaute
\usepackage{ucs}
\usepackage[T1]{fontenc}
\usepackage{graphicx}
 
% ÜBERSCHRIFTEN, ABSTÄNDE, SEITENSTIL
\frenchspacing
\pagestyle{headings}
\usepackage[left=3.5cm, right=3cm, top=2.5cm, bottom=2.5cm]{geometry} % Seitenränder
\usepackage{xcolor}%Textfarbe
%\renewcommand*{\chapterheadstartvskip}{\vspace*{-0.5cm}} % Abstand der Kapitelüberschriften zum oberen Seitenrand reduziert um x
%\usepackage{lmodern} % neue verbesserte Schrifttypen von LaTex
\usepackage{float}%Gleitumgebung für Bilder

% DOKUMENT ZEILENABSTAND
\usepackage{setspace}
%\onehalfspacing

\usepackage{parskip} %Verhindert das Einrücken nach Zeilenabsatz

%MATHE 
\usepackage{amsmath}
\usepackage{amssymb}
\usepackage{amsfonts}
\usepackage{listings} 
\usepackage[framed,numbered,autolinebreaks,useliterate]{mcode} % Matlabcode hinzufügen

\usepackage{tocbasic}
\DeclareNewTOC[% 
   type=snippet,% 
   types=snippets,% 
   float,%Damit kann das Listing gleiten 
   name=Matlab-Code,% 
   listname={Codeverzeichnis}% 
]{lol}%ListOfListings 
\lstloadlanguages{Matlab} 
\lstset{literate=%
  {Ö}{{\"O}}1
  {Ä}{{\"A}}1
  {Ü}{{\"U}}1
  {ß}{{\ss}}2
  {ü}{{\"u}}1
  {ä}{{\"a}}1
  {ö}{{\"o}}1
} % Umlaute in Matlabcode
%\counterwithin{snippet}{section} % Bildbeschriftung 1.1 ... 2.3 usw.

% ANDERES
\usepackage{blindtext}
\usepackage[numbers,square]{natbib} % zum Einbinden von .bib
\usepackage{url} % mit \url{} lassen sich Internetlinks mit Sonderzeichen darstellen
\usepackage{hyperref}
\usepackage{scrpage2}
\pagestyle{scrheadings}
\clearscrheadfoot
\ihead[\headmark]{\headmark} \ohead{Seite \pagemark}
\usepackage{eurosym}%Eurosymbol einfügen mit \EUR{Betrag}
\usepackage[printonlyused]{acronym}%Abkürzungsverzeichniss
\usepackage{csquotes}
\usepackage{chngcntr}

\counterwithin{figure}{section}  % Bildbeschriftung 1.1 ... 2.3 usw.

%\renewcaptionname{ngerman}{\contentsname}{Inhalt}
%\renewcaptionname{ngerman}{\listfigurename}{Abbildungen}
%\renewcaptionname{ngerman}{\listtablename}{Tabellen}
\renewcommand{\refname}{Literaturverzeichnis}
% ZITATE 

\bibliographystyle{natdin}

\begin{snippet}[H]
\begin{lstlisting}
z = x + y
.
.
.
..
.
..
.
.
.
.
\end{lstlisting}
		\caption{Beispiel}
		\label{Beispiel}
\end{snippet}

\usepackage{chngcntr}
\counterwithin{snippet}{section}

\counterwithin{figure}{section} % Bildbeschriftung 1.1 ... 2.3 usw.

\documentclass{scrartcl}
\usepackage{tocbasic}
\DeclareNewTOC[%
	type=snippet,%
	types=snippets,%
	float,%Damit kann das Listing gleiten
	name=Codeschnipsel,%
	listname={Liste der Codeschnipsel}%
]{lol}%ListOfListings
\usepackage{listings}
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage{blindtext}
\begin{document}
\listofsnippets
\blindtext

\begin{snippet}
	\begin{lstlisting}
	  repeat     
    swapped = false
    for i = 1 to length(A) - 1 inclusive do:
      /* if this pair is out of order */
      if A[i-1] > A[i] then
        /* swap them and remember something changed */
        swap( A[i-1], A[i] )
        swapped = true
      end if
    end for
  until not swapped
	\end{lstlisting}
	\caption{bubbleSort}
\end{snippet}

\blindtext[2]
\begin{center}
	\begin{lstlisting}
	  repeat     
    swapped = false
    for i = 1 to length(A) - 1 inclusive do:
      /* if this pair is out of order */
      if A[i-1] > A[i] then
        /* swap them and remember something changed */
        swap( A[i-1], A[i] )
        swapped = true
      end if
    end for
  until not swapped
	  repeat     
    swapped = false
    for i = 1 to length(A) - 1 inclusive do:
      /* if this pair is out of order */
      if A[i-1] > A[i] then
        /* swap them and remember something changed */
        swap( A[i-1], A[i] )
        swapped = true
      end if
    end for
  until not swapped
	  repeat     
    swapped = false
    for i = 1 to length(A) - 1 inclusive do:
      /* if this pair is out of order */
      if A[i-1] > A[i] then
        /* swap them and remember something changed */
        swap( A[i-1], A[i] )
        swapped = true
      end if
    end for
  until not swapped
	  repeat     
    swapped = false
    for i = 1 to length(A) - 1 inclusive do:
      /* if this pair is out of order */
      if A[i-1] > A[i] then
        /* swap them and remember something changed */
        swap( A[i-1], A[i] )
        swapped = true
      end if
    end for
  until not swapped
	  repeat     
    swapped = false
    for i = 1 to length(A) - 1 inclusive do:
      /* if this pair is out of order */
      if A[i-1] > A[i] then
        /* swap them and remember something changed */
        swap( A[i-1], A[i] )
        swapped = true
      end if
    end for
  until not swapped
	  repeat     
    swapped = false
    for i = 1 to length(A) - 1 inclusive do:
      /* if this pair is out of order */
      if A[i-1] > A[i] then
        /* swap them and remember something changed */
        swap( A[i-1], A[i] )
        swapped = true
      end if
    end for
  until not swapped
	  repeat     
    swapped = false
    for i = 1 to length(A) - 1 inclusive do:
      /* if this pair is out of order */
      if A[i-1] > A[i] then
        /* swap them and remember something changed */
        swap( A[i-1], A[i] )
        swapped = true
      end if
    end for
  until not swapped
	\end{lstlisting}
	\captionof{snippet}{ein paar mal bubblesort}
\end{center}
\end{document}

\begin{figure} 
\begin{lstlisting} 
Matlab ist toll % und Latex auch 
\end{lstlisting} 
      \caption{Matlab ist toll} 
      \label{Mit} 
\end{figure}