NIKI der Roboter, Hilfe

Hallo zusammen :)

An alle, die sich ein bisschen mit programieren auskennen. Ich habe diesen Befehl beim Programierspiel "NIKI der Roboter" eingegeben:

IF vorne_frei THEN
BEGIN
 WHILE vorne_frei DO vor;
END;

IF NOT vorne_frei THEN
BEGIN
 WHILE NOT vorne_frei DO drehe_links;
END;

nun möchte ich wissen, wie ich machen kann, dass der Befehl sich immer und immer wieder wiederholt, sodass ich nicht auf den grünen Pfeil klicken muss.

Danke im Vorraus MBudgetOwn

2 Antworten

nevergood

06.10.2016, 06:45

Hallo! :)

Du musst, wie schon hier erwähnt worden ist, eine WHILE {} DO {Dein Programm} schreiben.

In die Bedingung kannst du true setzen, aber dann hört das Programm nicht auf. Wenn am Ziel eine Markierung liegt, kann das eine Abbruchbedingung für die Schleife darstellen.

PerfectMuffin

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

30.01.2014, 13:04

Endlosschleifen kriegst du hin, indem du eine Bedingung nimmst, die immer wahr ist?

procoder42

30.01.2014, 13:17

While true vornehmlich , da erkennt man beim lesen des Programms schon, das es eine Endlosschleife werden soll

PerfectMuffin

30.01.2014, 13:18

@procoder42

Sollte gehen, ich kenne das Programm da aber nicht.

procoder42

30.01.2014, 13:47

@PerfectMuffin

Das Programm ist an Pascal angelehnt

MBudgetOwn

Fragesteller

30.01.2014, 15:03

@procoder42

ja aber ich möchte ein labyrinth machen und das auto wir automatisch durchlaufen

procoder42

30.01.2014, 15:31

@MBudgetOwn

Dann wäre es aber klüger nur so lange zu laufen , bis die Endposition erreicht wurde

MBudgetOwn

Fragesteller

30.01.2014, 16:09

@procoder42

mach ich ja auch

die befehle: wenn es vorne frei ist dann gehe solange es vorne frei ist nach vorne. wenn es vorne nicht frei ist, dann solange es nicht frei ist soll er nach links drehen.

ich woll eigentlich nur dass der befehl von forne losgeht :)

Hi, habe in Lua einen Code, der in eine while Schleife soll:

while wait() do
  // Code
end

Nun will ich diese Unterbrechen, sobald etwas wahr wird!

while wait() do
  // Code
  if example then
    break
  end
end

funktioniert jedoch nicht, die Schleife läuft weiter!

...zur Frage

"Loop ohne Do" Hilfe!?

Private Sub CommandButton1_Click()

Dim a, b, c, d As Integer

a = 0

Do While Tabelle1.Cells(6, 3 + r) <> ""

b = Tabelle1.Cells(6, 3 + r)

d = Tabelle1.Cells(6, 3 + r + 1)

If b = "A" Or "a" Or "Ä" Or "ä" Then

c = 1

If b = "B" Or "b" Then

c = 2

If b = "G" Or "g" Then

c = 3

If b = "D" Or "d" Then

c = 4

If b = "E" Or "e" Then

c = 5

If b = "U" Or "u" Or "Ü" Or "ü" Or "V" Or "v" Or "W" Or "w" Then

c = 6

If b = "Z" Or "z" Then

c = 7

If b = "H" Or "h" Then

c = 8

If b = "C" Or "c" And d = "H" Or "h" Then

c = 8

End If

Tabelle1.Cells(7, 3 + r) = c

r = r + 1

Loop

End Sub

--------------------------------------------------------------------------------------------------------------------------------------

Es ist nochnicht fertig aber ich wollte es testen und weiß nicht was ich falsch gemacht habe... kann mir wer helfen?

...zur Frage

'...' erwartet aber '...' gefunden?

Hallo an allen,

zuerst den Code:

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}

var
  f, alter:Integer;
  durchschnitt1, durchschnitt2, durchschnitt3: Double;
begin
  WriteLn('Morgenschicht:');
  WriteLn;
  for f:=1 to 5 do
  begin
    Write('Alter des Schülers: ');
    ReadLn(alter);
    durchschnitt1 := durchschnitt1 + alter;
  end;
  durchschnitt1 := Round((durchschnitt1 / 5),2);
  WriteLn;
  WriteLn;
  WriteLn('Spätschicht:');
  WriteLn;
  for f:=1 to 6 do
  begin
    Write('Alter des Schülers: ');
    ReadLn(alter);
    durchschnitt2 := durchschnitt2 + alter;
  end;
  durchschnitt2 := Round((durchschnitt2 / 6),2);
  WriteLn;
  WriteLn;
  WriteLn('Nachtschicht:');
  WriteLn;
  for f:=1 to 11 do
  begin
    Write('Alter des Schülers: ');
    ReadLn(alter);
    durchschnitt3 := durchschnitt3 + alter;
  end;
  durchschnitt3 := Round((durchschnitt3 / 11),2);
  WriteLn;
  WriteLn;
  WriteLn('Das Durchschnittsalter der Schüler der Morgenschicht beträgt: ', durchschnitt1, '.');
  WriteLn('Das Durchschnittsalter der Schüler der Spätschicht beträgt: ', durchschnitt2, '.');
  WriteLn('Das Durchschnittsalter der Schüler der Nachtschicht beträgt: ', durchschnitt3, '.');
  if (durchschnitt1 > durchschnitt2) and (durchschnitt1 > durchschnitt3) then
  begin
    Write('Die Morgenschicht hat das höchste Durchschnittsalter.');
  end
  else
  begin
    if durchschnitt2 > durchschnitt3 then
    begin
      Write('Die Spätschicht hat das höchste Durchschnittsalter.');
    end
    else
    if durchschnitt3>durchschnitt1 then
    begin
      Write('Die Nachtschicht hat das höchste Durchschnittsalter.');
    end;
  end;
  ReadLn;
end.

Ich habe aber folgende Fehlermeldung bekommen:

1) [dcc32 Fehler] Project1.dpr(19): E2029 ')' erwartet, aber ',' gefunden.

2) [dcc32 Fehler] Project1.dpr(19): E2029 ')' erwartet, aber ',' gefunden.

Diese Meldungen sind für mich nicht logisch. Was habe ich falsch gemacht bzw. wie kann ich diese Fehler lösen?

Danke und Grüße

...zur Frage

Hat jemand dafür die Lösung von dem Niki der Roboter Arbeitsfeld?

http://www.uwe-home.net/schule/fach/if/niki/aufg_lmuell.htm Hat jemand dafür die Lösung?

...zur Frage

Warum funktioniert dieses Shellprogramm nicht?

Als Parameter bekommt das Programm eine Wordliste mit Wörtern, die geprüft werden und eine Liste mit md5 hashes. Es geht darum, die Anzahl der gleichen Passwörter Zeile für Zeile herauszufinden. Das Programm lässt sich ausführen, doch zeigt immer eine Null für passende Wörter. Vermutlich liegt es in der if Bedingung am string Vergleich. Danke im Voraus. ( Anfänge sind groß geschrieben. Einfach klein denken.)

#!/bin/sh
Echo „Hits,password,md5 hash“
While read line;
Do
 CTR=0
 While read line2;
 Do
 If [ „$line | md5sum“ = „$line2“ ];then
 CTR=$((CTR+1))
 If [ „$CTR“ -e 1 ];then
 Echo $line
 Fi
 Fi
 Done < $2
 Echo -n $CTR
 Echo -n „ $line „
 Echo -n $line | md5sum
Done < $1

...zur Frage

Wie muss ich dieses Pascal-Programm umschreiben?

v: Verschiebezahl,
b: Originalbuchstabe
p: Position im ASCII-Alphabet
c: Chiffrierzeichen
ctext: chiffrierter Text
otext: Originaltext

ctext := ‘‘
v := strtoint(EVerschiebezahl.text);
otext := EOriginal.text;

for i := 1 to length(otext) do
begin
  b := otext[i];
  b := upcase(b);
  p := ord(b);
  p := p + v;

  if p > 90 then p := p - 26;

  c := chr(p);
  ctext := ctext + c;
end;

ECode.Text := ctext;

Ich muss es so verändern, dass man den ausgebenen Text wieder dechiffrieren kann. Reicht es, das Minus bei if durch ein Plus zu ersetzen?

...zur Frage

Wie kann ich in C# mit Pfeiltasten die Cursor-Position verändern?

Guten Tag,

ich will, dass, wenn ich in einer Konsolenanwendung die jeweiligen Pfeiltasten drücke, sich dann auch die Cursor-Position ändert.

Ich habe es gerade so:

Console.SetWindowSize(80, 24);
Console.SetBufferSize(80, 24);
Console.SetCursorPosition(0, 0);
Console.Clear();

int down = 0;
int up = 0;
int left = 0;
int right = 0;

do
{
  ConsoleKeyInfo Taste;
  Taste = Console.ReadKey(false);

  if (Taste.Key == ConsoleKey.DownArrow)
  {
    do
    {
      down++;
      Console.SetCursorPosition(0, down);
    }
    while (true == false);
  }

  if (Taste.Key == ConsoleKey.UpArrow)
  {
    do
    {
      up--;
      Console.SetCursorPosition(0, up);
    }
    while (true == false);
  }

  if (Taste.Key == ConsoleKey.RightArrow)
  {
    do
    {
      right++;
      Console.SetCursorPosition(right, 0);
    }
    while (true == false);
  }

  if (Taste.Key == ConsoleKey.LeftArrow)
  {
    do
    {
      left--;
      Console.SetCursorPosition(left, 0);
    }
    while (true == false);
  }
}
while (true == true);

Das Problem aber ist: Wenn ich nach unten gehe und dann nach rechts gehen will, dass der Cursor wieder an den Anfang springt.

Was auch nicht funktioniert ist: Wenn ich nach links oder nach oben gehen will. Weil das -- nicht so funktioniert, wie es soll.

...zur Frage

notenauswertung in c++? :S

Aufgabenstellung: Notendurchschnitt angeben anzahl der jeweiligen noten angeben(notenspiegel) kann mir einer von euch helfen? //--------------------------------------------------------------------------- int main(int argc, char* argv[])

{

    char note;

    int anzahl = 0;

    clrscr();
    cout<<"Notenauswertung -Klasse - Autor - Datum\n";
    cout<<"Die Noten als Zahl 1..6 eingeben: \n";


    //---------------------Wiederholschleife------------------------------
    do
    {
            note = getche();
            if (note == '1')   cout<<"-sehr gut             \n";
            if (note == '2')   cout<<"-gut                  \n";
            if (note == '3')   cout<<"-befriedigend        \n";
            if (note == '4')   cout<<"-ausreichend         \n";
            if (note == '5')   cout<<"-mangelhaft          \n";
            if (note == '6')   cout<<"-ungenuegend         \n";
            if ((note<'1')||(note>'6')) cout<<"-Falsche eingabe"<<endl;
    }
   while (note != 27);

    //--------------Noten durchschnitt berechnen---------------------------

    {

    }

    // getch();
    return 0;

}

...zur Frage

In einem bestimmten Intervall alle Primzahlen ausgeben?

Hallo liebe Community ich habe folgendes Problem, ich habe die Aufgabe ein Programm zu schreiben, welches mir aus dem Intervall von 20-30 ausgibt wie viele Primzahlen dort enthalten sind und welche es sind. Anstatt mir aber, 2 als Anzahl und 23 und 29 als Primzahlen auszugeben, gibt mir das Programm 77 als Anzahl und dann ne Menge Zahlen aus. Ich verstehe jedoch nicht warum.

Quellcode:

procedure TForm1.StartClick(Sender: TObject);
var
  A, B, C, ANFANGS_WERT, END_WERT, ANZAHL : Cardinal;
  IST_PRIMZAHL : Boolean;
  PRIM_FELD : array[1..100] of Cardinal;
begin
  ANZAHL := 0;
  ANFANGS_WERT := StrToInt(Eingabe1.Text);
  END_WERT := StrToInt(Eingabe2.Text);
  for A := ANFANGS_WERT  to END_WERT do
  begin
    IST_PRIMZAHL := true;
    for B := 2 to (A div 2) do
    begin
      C :=  A mod B;
      if C = 0 then
      begin
        IST_PRIMZAHL := false;
      end
      else if IST_PRIMZAHL = true then
      begin
        Inc(ANZAHL);
        PRIM_FELD[ANZAHL] := A
      end
      else IST_PRIMZAHL := true;
    end;
  end;
  Ausgabe.items.add(' Primzahlen: ' + IntToStr(ANZAHL));
  for A := 1 to ANZAHL do
    begin
      Ausgabe.Items.Add(IntToStr(PRIM_FELD[A]));
    end;
end;

...zur Frage

MS Excel Makro Pausieren ohne Excel komplett zu pausieren?

Hi, Ich arbeite an einer art "Schiffe Versenken" für MS Excel und arbeite grade daran, dass man auf Zeit Spielen kann. dafür brauche ich logischerweise nen Timer, der die eingestellte Zeit Herunterzählt und das Spiel Beendet. Das war kein Großes Problem für mich, bis auf eine Sache: Das Makro funktioniert zwar, aber ich habe keinen Befehl gefunden der es zulässt, dass man, während der Timer läuft, noch das Spielfeld benutzen kann, da auch Excel pausiert wird und keine Änderung an den Zellen zulässt. Kennt einer von euch einen Befehl, bei dem nur das Makro angehalten wird und nicht das komplette Programm? Mein Makro sieht bis jetzt so aus:

Sub Schaltfläche1_Klicken()

Dim SE As Integer

Dim MN As Integer

Dim I As Integer

I = 0

Do While I = 0

I = 0

SE = Sheets("Eigene Flotte").Range("O26").Value

MN = Sheets("Eigene Flotte").Range("N26").Value

If SE > 0 Then

SE = SE - 1

Sheets("Eigene Flotte").Range("O26").Value = SE

Else

If MN > 0 Then

MN = MN - 1

SE = 59

(hier soll der Befehl zum Pausieren hin)

Sheets("Eigene Flotte").Range("O28").Value = SE

Sheets("Eigene Flotte").Range("N26").Value = MN

Else

Range("A1:L30").Value = ""

I = 1

End If

Loop

End Sub

...zur Frage

Target.Address Fehlermeldung Laufzeitfehler "424": Objekt erforderlich?

Hallo,

ich verschiedene Befehle mit VBA realisieren, um eine Auswahlliste anzupassen. Zum einen sollen Zellen ausgeblendet werden, wenn eine bestimmte Zelle leer ist und daher ein ganzer Teil der Liste entfallen kann. Der Befehl sieht folgendermaßen aus:

Sub HdlZellenVerbergen()

If Target.Address = "$C$9" Then

If C9 = "" Then

Rows("164:195").Hidden = True

Else

Rows("164:195").Hidden = False

End If

End Sub

Da ich mich nun Hals über Kopf in VBA geschmissen habe und schon einige Male Internetrecherche betrieben habe, weiß ich nicht wo der Fehler liegt, da mir hier die Erfahrung fehlt. Der Fehler lautet wie in der Überschrift angegeben. Was muss ich machen, damit das ganze nun funktioniert.

Ein ähnliches Problem erwarte ich dann bei folgendem Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$8" Then

If [C8] = "x" Then [D22] = "y"

End If

End Sub

Auch hier wäre eine Hilfe super.

Vielen Dank im Voraus.

...zur Frage

discord.py Nur bestimmte Personen Befehl ausführen lassen?

Hallo,

habe mir gerade einen Discord Bot erstellt. Plötzlich mein erstes Problem mit diesem Code:

@client.event
@asyncio.coroutine
async def on_message(message):
    # we do not want the bot to reply to itself
    if message.author == client.user:
        return
if message.content.startswith('!Befehl'):
 if not message.author.id == "ID":
    await client.delete_message(message)
    msg = 'Hey, du darfst den Befehl nicht ausführen {0.author.mention}'.format(message)

    await client.send_message(message.channel, msg)

if message.author.id == "ID":
        if message.content.startswith('!Befehl'):
         reply = message.content
         await client.delete_message(message)
         reply = reply.replace('Befehl ', '')
         msg = '%s'.format(message) % reply
         await client.send_message(message.channel, msg)

Das Ergebnis ist, sobald jemand außer ich etwas schreibt, wird seine Nachricht sofort gelöscht. Dachte das könnte ich wie oben gezeigt abfangen mit

if message.content.startswith

Ich habe wohl irgendeinen Denkfehler, kann mir jemand helfen?

...zur Frage

Wie programmier ich eine schleife in python, die bei einer bestimmten Zahl aufhört?

Ich brauche eine schleife die bei einer bestimmten Zahl aufhört. Soweit so gut. Nun habe ich aber mehrere if verkettungen und an jedem ende eines if-befehls muss die eine Abfrage kommen, mit welcher man das programm wieder beenden kann.

x = input

while x != 99:

if ...

elif.......

...zur Frage

Excel VBA UserForm "Passwort ändern" funktioniert nicht?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen