De elaborat un subprogram ce determina daca un numar este prim.
Turbo Pascal
Răspunsuri la întrebare
Răspuns de
1
uses crt;
function Prim(a:longint):boolean;
var i:longint;
f:boolean;
begin
if a<2 then f:=false
else
begin
f:=true;
i:=2;
while (i*i<=a) and f do
if a mod i=0 then f:=false
else i:=i+1;
end;
Prim:=f;
end;
var n:integer;
begin
clrscr;
writeln('Introduce-ti un numar natural n=');
readln(n);
if Prim(n)then writeln('Prim')
else writeln('Nu este prim');
readln
end.
grigore2018:
Daca doresti poti sa scopi uses crt si clrsr dar daca doresti sa il la-si il activezi Shift+F9
bine, multumesc mult :*
Cuvântul cheie USES indică programului că este necesar să se conecteze un modul extern suplimentar iar Crt este unul dintre mudulele standart
nu stiam asta, defapt nici nu mi sa predat asa ceva
tu cati ani ai?
Iar longint este o variabila la fel ca si integer,real cu intervalul cuprins intre -2147483648 si 2147483648.Dar uses crt nu este obligatoriu sa cunostiu
La moment 15 insa peste o zi 16 ani
si eu am 17, dar cu un nivel de informatica mai scazut :))
Foloseste acest program si o sa intelegi uses crt si clrscr:
uses crt;
var i:byte;
begin
for i:=1 to 10 do
writeln('*********');
writeln('Scrie ceva');
readln;
clrscr;
writeln('Ecranul este curat');
end.
uses crt;
var i:byte;
begin
for i:=1 to 10 do
writeln('*********');
writeln('Scrie ceva');
readln;
clrscr;
writeln('Ecranul este curat');
end.
bine, multumesc
Alte întrebări interesante
Ed. tehnologică,
8 ani în urmă
Matematică,
8 ani în urmă
Fizică,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
9 ani în urmă
Limba română,
9 ani în urmă