algorytm.org

Pascal



Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
darowiznaWspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki






Sonda
Implementacji w jakim języku programowania poszukujesz?

Forum www.algorytm.org :: Arytmetyka i procedury numeryczne
Witaj Gość   
[Zarejestruj się]  
[Zaloguj się]
Zamieść odpowiedź
 Pascal

Mam do zrobienia coś takiego
Wprowadź wszystkie liczby 4-ro cyfrowe dla których suma trzecich potęg cyfr jest równa tej liczbie
Może mi ktoś powiedzieć jak to zrobić?
Cytuj
<br /> Prosze o usunięcie
Cytuj
skasowany przez autora z powodu źle sformatowanego listingu
Cytuj
Dla trzecich potęg nie ma rozwiązania.
Dla czwartych potęg są trzy rozwiązania.


{$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.
Cytuj
Administratora proszę o usunięcie źle sformatowanych listingów i poprawienie działania formularza
Cytuj
Zamieść odpowiedź Strona # 
Szybka odpowiedź

Kod:    


Powered by ccBoard