POMOC!! --Pascal

luboss772

Dostal som za ulohu v pascali(lazarus) spravit program ktory nahradi kazdu medzeru bodkou.. je to asi velmi jednoduche ale vobec neviem ako to mam robit

je tu este niekto online kto by mi pomohol? potrebujem to na zajtra

to si skoro zistil že máš na zajtra úlohu, čo vám ju dala učiteľka teraz cez icq?
Pokiaľ si dobre pamätám, pascal nemá funkciu na nahrádzanie znakov, tak prechádzaj reťazcom a ak je i-ty znak:
a) iný ako medzera, vypíš ho
b) medzera, vypíš bodku

luboss772

asi to odomna bude hlupe.. ale nemohol by si mi napisat ten postup.. vyzera to ze to je jednoduche... len ja uz som takto neskoro fakt mimo.. a som z toho uplny blbec... chapem co myslis ze mam spravit ale neviem to tam napisat

velmi vdacny by som ti bol... prosiim

iWin · Príspevok od používateľa **iWin** » 19 nov 2010, 11:09

Ja som sice v tom debil (teda ako v pascale) ale audiotrack to mysli takto? ci?

Kód: Vybrať všetko

Begin
write('a.b.c.d.e.f');
readln;
end.

javatar

nie audiotrack to mysli takto (nie celkom - on by len vypisoval, ja nahradzam (zadanie))

Kód: Vybrať všetko

for I:=1 to retazec[0]
  if retazec[I]=' ' then retazec[I]:='.';

syntaxou som si nie isty, v pascale som nerobil uz hodne davno

luboss772

diky moc..

dostal som uplne iny priklad, ale spravil som ho. .aj tak dik

M[a]nny

Nakoľko tu ešte nikto nenapísal validný kód, pre pokoj duše ho sem napíšem:

Kód: Vybrať všetko

var
  s: string;
  i: integer;
begin
  Write('Zadajte vstup: ');
  ReadLn(s);

  for i := 0 to length(s) do // pre vsetky znaky vstupu rob
    if s[i] = ' ' then s[i] := '.' // ak najdes medzeru, nahrad ju bodkou
  WriteLn(s);
  ReadLn; // pockaj na nejaky vstup z klavesnice

POMOC!! --Pascal

POMOC!! --Pascal

Re: POMOC!! --Pascal

Re: POMOC!! --Pascal

Re: POMOC!! --Pascal

Re: POMOC!! --Pascal

Re: POMOC!! --Pascal

Re: POMOC!! --Pascal