Studia Matematyczne/Programowanie w pascalu/ Liczby pierwsze

Question

Witam dostałem zadanie i nie potrafie sie za nie zabrać. Bardzo proszę o jakąkolwiek pomoc.

Treść zadania; Napisz program, który dla danych liczb naturalnych a i b, a<b wypisuje liczbę liczb pierwszych z przedziału [a,b]. W rozwiązaniu wykorzystać funkcję z ćwiczeń testującą czy dana liczba naturalna jest pierwsza

 

Kod z poprzedniego zadania który w którym wpisuje się liczbę a program pokazuje wszystkie liczby pierwsze aż do podanej cyfry.
 

Program prime;
var a,i:longint;
Function prime(n:longint):boolean;
var d:longint;

begin
d:=2;
    while ((d<n) and (n mod d <>0)) do
        begin
            d:=d+1;
        end;
    if d=n then prime:=true
        else prime:=false;
end;

begin
    write('a='); readln(a);
    for i:=0 to a do writeln (i,'  ', prime(i));
end.

 

Answer 1

Stwórz 2. nowe zmienne

Zamiast wypisywać liczby pierwsze, możesz je zliczyć.

W pierwszej zmiennej zlicz ile jest liczb pierwszych od 2 do a, w drugiej zmiennej zlicz ile jest liczb pierwszych od 2 do b.

Na koniec odejmij b-a i to będzie wynik.

Comments

Robię to w ciemno nie wiem czy zadziała ;p

Program prime;
var a, b, i, n1, n2 :longint;
Function prime(n:longint):boolean;
var d:longint;
 
begin
d:=2;
    while ((d<n) and (n mod d <>0)) do
        begin
            d:=d+1;
        end;
    if d=n then prime:=true
        else prime:=false;
end;
 
begin
    n1:=0;
    write('a='); readln(a);
    write('b='); readln(b);
    for i:=0 to a do
        begin
        if prime(i)=true then n1:=n1+1;
        end;
    n2:=0;
    for i:=a to b do
        begin
        if prime(i)=true then n2:=n2+1;
        end;
    
     writeln(n2);
           
end.

Tutaj zamiast w drugiej zmiennej zliczyć liczby pierwsze od 2 do b wziąłem już ilość tych liczb z 2 do a i zacząłem sprawdzanie tych liczb od a do b, czyli od razu mi wyszła różnica. Mam nadzieję, że pomogłem.

---

Dziekuję bardzo za pomoc.