[Nicolai1234]

Hallo,
ich habe mich in den letzten Tagen ein wenig intensiver mit den verschiedenen lateinischen Konjugationen beschäftigt. Herausgekommen ist eine Unit, die ein bestimmtes Verb in allen Zeiten, Modi, Leideformen und Personen bilden kann.
Wie ihr alle wisst sieht ein lateinisches Wort i.d.R. so angegeben. Beispiel:

markieren

Code:

capere                       capo                      cepi                       captum
Infinitiv Präsens aktiv  -   1.P.Sg.Präs.Ind.akt.  -   1.P.Sg.Perf.Ind.aktiv  -   Partizip Perfekt Passiv (PPP)

Um ein Verb richtig konjugieren zu konnen, sind - je nach Zeit - alle vier Formen notwenig.

Version [Beta]

daraus entstand folgendes record:

markieren

Delphi-Quellcode:

type TWort = record
    Infinitiv, Praesens, Perfekt, PPP: string;
    end;

Ich hoffe die Funktion des records ist eindeutig

Enstanden sind nun also folgende 12 Funktionen:

zusammenfalten · markieren

Delphi-Quellcode:

function FuturII_Indikativ_aktiv(w:TWort;Person:integer): string;
function FuturII_Indikativ_passiv(w:TWort;Person:integer): string;

function FuturI_Indikativ_aktiv(w:TWort;Person:integer): string;
function FuturI_Indikativ_passiv(w:TWort;Person:integer): string;

function Praesens_Indikativ_aktiv(w:TWort;Person:integer): string;
function Praesens_Indikativ_passiv(w:TWort;Person:integer): string;
function Praesens_Konjunktiv_aktiv(w:TWort;Person:integer): string;
function Praesens_Konjunktiv_passiv(w:TWort;Person:integer): string;

function Imperfekt_Indikativ_aktiv(w:TWort;Person:integer): string;
function Imperfekt_Indikativ_passiv(w:TWort;Person:integer): string;
function Imperfekt_Konjunktiv_aktiv(w:TWort;Person:integer): string;
function Imperfekt_Konjunktiv_passiv(w:TWort;Person:integer): string;

function Perfekt_Indikativ_aktiv(w:TWort;Person:integer): string;
function Perfekt_Indikativ_passiv(w:TWort;Person:integer): string;
function Perfekt_Konjunktiv_aktiv(w:TWort;Person:integer): string;
function Perfekt_Konjunktiv_passiv(w:TWort;Person:integer): string;

function Plusquamperfekt_Indikativ_aktiv(w:TWort;Person:integer): string;
function Plusquamperfekt_Indikativ_passiv(w:TWort;Person:integer): string;
function Plusquamperfekt_Konjunktiv_aktiv(w:TWort;Person:integer): string;
function Plusquamperfekt_Konjunktiv_passiv(w:TWort;Person:integer): string;

Neben dem eigentlich Verb (TWort), benötigen sie auch die Person, für die das Verb gebildet werden soll. Dies erfolgt über ein Integer:

markieren

Code:

1 - 1.P.Sg
2 - 2.P.Sg
3 - 3.P.Sg
4 - 1.P.Pl
5 - 2.P.Pl
6 - 3.P.Pl

So kann man nun relativ einfach Verformen bilden:

zusammenfalten · markieren

Delphi-Quellcode:

[...]
var verb: TWort;

[...]

with verb do
  begin
  infinitiv := 'capere';
  praesens := 'capo';
  perfekt := 'cepi';
  ppp := 'captum';
  end;

Perfekt_Indikativ_Passiv(Verb, 4); gibt also den Wert "capti sumus" zurück.

Neben der a-/e-/i-/gemischt kons.- und der kononsantischen-Konjugation, beherrscht die Unit auf das unregelmäßige Verb "esse". Andere unregelmäßige Verben werden folgen.

So, das wars erstmal, ich wäre über weitere Anregungen sehr froh.

Version [1.0]
So, hier mal ein paar Änderungen, die mir spontan möglich erschienen Very Happy
function wort(InfinitivPraesensAktiv,PraesensAktiv,PerfektAktiv,PPP:string):twort; Das sollte eigentlich selbsterklärend sein. Wie unten erwäht wurde ist es eben wie funtion point(x,y):tpoint.

Dann kommt die "Management-Funktion" Konjugiere:

function konjugiere(Person:integer;Zeit:string;Indikativ,Aktiv: boolean;Verb: TWort): string; Parameter 1:

markieren

Code:

Person: (Eingabe als Integer von 1 bis 6)
1 - 1.P.Sg
2 - 2.P.Sg
3 - 3.P.Sg
4 - 1.P.Pl
5 - 2.P.Pl
6 - 3.P.Pl

Parameter 2:

markieren

Code:

Zeit: (Eingabe erfolgt über einen String, der wie folgt aussehen kann)
"FuturII"
"FuturI"
"Praesens"
"Imperfekt"
"Perfekt"
"Plusquamperfekt"

Parameter 3:

markieren

Code:

true = Indikativ
false = Konjunktiv

Parameter 4:

markieren

Code:

true = Aktiv
false = Passiv

Parameter 5:

markieren

Code:

Verb = TWort - eben das Verb, dass Konjugiert werden soll!
TWort, wie oben erklärt

So gibt der Aufruf konjugiere(4,'FuturII',true,false,wort('amare','amo','amavi','amatum')) "amati erimus" zurück.

Ich hoffe, so konnte ich den umgang ein wenig einfacher machen.
Das PPP beispielsweise kann man dieser "Masterfunktion" nicht gebildet werden. Es wird später bei den Deklinationen folgen, da ich denke, dass es da mehr benötigt wird, als bei den Konjunktionen.

Version [1.0b]
Fehler behoben (gemeldet am 26.02 siehe unten)

Beispielanwendung
Im Anhang ist noch eine Beispielanwenung, sodass man die Funktionen der Unit einfach testen kann. (und natürlich ein Screenshot dazu).


Vielen Dank

wie kriegst du raus ob das Verb auf ere die e- oder die konsonantische Konjugation hat (oder irgendwie so *g*)

du kannst ja auch mal ne Beispielapplikation dazuschreiben, dürfte ja kein Problem sein.

zusätzlich zur einfacheren Verwendung eine Funktion WORT:

markieren

Delphi-Quellcode:

function wort(infinitivpraesensaktiv,1ppraesensindikativaktiv,1pperfektindikativaktiv,ppp:string):twort;
begin
  result.:=;
  result.:=;
  result.:=;
  result.:=; //hier war ich faul ;)
end;

so wie bei function point(x,y):tpoint.

dann würde ich noch ne "Management-Funktion" schreiben, etwa so:
function konjugiere(wort:twort;zeit,person:integer;aktiv,indikativ:boolean);
(PS. meine Lateinnote 5,2 zieht den Zeugnissschnitt auf 1,8 runter <-Schätzungsangaben)

Zitat von ichbins:

wie kriegst du raus ob das Verb auf ere die e- oder die konsonantische Konjugation hat (oder irgendwie so *g*)

Das erkennt man an der 1.P.Sg.Präs.Akt.Ind.
e-Konjukation -> rideo
kons. Konugation: intellego
kurz-i Konjugation: capio

Zitat von ichbins:

du kannst ja auch mal ne Beispielapplikation dazuschreiben, dürfte ja kein Problem sein.

Da bin ich gerade dabei. Das ganze entstand auch dadurch, dass ich mir ein kleines Lernprogramm rund um die lat. Konjugationen basteln möchte.

Zitat von ichbins:

dann würde ich noch ne "Management-Funktion" schreiben, etwa so:
function konjugiere(wort:twort;zeit,person:integer;aktiv,indikativ:boolean);

Ja, das wollte ich auch noch machen, mir fehlt nur noch eine Sinnvolle Idee, die Zeiten zu nummerieren!

Nett, wenn auch nicht gerade eine Meisterleistung in objektorientierter Programmierung . Aber was ist mit den armen Deponentien?

Zitat von Nicolai1605:

Zitat von ichbins:

dann würde ich noch ne "Management-Funktion" schreiben, etwa so:
function konjugiere(wort:twort;zeit,person:integer;aktiv,indikativ:boolean);

Ja, das wollte ich auch noch machen, mir fehlt nur noch eine Sinnvolle Idee, die Zeiten zu nummerieren!

Warum willst du sie denn nummerieren? Deklariere einfach einen eigenen Enum-Typen.

Sind da auch die bes********* Ausnahmen mit eingebaut ?

Zitat von Nils_13:

Sind da auch die bes********* Ausnahmen mit eingebaut ?

Wer lesen kann, ist klar im Vorteil:

Zitat:

Neben der a-/e-/i-/gemischt kons.- und der kononsantischen-Konjugation, beherrscht die Unit auf das unregelmäßige Verb "esse". Andere unregelmäßige Verben werden folgen.

Zitat von Nils_13:

Sind da auch die bes********* Ausnahmen mit eingebaut ?

Welche Art von Ausnahmen denn?

Könnte das mal bitte jemand auf einen Texas Instruments Taschenrechner portieren?

Die Sprache ist voll von Ausnahmen, in jeder Konjunktion. Außerdem mach doch noch die Deklinationen, die sind schwieriger zu lernen.

Zitat von Nils_13:

Die Sprache ist voll von Ausnahmen, in jeder Konjunktion.

Das müsstest du mir mal genauer erklären. Ich muss zugeben, dass ich noch nicht allzu lange Latein habe, aber bis auf esse und posse war bis jetzt alles regelmäßig. Probleme sind vllt. noch Verben ohne aktiv-Form oder solche, die keinen Passiv haben können... Aber das liegt nicht in der Macht der Unit, sondern vielmehr in der des Benutzers. "Ich werde geseint" - das sollte der User selber erkennen.

Zitat:

Außerdem mach doch noch die Deklinationen, die sind schwieriger zu lernen.

hmm, finde ich nicht, die habe ich alle in wenigen Stunden auswendig gelernt. Und ich beherrsche sie so, dass ich sie in wenigen Sekunden "runterrattern" kann.

Nicolai

PS (zu den Deklinationen): Unser ehemaliger Lehrer wollte "homo novus" in allen Kasus in 3 (in Worten: drei) SEkunden aufgesagt bekommen. (jeweils für Singular und Plural) - Sowas prägt!