pascal

arturave OP · 05-09-2012 20:32

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ń

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

**zakius** · 05-09-2012 20:43

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

arturave OP · 05-09-2012 21:07

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

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.

LGTK · 06-09-2012 17:58

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.

Temat: pascal

Narzędzia tematu

Oceń ten temat

pascal

Informacje o temacie

Użytkownicy przeglądający temat

Podobne tematy

pascal

Pascal bmi

Pascal, pomocy!

Pascal Help! ;d

Statki pascal

Zakładki

Zakładki

Zasady postowania