hi ich hab ein riesen probelem :? ich muss für meinen informaltikkurs die prozeduren bzw. functionen
a)initialisieren
b)einlesen
c)ausgeben
d)dez2bin
e)kleiner als
f)gleich
g)plus
... schreiben nur leider hab ich davon nicht den hauch einer ahnung und am 9.11 muss ich den quellcode schon abgeben =(( bis jetz hab ich das allerdings fuktioniert das noch nicht so :
Alles anzeigen
kann mir jemand da weiter helfen ?
mfg. doreen
p.s. ist wirklich wichtig sonst weiß ich nicht wie es zensuren mäßig weiter gehen soll =(( und ich hoffe es ist nicht zu viel verlangt
a)initialisieren
b)einlesen
c)ausgeben
d)dez2bin
e)kleiner als
f)gleich
g)plus
... schreiben nur leider hab ich davon nicht den hauch einer ahnung und am 9.11 muss ich den quellcode schon abgeben =(( bis jetz hab ich das allerdings fuktioniert das noch nicht so :
Quellcode
- program zahlen;
- uses crt;
- const
- max = 31 ;
- type
- bitmuster =array[0..max] of boolean;
- var
- z:bitmuster;
- procedure initalisieren (var a : bitmuster);
- {
- }
- var
- i : integer;
- begin
- for i:= 0 to max do a[i] :=false;
- end;{ initialisieren }
- procedure ausgeben (a: bitmuster);
- var
- i,j:integer;
- begin
- j:=max;
- while a[j]=false do j :=j-1;
- for i:=j downto 0 do
- if a[i]=false then writeln ('o')
- else writeln('l');
- writeln
- end;
- function einlesen : bitmuster;
- {
- }
- var
- c : char;
- i : integer;
- a : bitmuster;
- begin
- initalisieren (a);
- i:=0;
- repeat
- c:=readkey;
- case c of
- 'l','L' :a[i] :=true;
- 'o','O' :a[i] :=false;
- else dec (i);
- end {case};
- write (c);
- inc(i);
- if i>max then break ;
- until c = #13;
- writeln;
- einlesen :=a;
- end; {einlesen}
- Function dez2bin (a:Integer) : bitmuster;
- VAR
- b:bitmuster;
- i:Integer;
- Begin
- initialisieren (b);
- i := 0;
- While a> 0 Do
- Begin
- If (a mod 2)=0
- Then b [i]:=False
- Else b [i]:= True;
- a:= a div 2;
- i:= i+1;
- End;
- dez2bin := b;
- End; { dez2bin }
- FUNCTION gleich (a,b : Bitmuster):Boolean;
- VAR
- i:INTEGER;
- w:Boolean;
- BEGIN
- i:=max;
- WHILE a[i] = b[i] DO DEC (i);
- IF i<0 THEN w:=TRUE
- ELSE w:=FALSE;
- gleich:=w;
- END;
- begin initialisieren (z);
- write('Bitte geben Sie Ihre Zahl ein:');
- read (d)
- z:=einlesen;
- ausgeben(z);
- end.
kann mir jemand da weiter helfen ?
mfg. doreen
p.s. ist wirklich wichtig sonst weiß ich nicht wie es zensuren mäßig weiter gehen soll =(( und ich hoffe es ist nicht zu viel verlangt