Mam taki oto problem-program :-( : Napisać program umożliwiający zmianę wszystkich przecinków na kropki w tekście podanym przez użytkownika oraz umożliwiający wydrukowanie podanego tekstu od tyłu. Nie mam pojęcia jak się do tego zabrać [???] Będę bardzo wdzięczna za pomoc [green]
0
0
Zawsze chciałem uczyć, więc skorzystam z okazji. Co do [,] => [.] to można to zrobić na dwa sposoby:
1). Za pomocą pętli for przeszukać każdy znak i jeżeli znak jest przecinkiem to zamienić na kropkę.
var
s :string[255] = 'Wyraz1, wyraz2, wyraz3,,,';
t :string[255];
i :Byte;
for i := 1 to Length(s) do
if s[i] = ',' then s[i] := '.';
2). Wykorzystać funkcję pos i pętlę while.
while Pos(',', s) > 0 do
S[Pos(',', s)] := '.';
Co do odwracania kolejności liter:
[PASCAL]
Najpierw robimy kopię
t := s;
// następnie pętelka z odpowiednim obliczaniem pozycji czyli t[first] = s[last];
for i := Length(s) downto 1 do
t[i-Length(s)+1] := s[i];
[DELPHI]
Za pomocą AnsiReverseString
t := AnsiReverseString(s);
0
Już utraciłam nadzieje że ktoś mi pomoże i wreszcie po wielu próbach wymyśliłam sama ten program :-D . Ale stasznie dziekuje za pomoc. I dowiedziałam sie kilku fajnych rzeczy ;-) np o funkcji ansireversestring :d Byłbyśś świetnym nauczycielem Oleksy_Adam :-)