Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[Turbo Pascal] Schemat blokowy programu.

łuba 28 Lut 2010 19:33 2211 2
  • #1 28 Lut 2010 19:33
    łuba
    Poziom 8  

    Witam
    Mógłbym prosić kogoś o sprawdzenie tego schematu blokowego? O ile co do działania programu nie mam wątpliwości to już co od schematu nie jestem pewien czyt wszystko sobie dobrze wyrysowałem. Poniżej zamieszczam kod źródłowy i schemat.

    Code:

    program liczby_pierwsze;
    uses Crt;
    var
    n,i:integer;
    lp:boolean;
    begin
    lp:=true;
    writeln('Podaj liczbe: ');
    readln(n);
    clrscr;
    for i:=2 to n-1 do
    if (n mod i)=0 then
      begin
         lp := false;
            break;
               end;

            if (lp=true) then
              begin
              writeln(n, ' jest liczba pierwsza');
              end

              else
              begin
              writeln(n,' nie jest liczba pierwsza');
               end;
                   readln;
                   end.

    [Turbo Pascal] Schemat blokowy programu.

    Poprawiłem tytuł. - arnoldziq

    0 2
  • #2 28 Lut 2010 19:48
    Dżyszla
    Poziom 42  

    Wcięcia w kodzie bardzo utrudniają odczyt.
    Do końca warunek końca pętli zapisany na schemacie nie jest tym z implementacji, aczkolwiek semantycznie się zgadza.
    Poukładaj trochę ładniej ten schemat. Poza tym OK.

    A generalnie nie ma co sprawdzać ponad n div 2 ;)

    0
  • #3 28 Lut 2010 22:41
    łuba
    Poziom 8  

    Mógłbyś mi powiedzieć, który dokładnie warunek jest źle zapisany? Zależy mi na tym aby schemat w całości odpowiadał temu co jest zapisane w kodzie programu.

    0