In der Schule lernt man verschiedenes Zeug. Viele glauben, dass man in der Schule nur Zeugs lernt wie rechnen, Geschichte, Rechtschreibung, usw. Das stimmt auch, aber in der Schule lernt man auch fürs Leben (oder sollte man), wie z. B: wenn ich für eine Aufgabe eine Woche Zeit bekomme und bis zum letzten Tag damit warte, hab eich am letzten Tag kaum noch Zeit es zu lösen.
Ich denke, wenn du morgen zum Lehrer gehst und ihm sagst: ich habe die Aufgabe nicht gelöst, aber etwas anderes gelernt, wird er dir wegen der fehlenden Aufgabe zwar eine 6 geben, sich aber dennoch freuen dir etwas beigebracht zu haben. Vielleicht gibt er dir deswegen auch nur eine 5
Mit der Funktion
Length()
kann man die Länge eines Strings ermitteln
Mit
Copy(Str, x, 1)
kann man ein Zeichen kopieren
Alternativ: Mit
Str[x]
kann man ein Zeichen erhalten
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
sText, sListePositionen: String;
cGesuchtesZeichen: Char;
iPosition, iLeangeText, iAnzahlZeichen: Integer;
begin
sText := 'Fachhochschule Stralsund';
sListePositionen := '';
iAnzahlZeichen := 0;
cGesuchtesZeichen := 'h';
iLeangeText := ?????;
for iPosition := 1 to iLeangeText do
begin
if sText[iPosition] = cGesuchtesZeichen then
//Alternativ:
//if Copy(sText, iPosition, 1) = cGesuchtesZeichen then
begin
Inc(iAnzahlZeichen);
//Alternativ:
//iAnzahlZeichen := iAnzahlZeichen + 1;
if sListePositionen <> ????? then
//Alternativ
//if ????? = 0 then
sListePositionen := sListePositionen + ', ';
sListePositionen := sListePositionen + IntToStr(iPosition);
end;
end;
ShowMessage('Text: ' + sText);
ShowMessage('Gesuchtes Zeichen: ' + cGesuchtesZeichen);
ShowMessage('Anzahl Textzeichen: ' + IntToStr(iLeangeText));
ShowMessage('Anzahl gesuchte Zeichen: ' + IntToStr(iAnzahlZeichen));
ShowMessage('Positionen der Zeichen: ' + sListePositionen);
end;
Hier eine mögliche Lösung. Es fehlen aber noch drei Angaben, schließlich ist es eine Hausaufgabe.