Acasa | Trimite referat | Cere referat | Contact

Referat LIMBAJUL DE PROGRAMARE PASCAL - program statistica

LIMBAJUL DE PROGRAMARE PASCAL - program statistica

Categorie: Referate Informatica

Referat downloadat de: 125 ori.

Cauta referat dupa: limbajul programare pascal program statistica

Descriere referat:

LIMBAJUL DE PROGRAMARE PASCAL � program statistica Folosind tipul de date �nregistrare ?i consider�nd un e?antion social de maximum 200 persoane, s? se efectueze calculele statistice �n vederea afi??rii la terminalul de ie?ire a urm?toarelor informa?ii : - procentul de persoane av�nd v�rsta sub 18 ani; - procentul de persoane av�nd v�rsta �ntre 18 ?I 62 de ani; - procentul de persoane av�nd v�rsta peste 62 de ani; - �n?l?imea medie a b?rba?ilor �ntre 18 ?i 30 ani; procentul persoanelor c?s?torite. program statistica; CONST nr_max = 200; nec?s?torit = 1; c?s?torit = 2; divor?at = 3; vaduv = 4; TYPE persoana = record v�rst?:integer; �nal?ime:integer; statut:integer; sex:boolean; end; e?antion = array[1..nr_max] of persoana; data_file = file of persoana; VAR es,esm:e?antion; nr,nrm:integer; i,nr_barbati:integer; suma,m:real; nume_fis:string; p:real; PROCEDURE read_data( from:string; var nr:integer;var buff:e?antion ); var f:data_file; c:char; date:persoana; i:integer; begin assign(f,from); reset(f); if IOresult<>0 then begin writeln('Eroare la deschiderea fi?ierului',from); write ('Apasati o tasta pentru a opri programul: '); halt; end; i:=1; while not (eof(f)) do begin read(f,date); buff[i]:=date; inc(i); end; nr:=i-1; close(f); if nr=0 then begin writeln('Vectorul de date este vid. Program oprit. '); halt; end; end; FUNCTION c?s?toriti (n:integer;e:e?antion) : real; var i:integer; nc:integer; begin nc:=0; for i:=1 to n do if e[i].statut=c?s?torit then inc(nc); c?s?toriti:=nc/n; end; FUNCTION selecteaz?_dup?_v�rst?(n:integer; e:e?antion; lim_inf, lim_sup:integer; var nsel:integer; var sel:e?antion) : real; var nv:integer; i:integer; begin nv:=0; for i:=1 to nr_max do with sel[i] do begin v�rst?:=0; �nal?ime:=0; statut:=0; end; for i:=1 to n do if (e[i].v�rst? > lim_inf) and (e[i].v�rst? < lim_sup) then begin inc(nv); sel[nv]:=e[i]; end; nsel:=nv; selecteaz?_dup?_v�rst?:=nv/n; end;

Alte referate din materia: Informatica

Nr.	Nume referat	Hits
1	TkkvMlabSupl	10
2	qzpymq@dxuzju.com	111
3	email@gmail.com	224
4	pfuqxd@exjswl.com	249
5	ncqcez@hdtnnq.com	218
6	Hard	677
7	ISTORIA INTERNET-ULUI	745
8	Impera	423
9	Info Doc	479
10	Info-TIRON	432
11	Informatica - Grafica pentru web	892
12	Informatica - Introducere in HTML	662
13	Initiere in pc	657
14	Instalarea sistemului de operare Windows	552
15	Internetul ca sursa de comunicare	535
16	Istoria Internetului	568
17	Istoria calculatorului	491
18	Istoria metodelor de proiectare	327
19	Java visavis de C++	364
20	Java vizavi de C	299
21	LIMBAJUL DE PROGRAMARE PASCAL - Programul defineste tipul salariat, o inregistrare cu variante, valorile citite fiind salvate in fisierul salariat.dat	0
22	Limbajul C	373
23	Lista vinuri prg	284
24	Lotus software	260
25	Lumea internetului	367

Acasa Trimite referat Cere referat Adauga la favorite Seteaza ca homepage Contact libertateailuziei Trailere Filme Filme Noi Jocuri Online Jocuri Barbie Jocuri pentru Copii GameBox.ro Make Money Bucuresti regim hotelier