Question

W TURBO PASCALU 3. Napisz program wygaszacz ekranu, który będzie rysował gwiazdki na ekranie w przypadkowych wierszach. 5. Napisz program, który będzie wyświetlał na środku ekranu zegar (uaktualniany na bieżąco) i czekał na naciśnięcie dowolnego klawisza. Program powinien sygnalizować każdą pełną godzinę. 6. Napisz program wypisujący nazwy wszystkich plików znajdujących się w danym katalogu plików o rozszerzeniu *.pas.

Answer 1

Jako ze nikt nie pomogl do tej pory, wrzucam rozwiazanie zadania 3 i 5.. z 6 nie wiem jak sobie poradzic bo nigdy nie mialem w pascalu potrzeby bawic sie z katalogami (pewnie w jakis sposob trzeba tu wykorzystac funkcje fsearch, no ale trudno..)

 

3.

Program wygaszacz;

Uses CRT;

Var
 x,y:byte;

Begin
 ClrScr;
 Repeat
  x:=1+random(80);
  y:=1+random(25);
  GotoXY(x,y);
  WriteLn('*');
 Until keypressed;
End.

 

5.

Program zegar;

Uses CRT,Dos;

Var g,m,s,s100:word;

Function z(x:word):string;
 Var wynik:string;
 Begin
  wynik:='';
  str(x,wynik);
  if x<10 then wynik:='0'+wynik;
  z:=wynik;
 End;

Begin
 ClrScr;
 Repeat
  GotoXY(35,12);
  GetTime(g,m,s,s100);
  Write(z(g),':',z(m),':',z(s));
  if (m=0) and (s<2) then
   begin
    gotoxy(33,15);
    writeln('pelna godzina!');
    delay(1000);
    gotoxy(33,15);
    clreol;
   end;
 Until keypressed;
End.

 

 

Uwagi co do rozwiazania zadania 3:

Jesli nie chcesz by ekran sie przesuwał to zmniejsz zakres losowania o 1, tj.

x:=1+random(80);
y:=1+random(25);

 

na

 

x:=1+random(79);
y:=1+random(24);

 

Uwagi co do rozwiazania zadania 5:

powiadomienie o pelnej godzinie:

if (m=0) and (s<2) then

 

mozna zamienic na

 

if (m=0) and (s=0) then

 

jak wolisz :)