pascal programmieren / prozeduren bzw. funktionen

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • pascal programmieren / prozeduren bzw. funktionen

    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 :


    Quellcode

    1. program zahlen;
    2. uses crt;
    3. const
    4. max = 31 ;
    5. type
    6. bitmuster =array[0..max] of boolean;
    7. var
    8. z:bitmuster;
    9. procedure initalisieren (var a : bitmuster);
    10. {
    11. }
    12. var
    13. i : integer;
    14. begin
    15. for i:= 0 to max do a[i] :=false;
    16. end;{ initialisieren }
    20. procedure ausgeben (a: bitmuster);
    21. var
    22. i,j:integer;
    23. begin
    24. j:=max;
    25. while a[j]=false do j :=j-1;
    26. for i:=j downto 0 do
    27. if a[i]=false then writeln ('o')
    28. else writeln('l');
    29. writeln
    30. end;
    32. function einlesen : bitmuster;
    33. {
    34. }
    35. var
    36. c : char;
    37. i : integer;
    38. a : bitmuster;
    39. begin
    40. initalisieren (a);
    41. i:=0;
    42. repeat
    43. c:=readkey;
    44. case c of
    45. 'l','L' :a[i] :=true;
    46. 'o','O' :a[i] :=false;
    47. else dec (i);
    48. end {case};
    50. write (c);
    51. inc(i);
    52. if i>max then break ;
    53. until c = #13;
    54. writeln;
    55. einlesen :=a;
    56. end; {einlesen}
    58. Function dez2bin (a:Integer) : bitmuster;
    59. VAR
    60. b:bitmuster;
    61. i:Integer;
    62. Begin
    63. initialisieren (b);
    64. i := 0;
    65. While a> 0 Do
    66. Begin
    67. If (a mod 2)=0
    68. Then b [i]:=False
    69. Else b [i]:= True;
    70. a:= a div 2;
    71. i:= i+1;
    72. End;
    73. dez2bin := b;
    74. End; { dez2bin }
    77. FUNCTION gleich (a,b : Bitmuster):Boolean;
    78. VAR
    79. i:INTEGER;
    80. w:Boolean;
    81. BEGIN
    82. i:=max;
    83. WHILE a[i] = b[i] DO DEC (i);
    84. IF i<0 THEN w:=TRUE
    85. ELSE w:=FALSE;
    86. gleich:=w;
    87. END;
    91. begin initialisieren (z);
    93. write('Bitte geben Sie Ihre Zahl ein:');
    94. read (d)
    95. z:=einlesen;
    96. ausgeben(z);
    97. end.
    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

  • Der folgende Code compiliert wenigstens in Borland Pascal 7:

    Quellcode

    1. program zahlen;
    2. uses crt;
    3. const max = 31 ;
    4. type bitmuster = array[0..max] of boolean;
    5. var z:bitmuster;
    7. procedure initialisieren (var a : bitmuster);
    8. var i : integer;
    9. begin
    10. for i:= 0 to max do a[i] :=false;
    11. end;{ initialisieren }
    14. procedure ausgeben (a: bitmuster);
    15. var i,j:integer;
    16. begin
    17. j:=max;
    18. while a[j]=false do
    19. j := j-1;
    20. for i:=j downto 0 do
    21. if a[i]=false then
    22. writeln ('o')
    23. else
    24. writeln('l');
    25. writeln
    26. end;
    28. procedure einlesen (var a : bitmuster);
    29. {
    30. }
    31. var c : char;
    32. i : integer;
    33. begin
    34. initialisieren (a);
    35. i:=0;
    36. repeat
    37. c:=readkey;
    38. case c of
    39. 'l','L' :a[i] :=true;
    40. 'o','O' :a[i] :=false;
    41. else dec (i);
    42. end {case};
    44. write (c);
    45. inc(i);
    46. if i>max then
    47. break;
    48. until c = #13;
    49. writeln;
    50. end; {einlesen}
    52. procedure dez2bin (a:Integer; var ret:bitmuster);
    53. VAR i:Integer;
    54. Begin
    55. initialisieren (ret);
    56. i := 0;
    57. While a> 0 Do
    58. Begin
    59. If (a mod 2)=0 Then
    60. ret [i]:= False
    61. Else
    62. ret [i]:= True;
    63. a:= a div 2;
    64. i:= i+1;
    65. End;
    66. End; { dez2bin }
    69. FUNCTION gleich (a,b : Bitmuster):Boolean;
    70. VAR i:INTEGER;
    71. w:Boolean;
    72. BEGIN
    73. i:=max;
    74. WHILE a[i] = b[i] DO
    75. DEC (i);
    76. IF i<0 THEN
    77. w:=TRUE
    78. ELSE
    79. w:=FALSE;
    80. gleich:=w;
    81. END;
    85. begin
    86. write('Bitte geben Sie Ihre Zahl ein:');
    87. einlesen (z);
    88. ausgeben (z);
    89. end.
    Alles anzeigen