łuba Napisano Marzec 1, 2010 Zgłoś Share Napisano Marzec 1, 2010 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. 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. Link do komentarza Udostępnij na innych stronach More sharing options...
PSPascal Napisano Marzec 1, 2010 Zgłoś Share Napisano Marzec 1, 2010 Schemat blokowy jest OK I nie kłamię, sprawdzałem za pomocą programu ELI. Btw to jest twój program, czy z jakiegoś kursu? Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.