Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Texte invertieren - wie geht das? (https://www.delphipraxis.net/10704-texte-invertieren-wie-geht-das.html)

Curby 23. Okt 2003 17:16


Texte invertieren - wie geht das?
 
Wie kann man ein Unterprogramm schreiben, das einen eingegebenen Text invertiert (als Struktogramm und als Pascal Unterprogramm) (Prozedur und Funktion).


Könnte mir bitte noch jemand erklären, was ein Struktogramm ist.

Mirilin 23. Okt 2003 17:25

Re: Texte invertieren - wie geht das?
 
:hi:


Was bedeutet invertieren, in diesem Zusammenhang?
Den Text rückwärz schreiben, oder zb. schwarzen Hintergrund, Weisse Schrift?

Christian Seehase 23. Okt 2003 17:37

Re: Texte invertieren - wie geht das?
 
Moin Curby,

bei Bei Google suchenStruktogramm solltest Du mal näheres im Internet heraussuchen. (auch unter dem Namen: Bei Google suchenNassi-Schneidermann-Diagramm bekannt).
Es ist ohne Graphiken schwer zu erklären, finde ich.

Kurz zusammengefasst:
Mit einem Struktogramm kann ein Programmablauf dargestellt werden, inclusive Schleifen (for / while / repeat), Verzweigungen (if/case), Unterprogrammaufrufen usw. ohne dass man die Chance hätte Spaghetticode zu produzieren, da ein Struktogramm diese Art Sprünge nicht zulässt.

Phoenix 23. Okt 2003 17:38

Re: Texte invertieren - wie geht das?
 
Zitat:

Zitat von Basiswissen
Das Struktogramm stellt eine von der eingesetzten Programmiersprache und der angestrebten Hardwareplattform unabhängige Planungs- und auch Dokumentationsunterlage dar. Die logische Problemlösung und die dazu notwendigen Ablaufsteuerungen stehen im Vordergrund.

Mit bestimmten Symbolen wird hier also der logische Programmablauf strukturiert in einer Art Diagramm dargestellt. Wie das geht sollte aber in Deinem Informatikbuch stehen.

Hier die Umkehrung:

Delphi-Quellcode:
function Invertiere(input: string): string;
var
   i: integer;
begin
   // ergebnis initialisieren
   result := '';

   // vom Ende der Eingabe bis zum Anfang jeweils einen buchstaben
   // an die ausgabe anhängen
   for i := length(input) downto 1 do
      result := result + input[i];
end;
Achtung: nicht getestet!

Im übrigen finde ich es Unverschämt hier Deine Hausaufgaben machen zu lassen.

Curby 23. Okt 2003 18:28

Re: Texte invertieren - wie geht das?
 
Zitat:

Zitat von Phoenix
Im übrigen finde ich es Unverschämt hier Deine Hausaufgaben machen zu lassen.


Das sind keine Hausaufgaben. Ich bin dabei eine Klausur BERICHTIGUNG anzufertigen, da ich die Klausur verka*** habe, da ich da nicht durchblicke!
Bei mir steht nicht umsonst "Gerade in Delphi reingestolpert".

Außerdem habe ich hier nett gefragt, ob Ihr mir helfen könnt.
Ich bitte freundlich drum. Keiner ist gezwungen!

Also hör bitte mit solchen Unterstellungen auf. Du hast auch mal klein mit Delphi angefangen - oder?! :wink:


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz