Brauche ein Struktogramm bis Morgen

r1200gsadventure · Hält's aus hier Beiträge: 2

Ich muss bis morgen eine Strucktogramm für eines meiner Prrojekte abgeben.
Ich kann aber kein Strucktogramm.
Kann mir einer von euch eins erstellen ich bin sonst geliefert.

Ich muss nur meine Case funktion darstellen.

den quellcode des cases ist folgender

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

var eingabe, ausgabe , m: real;

procedure TForm1.Button1Click(Sender: TObject);
begin
Eingabe:= strtofloat(edit1.text);

case combobox1.itemindex of
   0: m := strtofloat(edit1.Text)/10;
   1: m := strtofloat(edit1.Text)/0.021739130434782608695652173913043/100;
   2: m := strtofloat(edit1.Text)*1.8;
   3: m := strtofloat(edit1.Text)/100*2;
   4: m := strtofloat(edit1.Text)/0.3333333333333333333333333333333333/10;
   5: m := strtofloat(edit1.Text)/0.019230769230769230769230769230769/100;
   6: m := strtofloat(edit1.Text)/100*8;
   7: m := strtofloat(edit1.Text)/100*2.54;
   8: m := strtofloat(edit1.Text)*1000;
   9: m := strtofloat(edit1.Text)*1.9;
  10: m := strtofloat(edit1.Text)*2450;
  11: m := strtofloat(edit1.Text)*0.0022558;
  12: m := strtofloat(edit1.Text)*1609.334;
  13: m := strtofloat(edit1.Text)*1;
  14: m := strtofloat(edit1.Text)/1000000;
  15: m := strtofloat(edit1.Text)/1000;
  16: m := strtofloat(edit1.Text)/1000000000;
  17: m := strtofloat(edit1.Text)*1852;
  18: m := strtofloat(edit1.Text)*1072.896;
  19: m := strtofloat(edit1.Text)*3.7663;
  20: m := strtofloat(edit1.Text)*1852.;
  21: m := strtofloat(edit1.Text)/100*23;
  22: m := strtofloat(edit1.Text)*180;
  23: m := strtofloat(edit1.Text)/100*2/3;
  24: m := strtofloat(edit1.Text)*0.9144;
  25: m := strtofloat(edit1.Text)/100;
end;

case combobox2.itemindex of
   0: edit2.Text := floattostr (m *10);
   1: edit2.Text := floattostr (m *0.021739130434782608695652173913043*100);
   2: edit2.Text := floattostr (m /1.8);
   3: edit2.Text := floattostr (m *100/2);
   4: edit2.Text := floattostr (m *0.3333333333333333333333333333333333*10);
   5: edit2.Text := floattostr (m *0.019230769230769230769230769230769*100);
   6: edit2.Text := floattostr (m *100/8);
   7: edit2.Text := floattostr (m *100/2.54);
   8: edit2.Text := floattostr (m /1000);
   9: edit2.Text := floattostr (m /1.9);
  10: edit2.Text := floattostr (m /2450);
  11: edit2.Text := floattostr (m /0.0022558);
  12: edit2.Text := floattostr (m /1609.334);
  13: edit2.Text := floattostr (m *1);
  14: edit2.Text := floattostr (m *1000000);
  15: edit2.Text := floattostr (m *1000);
  16: edit2.Text := floattostr (m *1000000000);
  17: edit2.Text := floattostr (m /1852);
  18: edit2.Text := floattostr (m /1072.896);
  19: edit2.Text := floattostr (m /3.7663);
  20: edit2.Text := floattostr (m /1852.2);
  21: edit2.Text := floattostr (m *100/23);
  22: edit2.Text := floattostr (m /180);
  23: edit2.Text := floattostr (m *100/2*3);
  24: edit2.Text := floattostr (m /0.9144);
  25: edit2.Text := floattostr (m *100);
  end;
end;

Moderiert von Gausi: Delphi-Tags hinzugefügt

ub60 · Beiträge: 765 Erhaltene Danke: 130

Bitte ändere Deinen Titel in einen sinnvollen Inhalt.
Hilfe brauchen hier fast alle.

Ansonsten zu Deiner Frage: de.wikipedia.org/wik...ktogramm#Fallauswahl
Ist also relativ einfach, da Du kein wirklich großes Programm hast. Die Breite es Diagramms könnte eventuell Probleme bereiten bei Deinen 25 Fällen.
Nimmst Du am Besten eine Tapete quer

ub60

r1200gsadventure · Hält's aus hier Beiträge: 2

Spaß bei Seite mir läuft die Zeit weg und ich brauche eine gute Note.
Kann mir einer Helfen oder nicht???

ub60 · Beiträge: 765 Erhaltene Danke: 130

Ich weiß nicht, ob Du Dir meinen Link überhaupt angesehen hast.
Viel mehr Hilfe wirst Du nicht bekommen. Da steht eigentlich alles.

ub60

Miri · Beiträge: 657 Delphi 3 Prof., Delphi 2005 PE

r1200gsadventure hat folgendes geschrieben:

Spaß bei Seite mir läuft die Zeit weg und ich brauche eine gute Note.
Kann mir einer Helfen oder nicht???

Bravo, ehrlich!
Es hilft ungemein, wenn man von Zeit zu Zeit wenigstens versucht, freundlich zu sein.
Dass du eine gute Note brauchst, hätte dir rein theoretisch wahrscheinlich auch schon früher auffallen können.
Hier kann dir bestimmt so gut wie jeder helfen, aber die wenigsten werden es bei deinem Tonfall wollen!
user profile icon

ub60 hat es versucht, indem er dir einen link gepostet hat, wo genau das behandelt wird, was du wissen wolltest! Und ein klitzekleines bisschen Mitdenken wird ja wohl auch dir möglich sein, oder?!

Ach ja: und zwischen "Macht mir das!" und "Kann mir jemand helfen?!" liegen Welten!!!
Zeig ein bisschen Einsatz, versuch mit Hilfe des Links dein Glück, poste, was du geschafft hast und wo genau du nicht weiterkommst und dann sehen wir weiter!

_________________
Anonymes Eckenkind

Marco D. · Verfasst: Do 07.06.07 15:15

Google mal nach "Struktogramm Editor".

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme