Lazarus Insertion Sort?

Hi, ich habe als Hausaufgabe auf, dass ich einen Quelltext zusammenstelle der mit dem Insertion Sort funktioniert. Das ganze soll im Programm Lazarus funktionieren. Hab mal nh bisschen im Internet gegoogelt aber keinen Quellcode für Lazarus dafür gefunden.

Würde mich über Hilfe freuen :)

1 Antwort

K0nstant1n

13.03.2021, 13:03

Stackoverflow ist da eine gute Hilfe. Laut Google wird auf Lazarus mit Pascal geschrieben, danach kannst du dann suchen

Bild zum Beitrag

Mantaistcool

Fragesteller

13.03.2021, 13:22

Danke für den Tipp, sehr hilfreiche Seite!

K0nstant1n

13.03.2021, 19:28

@Mantaistcool

Die heilige Seite für alle Programmierer😆

In der Schule erstellen wir zur Zeit ein Programm, welches auf Knopfdruck ein neues Formular erstellen, wo drin ein Windpark verwaltet werden kann. Jedoch habe ich das Problem das die Windräder immer im zu letzt erstellten Formblatt erzeugt werden. Meine Frage ist wie kann ich den Buuton so programmieren, dass ein Windrad im dazugehörigen Formular erstelllt wird.( Siehe Bilder)

Quelltext: Bilder

...zur Frage

Sortieralgorithmus Insertion Sort als Code?

Ich verstehe nicht, wie der Algorithmus funktionieren soll??

Wieso wird i zu j umbenannt?

Was heißt solange j>0 und sortiert[j-1] > buecher i? Wieso das j-1 dort?

Wieso j= j-1 und was passiert bei sortiert[j]= buecher[i]

Der Algorithmus ist ein Sortier Algorithmus Insertion Sort

Bitte um Hilfee

...zur Frage

Insertion Sort PAP (Program Ablauf Plan)?

Hallo, wir sollen für den Informatik Unterricht ein PAP für den Insertion Sort erstellen. Ich habe keine Ahnung wie das geht. Kann mir vielleicht jemand helfen?

...zur Frage

Insertion Sort Python?

Guten Abend,

Wir haben die Aufgabe bekommen jede Zeile des Codes (Bild) zu kommentieren. Es geht um Insertion Sort. Einige habe ich schon gemacht, bzw. es versucht.

Könnte mir jemand vielleicht die Erklärung zu denen sagen, die ich noch nicht habe oder mich ggf verbessern?

Lg und vielen Dank schonmal!

...zur Frage

Wie erstellt man solche Charakter (Anime) unten?

Ich will gerne solche charakter erstellen aber wie? mit welchen Programm? Gibst da annähernd nh Tutorial? würde mich freuen!

...zur Frage

Verstehe i=i-1 nicht am Ende Insertion Sort?

...zur Frage

Lazarus zwei Zahlen addieren?

Wir haben als Informatikaufgabe für zuhause aufbekommen, dass wir zwei Zahlen zusammen addieren sollen (die Zahlen sollen vom Tester eingegeben werden).

Welche Variablen brauche ich und wie schreibe ich das auf?

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

Lazarus - wie kann man eine kleine EXE Datei erstellen?

Guten Tag,

ich habe eine kleines Programm zum Testen auf Lazarus geschrieben.
Meine Frage lautet nun: Wie kann ich erreichen, dass die kompilierte EXE-Datei möglichst klein ist? Die Datei ist zur Zeit circa 23 MB groß.
Es werden anscheinend in der EXE-Datei viele Informationen gespeichert die für das Ausführen des Programmes aber überhaupt nicht benötigt werden.

Das Programm ist so klein (vom Quelltext her), dass es eigentlich deutlich weniger als 1 MB groß sein sollte.

...zur Frage

Wie lese ich ein Produkt aus einer ListBox aus (In Delphi Lazarus)?

Hallo, Ich habe ein kleines Problem. Und zwar sollten wir eine Einkaufliste erstellen mithilfe von Arrays und das in einer ListBox. Das habe ich auch noch hinbekommen, aber jetzt möchte ich gerne ein Produkt auswählen und es in ein Edit-Feld speichern. Das soll wie folgt funktionieren. Ich wähle eine Produktnummer aus in einem Edit. dann soll das ausgewählte Produkt in ein anderes Edit-Feld angezeigt werden, wo ich es dann bearbeiten kann. Nach der Bearbeitung soll ich dann auf einen anderen Button drücken der das ganze in der ListBox ändert. Ich komme da echt nicht weiter hat jemand eine Idee wie man dieses Problem lösen kann ?

Würde mich um eine Rückmeldung freuen

MFG bommel02020

...zur Frage

Lazarus; Abbruch bzw Fehlermeldung bei ungültiger Eingabe ausgeben. Wie?

Hi. Ich bin grad dabei, bissl mit Lazarus herumzuspielen. Ich habe nun das Problem, dass ich nicht weiß, wie ich wenn man z.B. in eine Edit-Komponente nichts oder eine Zahl die kleiner ist als 2 eingibt, ich eine Fehlermeldung ausgeben lassen kann bzw das Programm sich selbstständig schließen lassen kann.

Ich weiß, dass ich zum beenden den Befehl Application.terminate brauche, aber wie mache ich das mit der bedingung?

Ich hoffe auf qualitative Antworten :) Grüße

...zur Frage

Delphi/Lazarus Berrechnungen etc. beim Start der Anwendung ausführen?

Ich bin noch ein absouluter Anfänger in Delphi/lazarus... Ich wollte nun in meinem Programm direkt beim starten

var x:integer;

erstellen... das habe ich hinbekommen indem ich sie an dieser stelle im Quellcode eingefügt habe

{$R *.lfm}
 var x:integer;

aber wenn ich nun darunter

{$R *.lfm}
 var x:integer;
x:=random(100);

schreibe, funktioniert das ganze nicht mehr..... wenn ich das gleiche in eine "Klick funktion" oder wie man das nennt packe, klappt es. An welche stelle im Quellcode kann ich denn jetzt "Anweisungen" wie if etc. reinschreiben das sie direkt beim starten das programmes ausgeführt werden und nicht erst wenn man draufklickt etc. ???

...zur Frage

In Java Insertion Sort programmieren?

Wie lange brauche ich, wenn ich ein absoluter Laie bin, um zu dem Punkt zu kommen bei dem ich Insertion sort und bubblesort Programmieren kann?

...zur Frage

Welcher Sortieralgorithmus ist unter welchen Umständen der schnellste?

Nabend.

Da ich mich ja mit der Programmierung beschäftige, habe ich versucht, einige Sortieralgorithmen in C++ nachzuprogrammieren (und mir danach die schnelleren Versionen aus dem Netz raus zu suchen). Dann wollte ich anhand einer Liste von 500.000 Elementen testen, welcher Algorithmus der Schnellste ist.

Getestet habe ich bisher std::sort, Quick Sort, Insertion Sort und Timsort. std::sort war bei der unsortierten Liste zwei Millisekunden schneller als Timsort, danach folgte Insertion Sort und Quick Sort war letzter. Wenn ich aber ein neues Element zu der sortierten Liste hinzugefügt habe, war Timsort der schnellste Algorithmus mit sage und schreibe 0 Mikrosekunden. Danach folgten Insertion Sort, std::sort und zu guter letzt war mal wieder Quick Sort fertig.

Wenn ich das ganze kurz zusammenfassen sollte, würde ich sagen, dass Timsort an dieser Stelle der beste Sortieralgorithmus ist, auch wenn er zwei Millisekunden langsamer bei der Sortierung einer komplett unsortierten Liste als std::sort ist. Zwei Millisekunden sind vernachlässigbar, vor allem, wenn std::sort bei der Sortierung der bereits sortierten Liste mit einem neuen Element 9 Millisekunden braucht, während Timsort nicht mal eine Mikrosekunde benötigt.

Gibt es Sortieralgorithmen, die noch schneller sind als die vier vorhin genannten? Oder welche anderen Szenarien könnte ich testen?

Gruß

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen