Problemstellung

Das Programm soll entsprechende Wörter GROSS schreiben. Wörter groß zu schreiben, hat besonders in den Programmen einen Sinn, wo Wörter sortiert werden sollen.

Für das Umschreiben eines Wortes auf die durchgängige Verwendung von Großbuchstaben bietet Pascal die Funktion UPCASE.

program grosschreiben;

uses crt;

type string30 = string[30];

var ort, strasse : string30;
         Z       : integer;

procedure gross_schreiben(var wort : string30; var z : integer);
var i   : integer;

begin
     i := 0;
     repeat
           i := i + 1;
           if wort[i] <> upcase(wort[i]) then
           begin
                gotoxy(4,z);write('Wort wird in GROSSBUCHSTABEN weiterbearbeitet ');
           end;
     until (i = length(wort))  or (wort[i] <> upcase (wort[i]));

     for i := 1 to length(wort) do wort[i] := upcase (wort[i]);
end;

{++++++++++Hauptprogramm++++++++++}

begin
     clrscr;
     gotoxy(4,2);  write('Wörter werden GROSS geschrieben');
     gotoxy(4,4);  write('Bitte Ort eingeben  '); readln(ort);
     z := 6;
     gross_schreiben(ort,z);
     gotoxy(4,8);  write('Bitte Straáe eingeben  ');readln(strasse);
     z := 10;
     gross_schreiben(strasse,z);
     gotoxy(14,14); textcolor(red); write('AUSGABE');
     gotoxy(14,16); write(ort,'    ',strasse);
     readln;
end.

Die hier vorgenommenen Typendeklaration ist erforderlich, um die Variablenparameter in der Procedure festzulegen.

Die Procedure gross_schreiben untersucht nun für i = 1  bis zur Wortlänge, ob der i-te Buchstabe des Wortes bereits großgeschrieben ist. Sobald ein kleingeschriebener Buchstabe gefunden worden ist, wird dieser großgeschrieben.