Turbo Pascal

Re: Turbo Pascal

Mhh naja ich önnts dir nur mit delphi schreiben!

Re: Turbo Pascal

und ich nur in c++ :mrgreen:

Re: Turbo Pascal

[silvio:]

:mrgreen: ach ge-knechti .. da haste aber schwein dass ick heut abend ma "keine freunde hab"

hab mich an meine uralt-pascal-zeiten erinnert ... war scho kewl iwi ... assembler ... grafikmodus mit 320x200 pixeln ...

musste mich ma fix inne syntax einlesen .. hier haste dein proggi .. aber ohne funktion oder so ... alles in einem rutsch weg .. hoffe das ist so genehm ... ich fands easy ..

program schaltjahr(input, output);


uses crt;


var jahr : word;


begin
 clrscr;
 writeln('Schaltjahr oder nicht, das ist hier die Frage!');
 writeln('Bitte gib das zu prüÂfende Jahr ein (z.b. 1985): ');
 readln(jahr);


 if (jahr mod 4 = 0) and ((jahr mod 100 <> 0) or (jahr mod 400 = 0)) then
  writeln('Ja ... das ist in der Tat ein Schaltjahr')
 else
  writeln('Schade, das ist leider keins');


 readln;
end.

ich hab den code mal bissel NEWBIE-mäßig geschrieben,damits nicht auffällt ... nich dass das hier iwann mein chef liest, und denkt das ist mein allg. codingstyle

wenn noch was anzupassen ist .. sag bescheid ... denk ma bis montag dürfteste ja noch zeit haben ...
falls du info als richtiges fach haben solltest, und du da in zukunft mehr mit pascal machst ... würd ich dir aber wärmstens empfehlen da son bissel hinter zu steigen ... mich hats ja damals hammer-mäßig fasziniert ... das man dem computer sagen kann, was er machen soll ... sowas ist doch fett ...

habs bei meiner freundin bis heute nich antrainiert gekriegt ... und bei pascal (und jeder anderen prog-sprache) gehts ganz einfach :mrgreen:

und hier kannste dann übrigens nochma kontrollieren obs stimmt ...

http://kalender-365.de/schaltjahre.php

Re: Turbo Pascal

hier noch meine lösung in c++... macht das gleiche und ist ebenfalls nur mal schnell zusammengeschustert...
kann man ja recht einfach portieren...

#include <iostream.h>
main()
{	unsigned int jahr;
	cout << "Jahr angeben: " << endl;
	cin >> jahr;


		if (jahr % 4 == 0 && (jahr % 100 != 0 || jahr % 400 == 0))
		{
			cout << jahr <<" ist ein Schaltjahr!";
		}
		else
		{ 
			cout << jahr << " ist kein Schaltjahr!";
		}
return 0;
}

Re: Turbo Pascal

Zitat von Geknechteter Bruder

Spitze Huelle

Und word ist dasselbe wie integer ne

word hat nur einen positiven wertebereich, macht bei der jahresangabe sinn...
integer hat dagegen einen positiven und negativen wertebereich

Re: Turbo Pascal

letzenendes isses also wurscht .. nimm den datentyp, den ihr bisher behandelt habt .. denke int .. pascal nimmt 2 byte (1 word) oder 4 byte für int ...

zu dem c++-proggi .. denke an der stelle :

jahr % 4 == 0 && jahr % 100 != 0 && jahr % 400 != 0

musste noch bissel umändern und klammern ... hastes ma getestet ? is ja nich so wichtig ... kei zeit mehr mir den kopp zu zerbrechen darüber ...

Re: Turbo Pascal

jo, hatte es auch grad bemerkt. hatte die angaben von "geknechteter bruder" falsch interpretiert. dann hab ich deinen quelltext gesehen :shock: -> is schon geändert

Re: Turbo Pascal

Vor dem "else" muss das ";" weg.

Re: Turbo Pascal

writeln ('Text',jahr); müsste gehen.

Re: Turbo Pascal

Wollt mich gerade ransetzn, aber die anderen waren ja schon fleißig