pomoc s pascalom(treba spravit jeden priklad)

• Citovať príspevok

Príspevok od používateľa boarderpp » 14 dec 2006, 21:03

nedostal som zadanie ze si mozem vybrat ake chcem, na odpocitavanie sekund by ste mohli hodit

to je uloha z VYT ,som druham na sps.
treba mi to na papiery uz dnes!!!...takze cakam na dobru dusu:-)

Re: pomoc s pascalom(treba spravit jeden priklad)

• Citovať príspevok

Príspevok od používateľa audiotrack » 14 dec 2006, 21:08

boarderpp napísal:nediostal som zadanie ze si mozem vybrat nie na odpocitavanie sekund by ste mohli hodit

Preloží mi to niekto?

Re: pomoc s pascalom(treba spravit jeden priklad)

• Citovať príspevok

Príspevok od používateľa Cenayus » 14 dec 2006, 21:17

• Citovať príspevok

Príspevok od používateľa ppt » 14 dec 2006, 21:23

Pokus o preklad: Potrebuje program, ktory bude odpocitavat cas. (zeby od zadanej hodnoty do nuly? ) Moj pokus:

Kód: Vybrať všetko

program odpocitavanie;
uses crt;
var cas:integer;
BEGIN
readln(cas);
while (cas>0) do
begin
cas:=cas-1;
delay(1000);
clrscr;
write(cas);
end;
clrscr;
write('0. Cas uplynul');
END.

Uff, tak to som ani nevedel, ako sa da pascal za polroka zabudnut. Nemam to odskusane, ale takto (ak tam nie je chyba) by to mohlo ist.

//edit: to audiotrack: nehadam sa . S pascalom som uz polroka nerobil. A chcel som byt trosku skor ako ty.

//audiotrack: nabudúce kto urobí program skôr ako ja alebo mastermind dostane basu

• Citovať príspevok

Príspevok od používateľa audiotrack » 14 dec 2006, 21:24

Kód: Vybrať všetko

program sekundy;
uses crt;
var cas:integer;
begin
clrscr;
write('Zadaj cas: ');
read(cas);
while cas>=0 do begin
  clrscr;
  write(cas);
  delay(1000);
  cas:=cas-1;
  end;
repeat until keypressed;
end.

Jednoduchšie snáď už ani nemohlo byť

//ppt: trochu si ma predbehol, ale moje riešenie je krajšie

• Citovať príspevok

Príspevok od používateľa boarderpp » 14 dec 2006, 21:40

• Citovať príspevok

Príspevok od používateľa audiotrack » 14 dec 2006, 21:44

• Citovať príspevok

Príspevok od používateľa boarderpp » 14 dec 2006, 21:45

• Citovať príspevok

Príspevok od používateľa audiotrack » 14 dec 2006, 21:47

program sekundy;
uses crt;
var cas:integer;
begin
clrscr;
write('Zadaj cas: ');
read(cas);
while cas>=0 do begin
  clrscr;
  write(cas);
  delay(1000);
  cas:=cas-1;
  end;
write('Sem zadaj svoj text');
repeat until keypressed;
end.

• Citovať príspevok

Príspevok od používateľa ppt » 14 dec 2006, 21:48

boarderpp napísal:hej len na zaciatku zadam pocet sekund a na konci mi vypise niejaky text??? lebo ten konec nevidim

Zadas pocet sekund a na konci sa ti vypise nula.

//edit: no toto

• Citovať príspevok

Príspevok od používateľa boarderpp » 14 dec 2006, 21:49

• Citovať príspevok

Príspevok od používateľa ppt » 14 dec 2006, 21:50

• Citovať príspevok

Príspevok od používateľa audiotrack » 14 dec 2006, 21:51

• Citovať príspevok

Príspevok od používateľa boarderpp » 14 dec 2006, 21:51

zmazat to nemozem??? musi to tam byt?
co sa stane ak to zmazem

//audiotrack: viď môj post
//dakujem vam vsetkym za pomoc

• Citovať príspevok

Príspevok od používateľa snake2 » 15 dec 2006, 13:32

[quote="boarderpp"]zmazat to nemozem??? musi to tam byt?
co sa stane ak to zmazem
mozes namiesto toho

Kód: Vybrať všetko

repeat until keypressed;

pouzit jednoducho

Kód: Vybrať všetko

readln;

ale jednoznacne tam jdno z tychto 2-och mosi byt !

• Citovať príspevok

Príspevok od používateľa zvonenie33 » 16 dec 2006, 19:49