| "Autor" |
Meine Stunde |
|
|
|
geschrieben am: 26.02.2002 um 07:52 Uhr
|
|
<font face=verdana color=#ffffff><center>mir is langweilig undd da hab ich mal was für euch.. das ist das ergebnis einer langweiligen stunde:
<hr>
<font face="courier new"></center>
program ascii;
uses crt;
var zaehler,anfang,ende,farbe:integer;
wiederholen:char;
begin
REPEAT
clrscr;
Writeln;
Writeln;
Writeln(' ASCII-Zeichen');
writeln;
writeln;
Write('Geben Sie den Anfang ein: ');
Readln(anfang);
Write('Geben Sie das Ende ein: ');
Readln(ende);
writeln;
writeln;
farbe:=1;
REPEAT
textcolor(farbe);
if farbe=15 then farbe:=1
else farbe:=farbe+1;
Write(anfang:10);
write(chr(anfang):6);
anfang:=anfang+1;
UNTIL anfang=ende;
textcolor(white);
writeln;
Write('Nochmal? [J/N] ');
Readln(wiederholen);
wiederholen:=upcase(wiederholen);
UNTIL wiederholen='N';
end.
<font size=-3>
Geändert am 26.02.2002 um 07:53 Uhr von Chatfix |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 26.02.2002 um 11:29 Uhr
|
|
Aha, und was genau passiert da? 
|
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 26.02.2002 um 16:03 Uhr
|
|
<center> |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 26.02.2002 um 16:13 Uhr
|
|
|
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 26.02.2002 um 16:24 Uhr
|
|
(zitat)<font face=verdana color=#ffffff><center>mir is langweilig undd da hab ich mal was für euch.. das ist das ergebnis einer langweiligen stunde:
<hr>
<font face="courier new"></center>
program ascii;
uses crt;
var zaehler,anfang,ende,farbe:integer;
wiederholen:char;
begin
REPEAT
clrscr;
Writeln;
Writeln;
Writeln(' ASCII-Zeichen');
writeln;
writeln;
Write('Geben Sie den Anfang ein: ');
Readln(anfang);
Write('Geben Sie das Ende ein: ');
Readln(ende);
writeln;
writeln;
farbe:=1;
REPEAT
textcolor(farbe);
if farbe=15 then farbe:=1
else farbe:=farbe+1;
Write(anfang:10);
write(chr(anfang):6);
anfang:=anfang+1;
UNTIL anfang=ende;
textcolor(white);
writeln;
Write('Nochmal? [J/N] ');
Readln(wiederholen);
wiederholen:=upcase(wiederholen);
UNTIL wiederholen='N';
end.
<font size=-3>(/zitat)
<i>...Hm....Q-Basic oder was?...
Watchyou |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 26.02.2002 um 17:14 Uhr
|
|
<font color=#ffffff face="comic sans ms">Also das ist Turbo Pascal (odda auch Borland Pascal) 
also nich so das neuste was wir inner schule machen.
das programm hat foldgende (sinnlose) aufgabe: man gibt einen wert der ASCII-Tabelle ein. Z.B. 40, und dan noch ienen z.B. 80.
Nun listet das Programm alle Zeichen der ASCII-Tabelle von 40 bis 80 auf.
Das mit der Farbe ist ne spielerei von mir, da ich ja eh nix anderes zu tun hatte.. lol..
Wer das Programm haben will, ich schicks auch gerne *fg*
MfG Chatfix |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 26.02.2002 um 17:20 Uhr
|
|
mich deucht da unten vor 'end.' (was eigentlich groß geschrieben wird) fehlt noch ein 'readln;'
'Writeln;' und 'Readln;' werden immer klein geschrieben, dafür 'begin' immer groß, hm, und der Text ist nicht eingeschoben ... tztz, meine Info-Lehrerin würde dich killen .
Und jetzt bitte ein Struktogramm
Ich hasse TP, das ist das Allerletzte, ... wobei, es ist einfach genial *grinz* |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 26.02.2002 um 17:23 Uhr
|
|
<font color=#ffffff face="comic sans ms">
Also pascal ist es völlig wurscht ob das gross oder klein ist, das mit der einrückung liegt am kopieren, hat kein bock erst das ganze mit html einzurücken... (PS pascal ist das auch egal ob du alles hintereinander schreibst einrückst oder nicht  )
vor end steht ein readln Es wird nämlich die variable "wiederholen" eingelesen, wenn diese J (oder in dem fall ein anderes zeichen ausser N) ist dann fängt es nochmal an.
wenn man N eingibt wird das programm beendet.
MfG Chatfix
<font size=-3>
Geändert am 26.02.2002 um 17:27 Uhr von Chatfix
Geändert am 26.02.2002 um 17:28 Uhr von Chatfix |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 26.02.2002 um 18:48 Uhr
|
|
| <i><center>Und jetzt bin ich von dem Beitrag schlauer geworden? |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 26.02.2002 um 18:52 Uhr
|
|
<font color=#ffffff face="comic sans ms">Du bist hier im mülleimer.. sinnlosbeiträge sind hier erlaubt.. wer sagt dasdu schleuer werden sollst.... hmpf
so ein paar kunnis hier
Mfg |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 26.02.2002 um 20:54 Uhr
|
|
Ja, ist mir klar, dass die Schreibweise (groß-klein) egal ist, aber meiner Lehrerin leider nicht, dafür gibt's bis zu 2 Punkte Abzug.
Wir machen grad 'n Programm für "Zwei Chinesen mit dem Kontrabaß...blabla", wo man Vokale und Umlaute einfügen kann, schreib ich dir am WE mal hin, ist voll geil
Also, ich sag mal so, wer TP nicht kennt, der kennt die Welt nicht 
Bist du eigentlich Leistungskurs?
Geändert am 26.02.2002 um 20:55 Uhr von GUS |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 27.02.2002 um 07:29 Uhr
|
|
<font face="comic sans ms" color=#ffffff>Nö wir haben Programmieren als Fach.
Wenn du mir dein Programm schickt bitte in der Compilierten Version da ich zu Hause aufm Rechner nix Pascal mehr habe...
ich programmier jetz mehr mit Delphi und PHP.
MfG Chatfix
PS Pascal rulezzzzzzzzzzzzzzzzzzzzzzzzzzzzzz |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 27.02.2002 um 12:42 Uhr
|
|
<i>
...... ...... |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 27.02.2002 um 13:33 Uhr
|
|
Naja ich kapiere´s immer noch nicht*höhö*
egal |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 27.02.2002 um 18:31 Uhr
|
|
| <i><font color="ccff00"><center>ich och net |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 27.02.2002 um 21:09 Uhr
|
|
<i><center><font color=9900cc> habt ihr alle nur turbo pascal? nicht perl? wir haben perl - turbo pascal hatten wir schon .... html auch .... son fuck ey ....
*< LoLa >* |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 28.02.2002 um 11:15 Uhr
|
|
<font face="comic sans ms" color=#ffffff>Also Perl lern ich mir später auch noch.. aber zur Zeit lern ich mir lieber PHP, find ich im Web besser als perl..
naja und sonst lern ich ja noch delphi (das is cool!!!)
MfG Chatfix |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 28.02.2002 um 14:27 Uhr
|
|
<I>ey cool...des machen wir grad im Unterricht..is eigentlich total leicht  Algorithmus usw gelle? |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 28.02.2002 um 17:02 Uhr
|
|
<i><center><font color=9900cc> hmmm ... ich bräuchte mal jmd. der sich mit perl auskennt ... is da jmd? *fg*
*< LoLa >* |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 28.02.2002 um 18:27 Uhr
|
|
Ich will auch Delphi  |
|
|
|
|
|
|
Top
|
| "Autor" |
|
|
|
|
geschrieben am: 28.02.2002 um 18:35 Uhr
|
|
<font color=#ffffff face="comic sans ms">Algorithmen gibt es in jeder Programmiersprache soweit ich weiss...
MfG Chatfix |
|
|
|
|
|
|
Top
|
