PMG/Kurs 1214/eigene Übungen/Paul

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="51c61a56a921f">
procedure jahr1(a:string);
var jahr:integer;
begin
if(a[3] = '0') and (a[4] = '0')then
	begin
		jahr:= strtoint(a);
		if (jahr mod 400) = 0 then writeln(jahr,' war/ist kein Schaltjahr.')
		else writeln(jahr,' war/ist ein Schaltjahr.');
	end
else
	begin
		jahr:=strtoint(a);	
		if (jahr mod 4) = 0 then writeln(jahr,' war/ist ein Schaltjahr.')
		else writeln(Jahr,' war/ist kein Schaltjahr.');
	end;
end;
</code>

<run id="51c61a56a931a">
jahr1('2012');
</run>

<code id="51c61a56a929a">
procedure jahr2(a:integer);
var jahr3:string;
begin
jahr3:=inttostr(a);
if(jahr3[3] = '0') and (jahr3[4] = '0')then
	begin
		if (a mod 400) = 0 then writeln(a,' war/ist kein Schaltjahr.')
		else writeln(a,' war/ist ein Schaltjahr.');
	end
else
	begin
	
		if (a mod 4) = 0 then writeln(a,' war/ist ein Schaltjahr.')
		else writeln(a,' war/ist kein Schaltjahr.');
	end;

end;
</code>

<run id="51c61a56a938a">
jahr2(2012);
</run>