Turbo Pascal potrzebuje programu.

Question

Turbo Pascal potrzebuje programu.

pslosarz 11 Dec 2007 20:03 1182 3

Lock | New topic

#1 11 Dec 2007 20:03

pslosarz pslosarz

Level 17

#1 11 Dec 2007 20:03

Potrzebuje programu który będzie działał następująco:

Po wpisaniu tekstu z klawiatury program pyta nas o wybór jakiejkolwiek litery, następnie w tekście który wpisaliśmy zamienia wszystkie litery wybrane wcześniej na "_X_". Jeżeli litera którą wpisaliśmy nie występuje w tekście program wyświetla "nie ma takiej litery" i prosi o ponowny wybór.

[30.03.2021, darmowy webinar] Nowoczesna diagnostyka maszyn, monitorowanie i przewidywanie awarii. Zarejestruj się

Lock | New topic

Smilox · Answer 1 · 2007-12-11T20:16:04+01:00

No a teraz napisz w czym masz problem z tym programem. Bo chyba nie liczysz na gotowca?

Fyszo · Answer 2 · 2007-12-14T07:39:34+01:00

Smilox wrote:
No a teraz napisz w czym masz problem z tym programem. Bo chyba nie liczysz na gotowca?

Chyba liczy.

ed-ek · Answer 3 · 2007-12-14T18:04:20+01:00

Zapomniałem o warunku braku w tekscie zadanej litery, masz poprawione

Code:


 uses crt,strings;

 var dl,i:integer;

     s,ss,sss:string;

     ch,ch_z:char;

 begin

 clrscr;

 ss:='';

 write('podaj litere do zamiany ');readln(ch_z);

 Writeln('pisz tekst');

  readln(s);

  dl:=length(s);

  for i:=1 to dl do

   begin

   ch:=s[i];

   if ch=ch_z then begin ch:='X';sss:='jest';end;

   ss:=ss+ch;

   end;

   if sss='jest' then  writeln(ss) else writeln('nie ma takiej litery');

 readkey;

  end.