Programmieren: statt if..then..?

Hallo,

ich schreibe grade ein prpgramm für die Schule. Und ich habe if..then.. verwendet aber das ist nicht erlaubt.

ich habe aber zwei Möglichkeiten. Wenn es einen Rest gibt dann muss das eine ausgegeben werden, wenn es keinen Rest gibt(also mit mod) dann muss was anderes ausgegeben werden. Wie kann ich das machen ohne if then?
die Lehrerin meint was mit Bildchen variablen und cast oder rein mathematisch. Aber ich verstehe nicht was sie meint. Ich kenne mich halt gar nicht aus………. 😭😭.

(Programmiersprache: Pascal)

danke im Voraus !! !

2 Antworten

Destranix

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

programmieren, Informatik, Programmiersprache

07.11.2022, 10:47

Einmal kannst du Schleifen als Fallunterscheidung missbrauchen. Das wird aber vermutlich auch nicht erlaubt sein.
Vermutlich genausowenig wie Gotos oder andere Kontrollstrukturen.

Andere Lösungen hängen vom konkretem Problem ab, das müsstest du ausführlicher schildern.

keksyyy

Fragesteller

07.11.2022, 10:51

Schleifen darf ich auch nicht

Destranix

07.11.2022, 10:52

@keksyyy

Na dann schildere dein Problem ausführlicher...

PWolff

07.11.2022, 11:35

Wenn etwas so elementares wie eine Fallunterscheidung nicht erlaubt ist, bleiben wohl nur mathematische Tricks.

Zum Beispiel könntest du die einzelnen Zeichen der Ausgabe über eine mathematische Formel aufbauen. Um alle Zahlen ungleich 0 gleich zu behandeln, kannst du die Vorzeichenfunktion Sign verwenden.

Am einfachsten wäre es bei "es bleibt ein Rest" / "es bleibt kein Rest". Da sollte man mit einer Konkatenation von 'es bleibt ', Chr(0+107*Sign(number mod module)), 'ein Rest' funktionieren. (Falls das Nullzeichen immer noch - wie um 1980 herum - als Leerstring interpretiert wird.)

Der Idee bin ich mal bei einem Obfuscated Code Contest begegnet. (Aber für so was eignet sich C++ etwas besser.)

Woher ich das weiß:Berufserfahrung – Software-Entwickler

Aufgabe 2 – Schaumzerfall

Der Schaum in einem Bierglas zerfällt pro Minute um 15%.

a) Entwickle ein Programm, das für eine anfängliche Schaumhöhe von 13 cm die Zeit berechnet, nach der sich der Schaum auf 1 cm der Ausgangshöhe reduziert hat. Dabei soll für jede Minute die Ausgabe der verbleibenden Schaumhöhe ausgegeben werden.

b) Erweitere das Programm um die Eingabe der Variablen n, so dass die Zeit gemessen wird, bis sich der Schaum auf n cm reduziert hat. Zugleich soll die Schaumhöhe auch als Variable eingelesen werden können.

Dabei soll mit Editfeldern sowie einem Button und einem Label programmiert werden. Die Datentypen sind entweder: String ,Double oder Integer.

Vielen Dank schonmal im Voraus😁

...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

Was ist eure lieblings Programmiersprache in 2023?

...zur Frage

Mensch-ärgere-dich-nicht in Pseudocode?

Hallo Community. Ich schreibe demnächst eine Informatik-Klausur und habe als Übungsaufgabe unter anderem folgende Aufgabe bekommen:

Beschreiben Sie in Pseudocode den Vorgang des ersten Würfelns beim Mensch ärgere dich nicht, also vor dem ersten Raussetzen bis zum Ende des ersten Zuges! Nutzen Sie die Befehle: - würfeln (gibt eine Zahl zwischen 1 und 6 zurück), - raussetzen, - rücken(n) (verlangt als Parameter die Anzahl der Felder um die gerückt wird - weitergeben (wenn der eigene Spielzug beendet ist) sowie die aus Pascal bekannten Schlüsselwörter für Programmstrukturen (begin, end, if ... then ... else ... usw.)! Verwenden Sie die Variablen AZ für die aktuelle Augenzahl und i für die Nummer des Wurfes.

_________________________________________________________

Wir haben sowas ähnliches schonmal im Unterricht gemacht, ich habe aber wieder vergessen wie das nochmal ging. Kann mir jemand helfen?

(Ich erwarte nicht, dass mir jemand diese Aufgabe komplett löst, ich hoffe, dass mir jemand Lösungsansätze geben kann.)

Danke :)

...zur Frage

Wie programmiert man Zahlen in Wörter in Pascal?

Hallo,

ich muss ein Programm mit Pascal programmieren, indem Zahlen in Wörter ausgegeben werden müssen (z.B. 24 in vierundzwanzig)

Die Begrenzung liegt bei 999999.

Ich hab leider keinen Ansatz und brauche deswegen Hilfe.

...zur Frage

Programmieren erlernen in eigener Regie?

Wie geht man am besten vor, wenn man das Programmieren sich selbst bei bringen möchte?

...zur Frage

Wo ist der Fehler in meinem Code?

Hallo, ich habe ein Problem, ich bin gerade in der Programmiersprache Lazarus am programmieren, ich mache gerade einen Stromkostenvergleichsrechner, nun mein Problem:

IF(realEvu1GeskMitTBonus<realEvu2GeskMitTBonus) Then Begin LBLSparen.Caption := realEvu1GeskMitTBonus-realEvu2GeskMitTBonus end;

(Bei den Fehlermeldungen steht : Error: Incompatible type for arg no.1: Got "Real", expected "TTranslateString")

Was ist daran falsch?

...zur Frage

Free/TurboPascal. Wie kann ich doppelte Zahlen aussortieren?

Hi, ich wollte mir vor kurzem mit Pascal ein Lotto-Programm programmieren. Ich bin schon so weit und habe es so programmiert, dass die Zahlen in einer Reihe mit Strichen kommen, also ungefähr so: 5-9-45-27-44-12. Das ist mein Programm:

program Lotto;

uses crt;

var a, e, i ,o, u, x: byte;

start: char;

begin

clrscr;

write('Möchten sie eine Lotto-Ziehung simulieren? (j/n)');readln(start);

if start = 'j' then begin

randomize;

a:= random(49) + 1;

e:= random(49) + 1;

i:= random(49) + 1;

o:= random(49) + 1;

u:= random(49) + 1;

x:= random(49) + 1;

write(a);

write(-e);

write(-i);

write(-o);

write(-u);

write(-x);

repeat until keypressed;

end

end.

Das Problem ist das manche Zahlen doppelt vorkommen können. Wie kann ich das ändern?

...zur Frage

Wurzeln in Pascal?

Hallo, ich würde gern Wurzel ziehen, aber wenn ich sqrt(x); eingebe funktioniert das nicht :c

...zur Frage

Kann mir jemand dieses Lua-Skript erklären?

Also, ich programmiere ein bisschen in Roblox Studio mit der Roblox Website, aber ich verstehe dieses Skript nicht:

local Kill = script.Parent

local function kill(otherPart)
  local partParent = otherPart.Parent
  local humanoid = partParent:FindFirstChild("Humanoid")

  if humanoid then
    humanoid.Health = 0
  end
end

Kill.Touched:Connect(kill)

Ich verstehe insbesondere nicht was in diesem Bereich steht:

local partParent = otherPart.Parent
local humanoid = partParent:FindFirstChild("Humanoid")

Kann mir jemand erklären, was das Skript mit otherPart, PartParent und dem FindFirstChild meint?

...zur Frage

programmieren repeat schleife?

Wie lautet die größte Zahl, die sich aus den Ziffern von x bilden lässt?
Die größte Zahl zu x = 213 wäre z.B. die 321, für die 11002 wäre es die 21100.

hallo, ich habe diese Aufgabe bekommen und kann sie einfach nicht lösen.

Ich muss mit einer repeat schleife hinbekommen, das die größte zahl gebildet wird. für einen bestimmten zahlen Bereich. zbs. von 0 bis 10.

strings dürfen wir nicht benutzen.

meine programmier Sprache ist Pascal.

danke im Voraus

...zur Frage

Wie kann ich mit einer For-Schleife Punkt vor Strich rechnen?

Hallo,

ich habe mir einen Taschenrechner (mit For-Schleife) erstellt.

Er kann alles, außer Punkt vor Strich. Die Funktion ist etwas schwieriger, da ich kein kein DataTable.Compute benutzen darf, sonst wäre es ja zu einfach.

Es muss durch den String selber erfolgen, also etwas komplizierter.

Hier der Code (kann leider nicht den ganzen Code eingeben, daher hier der = Code, der dafür ja auch am wichtigsten ist; ich füge den Rest einzeln hinzu!):

Dim input As String = tb.Text
Dim numbers() As String = input.Split({"+", "-", "*", "/"}, StringSplitOptions.RemoveEmptyEntries)
Dim operators() As String = Regex.Matches(input, "[-+*/]").OfType(Of Match).Select(Function(m) m.Value).ToArray()

For Each op As String In operators
  If op = "*" Then
    Console.WriteLine("Multiplication operator found!")
  ElseIf op = "/" Then
    Console.WriteLine("Division operator found!")
  ElseIf op = "+" Then
    Console.WriteLine("Addition operator found!")
  ElseIf op = "-" Then
    Console.WriteLine("Subtraction operator found!")
  End If
Next

If numbers.Length < 2 OrElse operators.Length < 1 Then
  Return ' Exit the method if we can't perform the calculation
End If

Dim result As Double = Double.Parse(numbers(0))

For i As Integer = 0 To operators.Length - 1
  Dim op As String = operators(i)
  Dim number As Double = Double.Parse(numbers(i + 1))

  Select Case op
    Case "+"
      result += number
      (das Gleiche mit -*/)
  End Select
Next

tb.Text = result.ToString()
Dim containsInvalidCharacters As Boolean = False

For i As Integer = tb.Text.Length - 1 To 0 Step -1
  If Not IsNumeric(tb.Text.Substring(i, 1)) And Not "+-*/".Contains(tb.Text.Substring(i, 1)) Then
    containsInvalidCharacters = True
    Exit For
  End If
Next

' Beibehaltene For-Schleife
For index As Integer = 1 To 2
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 12

For index As Integer = 3 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 321

For index As Integer = 4 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 4321

For index As Integer = 5 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 54321

For index As Integer = 6 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 654321

For index As Integer = 7 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 7654321

For index As Integer = 8 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 87654321

For index As Integer = 9 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 987654321

For index As Integer = 0 To 0
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 0

End Sub

Danke schon einmal!

...zur Frage

Wörter in einem String zählen mit Pascal?

Hallo, ich soll die Wort Anzahl eines Strangs zählen in Pascal.

wie funktioniert das. Egal was ich versuche, ich komme nicht weiter....

Am besten so leicht wie möglich. So viel dürfen wir noch nicht benutzen.

Schleifen sind erlaubt.

Aber keine Arrays!

Danke im Voraus! :)

...zur Frage

Wie unterscheiden sich Pascal und Delphi?

Ich wollte mal fragen, wie sehr sich Delphi und Pascal unterscheiden. Ich habe gemerkt dass der Syntax sich sehr ähnelt, da ich mir Lazarus gedownloaded und Delphi auch gesehen habe. Danke im Voraus

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen