Joined
Last Seen
-3 Reputation Points
- Strength to Increase Rep
- +0
- Strength to Decrease Rep
- -0
0% Quality Score
- Upvotes Received
- 0
- Posts with Upvotes
- 0
- Upvoting Members
- 0
- Downvotes Received
- 1
- Posts with Downvotes
- 1
- Downvoting Members
- 1
0 Endorsements
Ranked #107.55K
1 Posted Topic
 | function palindromcheck (s:string) :bool; var l,i:integer; begin l:=Length(s); for i:=0 to (l div 2) do begin if comparetext(s[i+1], s[l-i])<>0 then Result:=false; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if palindromcheck(Edit1.Text) = true then begin label1.Caption := 'schönes Polinom'; end else begin label1.Caption := 'kein schönes Polinom'; end; end; hf&gl |
The End.