Turbo Pascal
 
Szukanie zaawansowane
   
 
Home Rejestracja FAQ Użytkownicy Grupy Galerie  
 
 


Forum Turbo Pascal Strona Główna Pytania Dwie operacje wykonywane na raz
Wyświetl posty z ostatnich:   
       
Napisz nowy temat  Odpowiedz do tematu

Pon 12:12, 20 Lut 2006
Autor Wiadomość
Tubus
Średnio zaawansowany



Dołączył: 20 Lut 2006
Posty: 21
Przeczytał: 0 tematów

Ostrzeżeń: 0/3

Temat postu: Dwie operacje wykonywane na raz

Witam
Programuje od niedawna, ale mam pytanie. Czy jest możliwe, aby dwie operacje (w moim przypadku pętla i read) mogły by być wykonywane równocześnie? bo jeśli przed pętlą wstawie read, pętla uruchomi sie dopiero dgy coś wpisze i wcisne enter, a chiałbym żeby licznik (napisany w pętli) po podaniu odpowiedniej odpowiedzi przez gracza (ta gra to teleturniej) wyświetlał ile czasu zajęła mu odpowiedź, ale gdy read wstawiłbym przed pętlą, pętla włączyłaby sie dopiero po odpowiedzeniu na pytanie ale nic by nie zrobiła, gdyż warunek jej końca się spełnił, a gdyby read wstawić po niej, to wtedy nie można by było nic wpisać. Bardzo proszę o pomoc i z góry dziękuję.


Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  
Pon 13:27, 20 Lut 2006
Autor Wiadomość
leogas
Początkujący



Dołączył: 18 Lut 2006
Posty: 16
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Skąd: Piła

Temat postu:

Chcesz żeby gracz podał odpowiedz a komputer zmierzył ile mu to zajeło tak :)

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Pon 13:31, 20 Lut 2006
Autor Wiadomość
Tubus
Średnio zaawansowany



Dołączył: 20 Lut 2006
Posty: 21
Przeczytał: 0 tematów

Ostrzeżeń: 0/3

Temat postu:

chodzi o to żeby mierzyło czas podczas odpowiadania, a na koniec wyświetliło ile mu to zajęło

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Pon 13:52, 20 Lut 2006
Autor Wiadomość
leogas
Początkujący



Dołączył: 18 Lut 2006
Posty: 16
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Skąd: Piła

Temat postu:

Chyba chodzi ci o to :D
Kod:
program stoper;

uses dos;

var
  x : real;

function czas : real;

var
  g, m, s, s100 : word;

begin
  GetTime(g, m, s, s100);
  czas := (g * 60 + m) *60 + s + s100/100;
end;

begin
  x := czas;
  writeln('Odpowiedz na pytanie : ');
  readln;
  x := czas - x;
  writeln('Odpowiedzenie na pytanie zajelo ci ', x:6:3, ' sekund');
end.


Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Pon 15:57, 20 Lut 2006
Autor Wiadomość
Tubus
Średnio zaawansowany



Dołączył: 20 Lut 2006
Posty: 21
Przeczytał: 0 tematów

Ostrzeżeń: 0/3

Temat postu:

dzięki, o to mi chodziło ;) Jak skończę całą grę to zamieszcze na forum ;);)

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  
Napisz nowy temat  Odpowiedz do tematu

 
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach


      Do góry  

Strona 1 z 1
Skocz do:  
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2002 phpBB Group
Avalanche style by What Is Real © 2004
             
Regulamin