pascal

Siema zapomniałem co nieco pascala i potrzebuje szybkiej odpowiedzi a mianowicie chodzi o to jak zrobić by program czytał zamiast liczby etc 1,2,3 np wrzesień

Cytuj:

---

program sprawdz_miesiac;
uses crt;

var m:integer;

begin
clrscr;

Writeln('Wpisz nazwe miesiaca by sprawdzic czy musisz sie uczyc... :)');
readln(m);

if ('m'='lipiec') or ('m'='sierpien') then write('Masz wakacje ciesz sie!!!')
else write('Czas isc do szkoly');

readln;
end.

---

#down dzięki przyda się pewnie

chyba też trzeba walnąć tablicę charów
albo i niekoniecznie
http://math.uww.edu/~harrisb/courses/cs171/strings.html

dobra znalazłem problem :p może komuś się przyda ten program ( dzięki Zakius)

Cytuj:

---

program sprawdz_miesiac;
uses crt;

var m:string;

begin
clrscr;

Writeln('Wpisz nazwe miesiaca by sprawdzic czy musisz sie uczyc... :)');
readln(m);

if (m='lipiec') or (m='sierpien') then write('Masz wakacje ciesz sie!!!')
else write('Czas isc do szkoly');

readln;
end.

---

ja bym dodał jeszcze LowerCase(m) wtedy nawet jeśli ktoś wpisze nazwę miesiąca tak SiErpien będziesz miał pozytywny wynik. Ta funkcja zmienia wszystkie litery na małe.