Pascal Lazarus Cookie Clicker?

Guten Abend,

meine Frage ist wie Programmiere ich einen Cookie Clicker auf Lazarus mit Pascal ? Ich besitze schon eine Vorlage. Ich würde ja gerne selber es lösen nur gibt es halt so gefühlt für diese Programmiersprache so wenig zu finden im Internet und außerdem blicke ich da einfach nicht durch. Wenn mir jemand dabei helfen kann wäre ich sehr dankbar.

Hier ist die Aufgabenstellung:

Erweitern Sie den Cookie-Clicker um die folgende Funktion: Die Cookie-Hexe multipliziert die Anzahl der bei einem Klick generierten Cookies.  Dafür wird zunächst eine Zufallszahl generiert aus dem Intervall: 1 <= X <= (1 + Anzahl der gekauften Cookie-Hexen).  Die Anzahl der generierten Cookies (die sich ja bisher durch die Anzahl der Cookie-Farmen ergeben hat) wird mit dieser Zufallszahl multipliziert und dann zum gesamten Cookievorrat hinzuaddiert.  Der Preis der Cookie-Hexe startet bei 16 Cookies und verdoppelt sich mit jeder gekauften Cookie-Hexe.

Bild zum Beitrag

2 Antworten

regex9

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

programmieren, Informatik, Programmiersprache

15.03.2023, 13:43

Teile die Aufgabe erst einmal in Teilprobleme auf, die du anschließend nach und nach löst.

Anzahl gekaufter Cookie-Hexen ermitteln
Zufallszahl generieren
Cookie-Anzahl berechnen
Cookie-Hexen kaufen
Anzahl gekaufter Cookie-Hexen auf der grafischen Oberfläche aktualisieren
Preis für Cookie-Hexe aktualisieren

Möglicherweise sind noch ein paar weitere Punkte notwendig, da die grafische Oberfläche vielleicht noch nicht immer richtig aktualisiert wird. Bevor du irgendetwas davon in Codeform aufschreibst, solltest du dir überlegen, welche konkreten Teilschritte notwendig sind. Wenn du beispielsweise einen numerischen Wert als Text an ein Oberflächenelement geben möchtest, ist erst eine Typkonversion (in einen String) notwendig, da das GUI durchweg nur mit Strings arbeitet.

Du kannst hierbei das Free Pascal-Wiki als Hilfe nehmen, denn das beinhaltet Artikel zu dem, was du so brauchst: Operatoren, Typecasts und sogar Zufallszahlen oder Lazarus-Komponenten wie TLabel.

Bezüglich der Hexenanzahl wäre es ratsam, die in einem Feld (Variable, die in der gesamten Klasse bekannt ist) zu speichern, denn so hast du in jeder Prozedur Zugriff auf sie.

jort93

15.03.2023, 01:36

Naja, wo liegt denn genau das problem?

Du musst nur eine funktion anfertigen welche die anzahl der cookies pro klick verändert. Ganz normale aufgabe eigentlich.

Shadowmaster75

Fragesteller

15.03.2023, 02:32

Das Problem ist das ich ein Amateur bin und zwar diese Vorlage habe aber habe nicht eine Sache bis jetzt programmiert weil ich nichts verstehe. Ich habe keine ahnung von Typumwandlungen, Variblen oder was man auch sonst noch so brauch um diesen Cookie Klicker zu programmieren

Wie bekomme ich auf steam in cookie clicker unendlich cookies?( habe windowsa 10)

...zur Frage

Golden cookies?

Was bringen die golden coockies bei cookie clicker 2 ?

...zur Frage

Tipps für Cookie-Clicker

Hallo Leute, ich habe eine Wette mit einem Freund gemacht wer bei dem Spiel Cookie-Clicker mehr Cookies hat. Das Problem ist aber das ich 0 Ahnung von dem Spiel habe. Es wäre cool wenn einer mir sagen könnte was ich kaufen soll.

Danke schon mal im Voraus 😎

PS: NUR SINNVOLLE ANTWORTEN

...zur Frage

Daten Speichern in Free Pascal (Lazarus)?

Hey Leute,

Ich möchte in der IDE Lazarus ein Code programmieren, dass ich Daten abspeichern und auch wieder laden kann.

Ich hab nur keine Ahnung, warum nichts gespeichert wird (die Datei ist und bleibt leer) und natürlich besteht dadurch das Problem, dass nichts geladen werden kann.

Weiß jemand, wo mein Fehler liegt und wie ich diesen beheben kann?

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

...zur Frage

Lazarus Pascal source Verschachtelte Schleife?

Hi ,

und zwar habe ich die folgender Aufgabe zumachen jedoch verstehe ich nicht wie die verschachtelte Schleife funktionieren soll . Kann mir jemand bitte helfen und mir die musterlösung dazu schicken ?

mit freundlichen Grüßen

...zur Frage

Beste Pogrammiersprache?

Hi, ich bin Pogrammierer und kann sehr viele Sprachen: C#, Node js, python, Javascript usw. Nur möchte ich gerne wissen, wie beliebt die beliebige Sprache ist.

...zur Frage

Was ist eure lieblings Programmiersprache in 2023?

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

Wieso funktioniert der Code in Lazarus nicht?

Hallo, ich lerne gerade ein wenig mit Lazarus zu programmieren.

Ich möchte dabei Hotkeys programmieren, die man außerhalb von der TForm nutzen kann. Leider funktioniert das bei meinem Programm nicht, aber ich weiß nicht, was das Problem ist.

Code:

unit unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, LCLType, Windows;
type
  { TForm1 }
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
end;

var
  Form1: TForm1;
  HotkeyRegistered: Boolean;

implementation
{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  HotkeyRegistered := False;
  RegisterHotKey(Handle, 1, MOD_CONTROL or MOD_SHIFT, VK_NUMPAD1);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if HotkeyRegistered then
    UnRegisterHotKey(Handle, 1);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (ssShift in Shift) and (Key = VK_NUMPAD1) then
  begin
    ShowMessage('Hotkey wurde gedrückt!');
  end;
end;

end.

Weiß jemand, woran das liegt?

...zur Frage

Was nach Python programmieren?

Hallo liebe Community.

Ich lerne jetzt schon seit einem Jahr Python und würde sagen, dass ich schon relativ gut darin bin.

Ich würde jetzt gerne eine neue Sprache lernen, weiß aber nicht was.

Rust?
C?
JavaScript?
Andere?

Was fällt einem Python erfahrenen leicht und was macht Sinn?

Könntet ihr mir helfen, was ich als nächstes lernen soll?

PS.: Ich bin 14 und als Kind lernt man neue Sprachen ja schnell.

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

Java Programm Gleichungssytem 3. Grades/Cramersche Regel?

Hallo, ich habe ein Programm erstellt, dass mithilfe der Cramerschen Regel ein Gleichungssytem 3. Grades löst (siehe unten) Nur kommt bei dem Ergebnis immer x1=0.0, x2=0.0 und x3=0.0 raus, egal was man eingibt. Ich finde den Fehler einfach nicht, kann mir da bitte jemand weiterhelfen?

import java.util.*;
public class gs3 {
    public static void main(String[] args) {
        Scanner ein = new Scanner(System.in);
        System.out.println("Geben Sie den Koeffizienten des Gleichungssystems ein:");
        double[][] m = new double[3][4];
        for (int i = 0; i < 3; i++) {
            System.out.println("Gleichung " + (i + 1) + ":");
            for (int j = 0; j < 3; j++) {
                System.out.println("Koeffizient x" + (j + 1) + ":");
                m[i][j] = ein.nextDouble();
            }
            System.out.println("Rechte Seite: ");
            m[i][3] = ein.nextDouble();
        }
        double determinanteA = calculateDeterminant(m);
        if (determinanteA == 0) {
            System.out.println("Gleichungssystem nicht lösbar.");
        } else {
            double[] ergebnis = new double[3];
            for (int i = 0; i < 3; i++) {
                double[][] modifiedM = modifyM(m, i);
                double determinantModified = calculateDeterminant(modifiedM);
                ergebnis[i] = determinantModified / determinanteA;
            }
            System.out.println("Lösung: x1 = " + ergebnis[0] + ", x2 = " + ergebnis[1] + ", x3 = " +
                ergebnis[2]);
        }
        ein.close();
    }
    private static double calculateDeterminant(double[][] m) {
        double determinante = 0.0;
        determinante = m[0][0] * (m[1][1] * m[2][2] - m[1][2] * m[2][1]) -
            m[0][1] * (m[1][0] * m[2][2] - m[1][2] * m[2][0]) +
            m[0][2] * (m[1][0] * m[2][1] - m[1][1] * m[2][0]);
        return determinante;
    }
    private static double[][] modifyM(double[][] m, int column) {
        double[][] modifiedM = new double[3][3];
        for (int i = 0; i < 3; i++) {
            for (int j = 0, k = 0; j < 3; j++) {
                if (j != column) {
                    modifiedM[i][k++] = m[i][j];
                }
            }
        }
        return modifiedM;
    }
}

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen