program u Pascalu hitno !

Odgovori Nova tema

4 odgovora
3.446 pregleda

program u Pascalu hitno ! 11.11.2009. u 22:51 · pre 206 meseci #1

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...

Potpis

...... Emin .....

Re: program u Pascalu hitno ! 11.11.2009. u 23:29 · pre 206 meseci #2

Ako oćekuješ gotov zadatak možeš postaviti oglas u berzi poslova, a ovde možeš dobiti pomoć da ga samostalno uradiš.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: program u Pascalu hitno ! 12.11.2009. u 04:46 · pre 206 meseci #3

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...

Re: program u Pascalu hitno ! 12.11.2009. u 12:25 · pre 206 meseci #4

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 * :

Potpis

...... Emin .....

Re: program u Pascalu hitno ! 16.11.2009. u 23:49 · pre 206 meseci #5

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.

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme