Skocz do zawartości


Zdjęcie

[vb .net]Algorytmy + struktury danych


  • Zamknięty Temat jest zamknięty
2 odpowiedzi w tym temacie

#1 Norbert Araźny

Norbert Araźny

    Początkujący

  • 25 postów

Napisano 06 11 2007 - 22:00

Witam potrzebuje przetłumaczycz ten kod na kod w visualu basicu net. 2005
Chodzi mi o programik w visualu ktory znajduje i wypisuje liczyby doskonałe w przedziale AB
Czy mógłby mi ktos pomóc z tym. Potrzebuje też do tego schemat blokowy. Z góry wielkie dzieki

Procedure Zad3;
{3. program ktory znajduje i wypisuje wszystkie liczby doskonala od 1 do 1000}
Var
Suma,Liczba,Mozliwosci:LongInt;
Begin
writeln('Liczby doskonale od 1 do 1000:');
For Liczba:=1 to 1000 do
Begin
Suma:=0;{Poczatkowa wartosc sumy=0}
Mozliwosci:=0; {ustala wstepna wartosc mozliwosci.. dzielenie przez wszystkie liczby od 1
do 1 mniej niz podana liczba}
While Mozliwosci< Liczba-1 do
Begin
Inc(Mozliwosci); {zwiekszenie zmiennej mozliwosci o 1}
if Liczba mod Mozliwosci=0 then
Suma:=Suma+Mozliwosci;{dodajemy dzielniki}
end;
If Suma=Liczba then write(Liczba,',');
End;
writeln('wcisnij < Enter> , aby kontynuowac...');
readln;
End;


  • 0

#2 Chirurg

Chirurg

    Początkujący

  • 31 postów

Napisano 07 11 2007 - 23:28

Hm VB .net raczej mi obcy ale schemacikiem służę :)
Ten akurat sprawdza zadaną liczbę, ale myślę że nie bedzie problemu z dodaniem przedziału liczb.

Dołączona grafika

  • 0

#3 Norbert Araźny

Norbert Araźny

    Początkujący

  • 25 postów

Napisano 08 11 2007 - 07:32

Dzieki

  • 0

Zobacz więcej tematów z tagiem: schemat blokowy Visual Basic



Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych