> program matr_cit_afis; var a:array[1..50,1..50] of integer; n,m,i,j:integer; begin write(‘nr linii=’);readln(n); write(‘nr coloane=’);readln(m); for i:=1 …
-
-
>Calculeaza media aritmetica a elementelor dintr-un vector. program media_arit; var v:array[1..50]of integer; n,ma,i,nr,s:integer; begin write(‘n=’);readln(n); …
-
>Se citesc 3 numere a, b, c din fisierul triunghi.txt si se determina tipul de …
-
> uses Graph; type trect = record x,y:integer; end; var grDriver: Integer; grMode: Integer; ErrCode: …
-
> program cautare; var v:array[1..50]of integer; n,i,x:integer; ok:boolean; begin write(‘n=’);readln(n); for i:=1 to n do …
-
> {Afiseaza toate numerele prime pana la n} program nrprime; var n:integer; function prim(nr:integer):boolean; var …
-
> {Programul rezolva cu ajutorul subprogramelor minimul unui vector, maximul sau, prcum si pe cele …
-
> {maxim dintr-un vector cu divide et impera} program maxim; var v:array[1..10] of integer; n,i:integer; …
-
> {turnurile din Hanoi} program hanoitowers; var a,b,c:char; n:integer; procedure han(n:integer; a,b,c:char); begin if n=1 …
-
{sortare prin interclasare – divide et impera} program sortare; type vector=array[1..10] of integer; var a:vector; …