> {numerele lui Gigel} program nr_lui_gigel; {iterativ} type stiva=array[1..100] of integer; var st:stiva; i,n,k:integer; as,ev:boolean;…
Dragos Schiopu
Dragos Schiopu
Pasionat de tehnologie, curios, de mic demontam orice jucarie electrica/electronica sau care avea butoane. Pe ce puneam mana stricam, astazi se cheama ca le testez.
-
-
Backtracking: iesirea din labirint >Se da un labirint sub forma de matrice cu m linii…
-
Backtracking: aranjamente: > {generarea aranjamentelor} program aranjamente; {iterativ} type stiva=array [1..10] of integer; var st:stiva;…
-
> {generare permutari}program permutari;type stiva=array [1..100] of integer;var st:stiva; n,k:integer; as,ev:boolean;procedure init(k:integer;var st:stiva);beginst[k]:=0;end;procedure succesor (var…
-
> {PascalZone.uv.ro}program combinari;type stiva=array [1..10] of integer;var st:stiva; ev,as:boolean; n,k,p:integer;procedure init(k:integer;var st:stiva);begin if k>1 then…
-
Functia Manna Pnueli recursiv > program manna_pnueli; var x:integer; function manna(x:integer):integer; begin if x>=12 then…
-
> program mm135_8;type vector=array[1..100] of integer;var v,u,p:vector;i,n:integer;function produs(a:integer):integer;var prod:integer;beginif a>n then prod:=0else prod:=produs(a+1)+v[a]*u[a];produs:=prod;end;beginwrite(‘n=’);readln(n);writeln(‘Citire si afisare…
-
>Din fisierul in.txt, de pe fiecare linie sunt sterse toate caractere cu exceptiaprimului si ultimului.…
-
>Verifica daca un cuvand dat de la tastatura este sau nu palindrom. program cuv_palindrom; var…
-
>Verifica daca 2 cuvinte citite dintr-un fisier textsunt sau nu anagramate. program anagrame;var f:text; s,t:string;{functia…