FAQ
Reklama
Kontakt
Start
Forum
Arytmetyka i procedury numeryczne
Pascal
Dodaj odpowiedź z cytatem :Pascal
Start
Algorytmy
Struktury danych
Kurs algorytmiki
Praktyka
Wzorce projektowe
Prawo IT
Mapa serwisu
Historia strony
Współautorzy
Forum
Narzędzia
Napisz artykuł
Szukaj
Użytkownik
Hasło
Pamiętaj mnie
Przypomnieć login/hasło?
Nie masz konta?
Zarejestruj się
Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
Wspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki
Sonda
Implementacji w jakim języku programowania poszukujesz?
C/C++
C#
Delphi/Pascal
Java
Java Script
Python
Php
Inny
Dodaj odpowiedź z cytatem :Pascal
Nazwa użytkownika
Temat:
[Romek 25-01-2014 15:16:01]:
Dla trzecich potęg nie ma rozwiązania. <br>Dla czwartych potęg są trzy rozwiązania.<br> <pre> {$B-} program TestSumy4pot; uses CRT; { Turbo Pascal ver 5.5 } type str4 = string[4]; var sss : str4; a,b,c,d,err,i,j : integer; sukces : boolean; function iStr( iii : longint ): Str4; var ssss : str4; begin Str( iii, ssss ); iStr:= ssss; end; begin writeln(' Szukanie wszystkich liczb 4-ro cyfrowych, dla ktorych'); writeln(' suma czwartych poteg cyfr tej liczby jest rowna tej liczbie.'); sukces := false; for i:=1111 to 9999 do begin sss := iStr( i ); Val( sss[1], a, err ); Val( sss[2], b, err ); Val( sss[3], c, err ); Val( sss[4], d, err ); j := a*a*a*a + b*b*b*b + c*c*c*c + d*d*d*d; if i = j then begin sukces := true; writeln( a,'^4 + ', b,'^4 + ', c,'^4 + ', d,'^4 = ',i ); end; end; if NOT sukces then writeln(' Nie zanleziono '); readln; end. </pre>
Kod:
Podgląd
Zapisz
Anuluj
Dodaj odpowiedź z cytatem :Pascal
User
2015-01-01 12:00:00
Powered by
ccBoard
www.algorytm.org (c) 2000-2016