[ EminDjonlic @ 11.11.2009. 21:51 ] @
Treba mi pomoc...
- ako moze neko da mi uradi program u Pascalu:

----- kada unesemo bilo koji znak s tastature, kao rezultat ispisuje taj znak duplo, osim kada unesemo znak * program se zavrsava...
[ savkic @ 11.11.2009. 22:29 ] @
Ako oćekuješ gotov zadatak možeš postaviti oglas u berzi poslova, a ovde možeš dobiti pomoć da ga samostalno uradiš.
[ xenox @ 12.11.2009. 03:46 ] @
aj napisi nesto sam, pa da ti iskomentarisemo. Inace je ovo veoma prosto...

vrstis petlju, u kojoj citas unesen znak, ako nije * ispises ga dvaput, a ako je * zaustavlja se petlja.

Za druge - malo je kasno, a i nesto sam lose pojeo pa sam se probudio posle dva sta spavanja...
Kako da izbegnemo u petlji da ispisemo **... a i da ne ispisemo ni dvaput '' (mada se ako je write i nece videti, ali sa writeln hoce) a da ne koristimo if ulaz <> '*' u petlji...

while input<> '*'
write(input)
write(input)
read(input)

ce ispisati '' '' i iskorisiti petlu za izlazak...

nije napisano sve po protokolu zbog naseg prijatelja...


[ EminDjonlic @ 12.11.2009. 11:25 ] @
ja bi uradio

if znak<>* then write (znak,znak) else readln;
end.

ali ne znam da li je ovako tacno :S

ali kada se ukuca duplo znak, onda bi program od pocetka trebao poceti sve dok ne upisem * :
[ bojan21 @ 16.11.2009. 22:49 ] @
Pa lepo ti je xenon rekao, vrtis while petlju sve dok je uslov zadovoljen (tj sve dok uneseni znak razlicit od '*'). Za uslov ulaska u while petlju ne moras da poredis sta je uneto preko tastature, zar nije lakse da to radis u nekom if-u u samoj petlji, a da se while 'vrti' preko neke boolean promenljive. Ovako nesto:

Code:

var  c: char;
      x: boolean;
begin
  { TODO -oUser -cConsole Main : Insert code here }
x:= true;

while x do
  begin
  read(c);
  if (c<>'*') then write(c, c)
                else  x:= false;
  end;
end.