www.techinf1.fora.pl
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum www.techinf1.fora.pl Strona Główna
->
dla grupy 1
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
Turbo Pascal
----------------
dla grupy 1
dla grupy 2
programiki pisane 'po godzinach'
przykladowe zadania
rzeczy ktorych nie bralismy:)
WAŻNE-ZAGLADNIJ
troche trudniejsze-wyzsza szkola jazdy
C++
----------------
C + +
Przegląd tematu
Autor
Wiadomość
isar
Wysłany: Nie 14:57, 03 Lut 2008
Temat postu: Początki- Case i nowy typ zmiennej CHAR
znamy juz if else, ale czasem lepiej to zastapic jednym 'CASE"
budowa Case:
CASE zmienna OF
i zakanczamy ja slowem
end; (koniecznie ze srednikiem)
CHAR-char jest to znak: + - * / . , itp.
a wiec zacznijmy:
PROGRAM
var znak : char;
a , b : real ;
BEGIN
writeln('podaj pierwsza liczbe');
readln(a);
writeln('podaj druga liczbe');
readln(b);
writeln('podaj jakie dzialanie chcesz wykonac?wpisujac znak: - * / +');
readln(znak);
CASE znak of
'+' : writeln('a+b= ' ,a+b);
'-' : writeln('a-b= ' ,a-b);
'*' : writeln('a*b= ' ,a*b);
'/' : writeln('a/b= ' ,a/b);
end;
readln;
end.
znacznie szybciej napiszesz takie cos "CASE'm" niz "if'em"
jesli chcial/a bys uzyc IF-else wygladalo by to tak:
if znak='+' then writeln('a+b= ' ,a+b)
else
if znak='-': then writeln('a-b= ' ,a-b)
else
....
i tak dla kazdego znaku, a wiec case jest latwiejszy w tym przypadku.
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin