Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

informatik aufgabe in delphi

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Computer-Forum
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
csde_rats



Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur

BeitragVerfasst am: 14.02.2007, 20:49    Titel: informatik aufgabe in delphi Antworten mit Zitat

Hi Leute,
ich selbst habe (leider) kein Informatik, aber ein Freund von mir. Der hat jetzt folgende Aufgabe gekriegt:
-Texteingabe vom User
-Zum Quadrat nehmen
-Quadratzahl wieder ausgeben
Toll. Ich selbst kenn ma
ich nur in QB, FB etc. aus, d.h. weiß jemand wie man das in delphi hinkriegt?
_________________
If hilfreicher_Beitrag then klick(location.here)

Klick
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Mao



Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1

BeitragVerfasst am: 14.02.2007, 20:54    Titel: Antworten mit Zitat

Was bekomm ich dafür? Zunge rausstrecken

Code:

procedure TForm1.Button1Click (Sender: TObject);
var
  Eingabe, Ergebnis: Int64;
begin
  try
    Eingabe:=StrToInt(Edit1.Text);
  except
    MessageDlg('Keine gültige Integer-Variable! Eventuell ist die Zahl zu groß oder sie enthält nicht-numerische Zeichen.', mtError, [mbOk], 0);
    Edit1.Text:='';
    Exit;
  end;
  try
    Ergebnis:=Eingabe*Eingabe;
  except
    MessageDlg('Das Ergebnis sprengt den Zahlenraum, welcher mit 64 Bit dargestellt werden kann. :o', mtWarning, [mbOk], 0);
    Exit;
   end;
   MessageDlg('Das Quadrat von '+IntToStr(Eingabe)+' ist '+IntToStr(Ergebnis)'.', mtInformation, [mbOk], 0);
end;


Jetzt nur so aus'm Kopf getippt und mit den Original-Variablen-Namen. Sollte man allerdings ändern. zwinkern

/edit:
Button1Click vergessen. peinlich
Nicht vergessen: die Prozesur muss innerhalb der Klasse TForm1 (oder wie auch immer er die nennt) im globalen Teil deklariert werden!
Zudem muss sie dann auch noch dem Button als OnClick-Ereignis zugewiesen werden.
_________________
Eine handvoll Glück reicht nie für zwei.
--
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
csde_rats



Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur

BeitragVerfasst am: 14.02.2007, 21:34    Titel: Antworten mit Zitat

Ähhm, danke mao happy . wie gesagt: ich selber habe k.a. von delphi; werd mal sehen ob er da mit klar kommt happy .
Naja, danke nochmal
_________________
If hilfreicher_Beitrag then klick(location.here)

Klick
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Mao



Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1

BeitragVerfasst am: 14.02.2007, 22:42    Titel: Antworten mit Zitat

kp

Btw, Delphi feiert heute seinen 14. Geburtstag! happy lächeln Yahooo!!!!
_________________
Eine handvoll Glück reicht nie für zwei.
--
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte

BeitragVerfasst am: 14.02.2007, 22:43    Titel: Antworten mit Zitat

und das an einem 14. ..... und auch noch an DIESEM 14. neutral
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Mao



Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1

BeitragVerfasst am: 14.02.2007, 22:44    Titel: Antworten mit Zitat

Was ist an DIESEM 14. so besonders?
(Außer, dass ich atm auch 14 bin. Ein Zeichen? lachen)
_________________
Eine handvoll Glück reicht nie für zwei.
--
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte

BeitragVerfasst am: 14.02.2007, 22:51    Titel: Antworten mit Zitat

durchgeknallt was für eine verschwörung grinsen
nein, ich habe nichts gegen diesen 14, aber ich kann's nicht ausstehen, was andere draus machen.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Computer-Forum Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz