Skocz do zawartości

[Turbo Pascal] Plan lekcji z GetTime i GetDate


kanalia

Polecane posty

Witam!

Mam napisać program, który wyświetla godzinę, rozpoznaje dzień tygodnia, porównuje obecną godzinę i wyświetla aktualną i następną lekcję.

 

Na razie mam tyle:

 

program plan_lekcji_get;
uses CRT, Dos;
var
a:array[1..5]of array[1..8]of String;
rok, mies, dzien, dt, godz, min, sek, sek100  : word;
godzmin : integer;
begin
clrscr;
//Poniedzialek
a[1,1]:='Godz. Wychowawcza';
a[1,2]:='PTI';
a[1,3]:='Fizyka';
a[1,4]:='Met. Programowania';
a[1,5]:='Religia';
a[1,6]:='Niemiecki';
a[1,7]:='Angilski';
//Wtorek
a[2,1]:='Historia';
a[2,2]:='Matematyka';
a[2,3]:='J. Polski';
a[2,4]:='UTK';
a[2,5]:='PTI';
a[2,6]:='Met. Programowania';
a[2,7]:='WF';
//Sroda
a[3,1]:='Kultura';
a[3,2]:='J. Polski';
a[3,3]:='Matematyka';
a[3,4]:='Biologia';
a[3,5]:='UTK';
a[3,6]:='PTI';
a[3,7]:='Met. Programowania';
a[3,8]:='Met. Programowania';
//Czwartek
a[4,1]:='WF';
a[4,2]:='WF';
a[4,3]:='PO';
a[4,4]:='UTK';
a[4,5]:='PTI';
a[4,6]:='J. Polski';
a[4,7]:='Met. Programowania';
//Piatek
a[5,1]:='Geografia';
a[5,2]:='Matematyka';
a[5,3]:='Niemiecki';
a[5,4]:='Angielski';
a[5,5]:='Fizyka';
a[5,6]:='Religia';
a[5,7]:='Chemia';
GetDate(rok, mies, dzien, dt);
GetTime(godz, min, sek, sek100);
  //tutaj chce w jakis sposob zapisac godzine w (godzmin) godz,min by byla
  //porownywalna w dalszej czesci programu w latwiejszy sposob
Writeln ('Teraz jest godzina: ' godzmin);
Readkey;
if dt=0 or 6 then   //sobota i niedziela
Writeln('Nie ma dzis lekcji')else
   	begin
   	if dt=1 then
           	begin
           	if (godzmin>=8) and (godzmin<=8,45) then
           	Writeln('Teraz jest: ',a[1,1],'a potem bedzie ', a[1,2]);
           	//itd.
           	end;
   	end;
Readkey;
end.

Prosiłbym o jakieś nakierowanie.

Link do komentarza
Udostępnij na innych stronach

A w czym Ciebie mamy nakierowac? Bo jak coś można doradzić póki co to przede wszystkim polecam po ludzku formatować kod i zrobić taki program w WinAPI po poznaniu podstaw lub nawet w Delphi pod VCL, żeby miał jakiś standardowy ale przynamniej w miarę ładny graficzny interface, a nie konsola.

Pozdrawiam: olesio

Link do komentarza
Udostępnij na innych stronach

Ja bym zrobil kolejna tablice z 3 kolumnami. Pierwsza z godzina zaczecia, druga zakonczenia i trzcia z indeksem przedmiotu.

8:00 8:45 1
8:46 8:50 0
8:51 9:35 2
9:36 9:40 0

 

Potem:

for x:=1 to LiczbaElementow3Tablicy do
if godzina > b[x,1] and godzina < b[x,2] then
 IndexPrzedmiotu := b[x,3]
 break
else text := "w tej godzinie nie ma lekcji"
if IndexPrzedmiotu == 0 then text := "Jest przerwa"
else text := "Jest " + a[DzienTygodnia, IndexPrzedmiotu]

 

Powienines pamietac zeby sprawdzic czy dana lekcja nie jest przypadkiem ostatnia zanim wyswietlisz nastepna (inaczej bedzie wyskakiwac blad wyjascia poza zakres tablicy)

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...