Skocz do zawartości

[Pascal] Złożoność czasowa algorytmu


gotetho

Polecane posty

Witam^^

Przygotowałem (z małą pomocą) taki oto kod do programu, który sprawdza czy pierwsza liczba jest wielokrotnością drugiej - Program działa, ale mam inny problem. Muszę obliczyć do niego złożoność czasową i przedstawić w postaci kodu, a nie mam zielonego pojęcia co z tym zrobić... Znajdzie się na to jakaś rada?

 

Oto kod:

 

program wielokrotnosc;
uses crt;
var
a,b,c:integer;
label start;

begin
start:
       clrscr;
       writeln('Program ustali czy pierwsza podana liczba jest wielokrotnością drugiej');
       writeln('Podaj pierwszą liczbę: ');
       readln(a);
       writeln('Podaj drugą liczbę :');
       readln(b);
       if (a<=0) or (b<=0) then
          begin
          writeln('Proszę podać TYLKO liczby naturalne');
          writeln('Spróbuj jeszcze raz...');
          delay(2000);
          goto start;
          end
       else
         if a mod b = 0 then
                begin
                c:=a div b;
                writeln('Liczba ',a,' jest wielokrotnością liczby ',b,' i jest ',c,' razy większa');
                writeln('Sukces! Jeszcze raz?');
                delay(2000);
                goto start;
                end
         else
               writeln(' ',a,' nie jest wielokrotnością ',b,' ');
               writeln('Wprowadź inne liczby...');
               delay(2000);
               goto start;
end.

 

 

Pozdrawiam gotetho

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...