Subprograme. Funcții by Maia Porombrica

Manual verde

matematica_salcuta — 2022-11-30 10:02:51 UTC

PROBLEMA Cel mai mare divizor comun

matematica_salcuta — 2022-11-30 10:08:05 UTC

Să scriem un program care să calculeze cel mai mare divizor comun a două numere. În acest scop, vom utiliza o funcţie, care va avea două argumente: numerele întregi a şi b. În urma algoritmului, a şi b se modifică, însă acest lucru nu vrem să fie transmis înapoi în programul principal, aşa încât nu vom folosi cuvântul rezervat var în faţa identificatorilor. În partea stângă a textului programului am numerotat instrucţiunile, în ordinea în care se execută ele.

Soluție/programa

matematica_salcuta — 2022-11-30 10:10:40 UTC

program CalculCMMDC;
function CMMDC(a,b: Integer): Integer;
begin
while a<>b do
if a>b then a:=a-b
else b:=b-a;
CMMDC:=a
end;
var x,y: Integer;
begin
x:=20; y:=24;
WriteLn(CMMDC(x,y))
end.

Rezultatul afițat

matematica_salcuta — 2022-11-30 10:11:28 UTC

Resursa:

matematica_salcuta — 2022-11-30 10:12:40 UTC

Pagina 4 (89)

Se dă un vector cu n (1<= n<=100). Să se afișeze componentele prime.

2022-11-30 10:14:34 UTC

matematica_salcuta — 2022-11-30 10:14:37 UTC

Programa

2022-11-30 10:17:18 UTC

program Subpr1;
type tablou=array [1..100]of integer;
var a:tablou;
i,n:byte;
procedure cit_tablou(var t:tablou; var dim:byte);
var j:byte;
begin
write('Dimensiunea vectorului:');
readln(dim);
for j:=1 to dim do begin
write('Componenta',j,':');
readln(t[j]);
end;
end;
function prim(x:integer):boolean;
var j:integer;
f:boolean;
begin
f:=true; j:=1;
repeat
inc(j);
if x mod j=0 then f:=false;
until (j>x div 2) or (not f);
if x=1 then f:=false;
prim:=f;
end;
Begin
Cit_tablou(a,n);
for i:=1 to n do
if prim(a[i]) then write(a[i],' ');
end.

Rezultatul afișat

2022-11-30 10:18:45 UTC

Resurse

2022-11-30 10:21:11 UTC

Manual Verde

Proceduri si functii p.77

matematica_salcuta — 2022-11-30 10:24:09 UTC

PROGRAMA

2022-11-30 10:39:32 UTC

program Subpr2;
type tablou=array[1..100] of integer;
var a:tablou;
i,n,t:byte;
b:[1..4] of byte;
procedure Cit_tablou (var t:tablou; var dim:byte);
var j:byte;
begin
write ('Dimensiunea vectorului:');
readln(dim);
for j:=1 to dim do begin
write('Componenta',j,':');
readln(t[j]);

end;
end;
function nc(x:integer) :byte;
var i,nr_cifre,intreg:integer;
begin
i:=1; nr_cifre:=0;
repeat
intreg:=trunc(a/10*i));
i:=i*10;
inc(nr_cifre);
until intreg =0;
nc:=nr_cifre;
end;
BEGIN
ClrScr
Cit_tablou(a,n);
for i:=1 to n do begin
t:=nc(a[i]);
inc(b[t]);

end;
for i:=1 to 4 do
writeln('Componente cú ',i,'cifre'',b[i];
END.

Resursă: Pag 47

2022-12-07 10:06:09 UTC

Problema

2022-12-07 10:09:21 UTC

Se dă un vector cu n (1<= n<=100). Să se afișeze componentele de tip întreg

Program P1; Uses crt; Var x,y: integer; Begin Clrscr; Writeln('Introduceti doua numere intregi:'); Write('x='); Readln(x); Write('y='); Readln(y); x:=x+100; y:=y+100; Write('Numerele marite cu 100: '); Writeln('x=',x,' ','y=',y); Readke

2022-12-07 10:21:21 UTC

2022-12-07 10:35:11 UTC

ABC Pascal

2022-12-14 09:52:49 UTC

var i,n,s : integer;

f : boolean;

begin

repeat

write('Introduceţi un număr natural n=');

readln(n);

until n>2;

if n mod 2=0 then f:=false else f:=true;

write('s=');

for i:=1 to n-2 do

if(not f) and (i mod 2 =0)then write('*',i)

else

if f and (i mod 2<>0)then write('*',i);

writeln('*',n);

end.

RESURSE

2022-12-14 09:53:07 UTC

Problema

2022-12-14 09:53:46 UTC

Creaţi un program care afişează următoarea funcţie.

Rezultatul

2022-12-14 09:54:36 UTC

Introduceţi un număr natural n=6
s=*2*4*6

PROBLEMA

2022-12-14 09:56:31 UTC

Program

2022-12-14 10:00:41 UTC

Rezultat

2022-12-14 10:01:21 UTC

Resurse

2022-12-14 10:03:48 UTC

Manual Verde

REZULTAT

2022-12-14 10:05:00 UTC