Verfügbare Informationen zu "Mein Programm HILFE GESUCHT!!"
Qualität des Beitrags: Beteiligte Poster: Pole - Dragorad Forum: Tutorials.at Forenbeschreibung: Programmierforum aus dem Unterforum: Pascal Antworten: 4 Forum gestartet am: Mittwoch 19.04.2006 Sprache: deutsch Link zum Originaltopic: Mein Programm HILFE GESUCHT!! Letzte Antwort: vor 17 Jahren, 4 Monaten, 12 Tagen, 18 Stunden, 27 Minuten
Alle Beiträge und Antworten zu "Mein Programm HILFE GESUCHT!!"
Re: Mein Programm HILFE GESUCHT!!
Pole - 11.12.2006, 12:29Mein Programm HILFE GESUCHT!!
Hi leute bin neu hier habe mein erstes programm geschrieben und weis nun nicht weiter.
Ich Schreibe in pascal mit dem Free Pascal IDE.
Es ist ein Programm zum Umrechnen von Einheiten wie nano und micro.
Das Programm ist noch ein Testprogramm und auf das Wesentliche abgekürzt. Die anderen Einheiten folgen noch.
Rechts Oben wiederhohle ich die Eingaben die Getätigt Wurden doch ich weis nicht mehr weiter wie ich Die Zahl 1.00 in Pico und 2.00 in nano umwandeln soll ohne das ich Pico und nano angeben muss.
Die Tabelle soll so bestehen
Helft mir bitte.
Code:
USES Crt ;
VAR Zahl ,Eingabe1 ,Eingabe2,Ergebniss:Extended;
BEGIN
CLRSCR;
repeat;
HIGHVIDEO;
Writeln ;
Writeln('Mit diesem Programm kann man die Einheiten Umrechnen.');
NORMVIDEO;
Writeln;
Writeln ('Geben sie den Wert ein ,der Umgerechnet werden soll.');
Writeln;
HIGHVIDEO;
Readln (Zahl);
IF Zahl = 0 Then Exit;
GOTOXY (2,25);
Write ('0: Exit');
NORMVIDEO;
CLRSCR;
Writeln;
Writeln ('Geben die ihre Aktuelle Einheit an.(1-2)');
HIGHVIDEO;
Writeln;
Writeln ('(1) pico);
Writeln ('(2) nano -Ihre Zahl: ',Zahl:5:2);
Writeln;
GOTOXY (2,25);
write ('0: Exit');
GOTOXY (1,13);
Readln (Eingabe1);
IF Eingabe1 = 0 Then Exit;
Writeln;
Normvideo;
CLRSCR;
Writeln;
Writeln ('Geben sie nun ihre Einheit an, die sie umwandeln wollen');
Writeln;
HIGHVIDEO;
Writeln ('(1) pico);
Writeln ('(2) nano -Ihre Zahl: ',Zahl:5:2);
Writeln (' - Ihre Einheit: ',Eingabe1:5:2);
GOTOXY (2,25);
write ('0: Exit');
GOTOXY (1,13);
Readln (Eingabe2);
IF Eingabe2 = 0 Then Exit;
Writeln;
NORMVIDEO;
CLRSCR;
{--------------------------Umrechnung---------------------------}
IF (Eingabe1 =1) AND (Eingabe2 =2) Then
Begin
Ergebniss := Zahl / 1000;
HIGHVIDEO;
Writeln;
writeln (' -Ihre Zahl: ',Zahl:5:2);
Writeln (' Berechnung: -Ihre Einheit: ',Eingabe1:5:2);
write (' -Umwandeln In:',Eingabe2:5:2);
Normvideo;
Writeln;
Writeln;
Write (' ',Zahl:5:2,' pico : 1000');
Writeln;
Writeln;
Writeln;
HIGHVIDEO;
Writeln;
Textcolor(13);
Writeln (' ',Zahl:5:2, 'Pico = ',Ergebniss:5:2,' nano);
Writeln;
Textcolor (7);
Writeln;
End;
Until (Zahl = 0)or(Eingabe1=0)or(Eingabe2=0);
Readkey;
End.
Wenn ihr verbesserungsvorschläge habt bitte sagen.
Re: Mein Programm HILFE GESUCHT!!
Dragorad - 11.12.2006, 15:47
Ich hab' da einige Verbesserungen gemacht, müsste jetzt laufen ...
Code: program testtutorial;
USES Crt ;
VAR zahl,Eingabe1 ,Eingabe2,Ergebniss:real;
BEGIN repeat;
clrscr;
HIGHVIDEO;
Writeln ;
Writeln('Mit diesem Programm kann man die Einheiten Umrechnen.');
NORMVIDEO;
Writeln;
Writeln ('Geben sie den Wert ein ,der Umgerechnet werden soll.');
Writeln;
HIGHVIDEO;
Readln (Zahl);
IF Zahl = 0 Then Exit;
GOTOXY (2,25);
Write ('0: Exit');
NORMVIDEO;
CLRSCR;
Writeln;
Writeln ('Geben die ihre Aktuelle Einheit an.(1-2)');
HIGHVIDEO;
Writeln;
Writeln ('(1) pico');
Writeln ('(2) nano -Ihre Zahl: ',Zahl:5:2);
Writeln;
GOTOXY (2,25);
write ('0: Exit');
GOTOXY (1,13);
Readln (Eingabe1);
IF Eingabe1 = 0 Then Exit;
Writeln;
Normvideo;
CLRSCR;
Writeln;
Writeln ('Geben sie nun ihre Einheit an, die sie umwandeln wollen');
Writeln;
HIGHVIDEO;
Writeln ('(1) pico');
Writeln ('(2) nano -Ihre Zahl: ',Zahl:5:2);
Writeln (' - Ihre Einheit: ',Eingabe1:5:2);
GOTOXY (2,25);
write ('0: Exit');
GOTOXY (1,13);
Readln (Eingabe2);
IF Eingabe2 = 0 Then Exit;
Writeln;
NORMVIDEO;
CLRSCR;
{--------------------------Umrechnung---------------------------}
IF (Eingabe1 =1) AND (Eingabe2 =2) Then
Begin
Ergebniss := Zahl / 1000;
HIGHVIDEO;
Writeln;
writeln (' -Ihre Zahl: ',Zahl:5:2);
Writeln (' Berechnung: -Ihre Einheit: ',Eingabe1:5:2);
write (' -Umwandeln In:',Eingabe2:5:2);
Normvideo;
Writeln;
Writeln;
Write (' ',Zahl:5:2,' pico : 1000');
Writeln;
Writeln;
Writeln;
HIGHVIDEO;
Writeln;
Textcolor(13);
Writeln (' ',Zahl:5:2, 'Pico = ',Ergebniss:5:2,' nano');
Writeln;
Textcolor (7);
Writeln;
End;
readln;
clrscr;
gotoxy(30,13);
writeln('Noch einmal? j/n');
Until (Zahl = 0)or(Eingabe1=0)or(Eingabe2=0)or(readkey='n');
End.
Re: Mein Programm HILFE GESUCHT!!
Pole - 12.12.2006, 12:08
Danke sieht schon viel besser aus. hab jetzt auch ne bessere Übersicht
Aber was Bringt mir -Real- ?
und wie kann ich die Eingabe1 und Eingabe2 so formatieren das sie Zahlen und Zeichen annehmen?
Also real oder Char oder was wäre besser ?
oder hab ichs falsch abgetippt :oops: sodass das Programm es nicht erkennt hab keinen Fehler gesehen
Freu mich auf antwort
Re: Mein Programm HILFE GESUCHT!!
Dragorad - 12.12.2006, 15:20
Zitat: Aber was Bringt mir -Real- ?
Damit werden sogenannte Gleitkommazahlen deklariert. Das mit Code: Zahl:5:2 kann man nur über Real-Variablen machen.
Char-Variablen geben nur ein Zeichen wieder, wenn du aber z.B. "pico" oder "nano" direkt eingeben möchtest, musst du String-Variablen verwenden.
PS:Um Quelltexte besser kopieren zu können, brauchst du sie bloß mit [Strg]+[C] kopieren und mit dem Texteditor einfügen, dies dann als *.PAS-Datei speichern! :wink:
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Tutorials.at
Turbo C - gepostet von Mei$ter A^ am Montag 24.04.2006
Tipps? - gepostet von CRASH am Samstag 21.10.2006
Programm (C) was Sekunden in Tage Stunden Minuten umrechnet! - gepostet von Kimi am Donnerstag 01.11.2007
Was haltet ihr von FreeBasic? - gepostet von ggspp am Samstag 13.01.2007
PC-Spiele programmieren - gepostet von Dominik92 am Mittwoch 13.09.2006
GnuPascal - Fehlermeldung - gepostet von detewe89 am Mittwoch 07.11.2007
Grafik und Maus??? - gepostet von Martix391 am Sonntag 04.06.2006
ich kan kein \und kein #machen - gepostet von patrick am Donnerstag 15.02.2007
Zeichen einzeln einlesen - gepostet von bubblelol am Donnerstag 20.09.2007
Ähnliche Beiträge wie "Mein Programm HILFE GESUCHT!!"
WG gesucht!!!! - classic (Mittwoch 19.04.2006)
Rogue Char Punkte verteilung Hilfe! - Th3_PuNiSh3r (Dienstag 01.11.2005)
Schattendiebe gesucht! - Kaito Dark (Dienstag 22.08.2006)
Hilfe zu euren Signaturen, Avataren usw. - Aurora DeGardo (Donnerstag 09.08.2007)
Webspace gesucht - Treiber (Freitag 15.06.2007)
DF 4 Hauptrahmen gebrochen Hilfe!!!!!!!!! - offre (Dienstag 05.09.2006)
Hilfe, ich werd Angegriffen... - kleinergrizzly (Donnerstag 28.12.2006)
Wer kommt in Mohrenkönig! Neues Programm!! - dussi (Montag 16.04.2007)
Sitter gesucht - dragonpit (Sonntag 18.02.2007)
Kriege den DF 5 nicht eingestellt,... HILFE - Adamski (Sonntag 30.09.2007)