plik tekstowy

Odpowiedz Nowy wątek
2006-12-17 13:12
0

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]

Pozostało 580 znaków

2006-12-17 20:24
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);

<span style="color: blue">"Kolarstwo to jedna z najtrudniejszych dyscyplin sportu. Nawet najgorszy kolarz jest wciąż wybitnym sportowcem."
s.p. Marco Pantani
</span>

Pozostało 580 znaków

2006-12-18 00:59
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 :-)

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0