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
->
rzeczy ktorych nie bralismy:)
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: Czw 15:58, 07 Lut 2008
Temat postu: SILNIA, dzialajaca, i latwiejsza chyba;)
program silnia ;
var a , wyn, sil : integer ;
begin
writeln('podaj liczbe ktorej silnie mam obliczyc');
readln(sil); {wczytuje podana liczbe jako zmienna 'sil'}
wyn:=1; {za zmienna wynik przypisuje liczbe 1}
for a:=1 to sil do {petla zakancza sie gdy zmienna a=sil}
wyn:=wyn*a; {za zmienna wyn przypisuje wyn*a}
writeln(wyn); {wyswiela zmienna WYN}
readln;
end.
program napisany (skopiowany) przez marcina niestety nie dziala.
a ten dziala:D
jak obliczyc silnie "recznie?"
jezeli chcemy obliczyc silnie liczby 5 dzialanie wyglada tak:
1*2*3*4*5, a wiec silnia liczby 5 wynosi 120;)
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin