Acasa | Trimite referat | Cere referat | Contact

Referat Probleme info

Probleme info

Categorie: Referate Informatica

Referat downloadat de: 234 ori.

Cauta referat dupa: probleme info

Descriere referat:

Problema 1 Se dau n ora?e. Se cunoa?te distan?a dintre oricare dou? ora?e. Un distribuitor de carte caut? s?-?i fac? un depozit �n unul dintre aceste ora?e. Se cere s? se g?seasc? traseul optim de la depozit c?tre celelalte ora?e astfel �nc�t distan?a total? pe care o va parcurge pentru a distribui �n toate celelalte n-1 ora?e s? fie minim?. S? se precizeze care ar fi ora?ul �n care s? se afle depozitul pentru ca toate celelalte ora?e s? fie u?or accesibile {din acel centru de depozitare s? se poat? pleca spre c�t mai multe alte ora?e}. Rezolvare: program ora?_depozit; uses crt; type muchie=record vf1, vf2, cost:integer; end; type vector=array[1..100] of longint; vector1=array[1..100] of muchie; matrice=array[1..50,1..50] of longint; var n, i, j, k, v, cost:integer; s, t:vector: x:vector1; a:matrice; f:text; procedure citire; var i, j, m:integer; begin assign (f, �depozit.txt�); reset (f); readln (f, n); m:=0; while not eof(f) do begin inc(m); read (f,x[m].vf1); read (f,x[m].vf2); read (f,x[m].cost); end; for i:=1 to m do begin a[x[i].vf1, x[i].vf2:=x[i].cost]; a[x[i].vf2, x[i].vf1:=x[i].cost]; end; writeln (�matricea costurilor este:�); for i:=1 to n do begin for j:=1 to n do write (a[i,j], � �); writeln; end; end; procedure prim; var i, j, min:integer; begin for i:= to n do s[i]:=v; s[v]:=0 for i:=1 to n do t[i]:=0; cost:=0; for k:=1 to n-1 do begin min:=maxint; for i:=1 to n do if (s[i]<>0) then if (a[s[i], i]0) then begin min:=a[s[i], i]; j:=1; end; t[j]:=s[j]; cost:=cost+a[j, s[j]]; s[j]:=0 for i:=1 to n do if (s[i]<>0) then if (a[i,s[i]]=0) or (a[i,s[i]]>a[i,j]) then if a [i,j]<>0 theen s[i]:=j; end; end; function fii(x:integer):integer; var k:integer; begin k:=0; for i:=1 to n do if t[i]=x then inc(k); fii:=k; end; procedure tata(v:integer); var i:integer; begin for I:=1 to n do if t[v]=i then begin t[i]:=v; t[v]:=0; end; end; procedure ora?; var max,i,j:integer; begin max:=0; for i:=1 to n do if fii(i)>max then max:=fii(i); writeln(�orasele optime sunt:�) for i:=1 to n do if fii(i)=max then begin write(i,� �); tata(i); write (�vectorul tata este:�); for j:=1 to n do write(t[j], � �); writeln; end; end; begin clrscr; citire; writeln(�dati vf de pornire�) ; readln(v) ; prim ; writeln(�costul arborelui este :�, cost) ; oras; readkey ; end. Problema 2

Alte referate din materia: Informatica

Nr.	Nume referat	Hits
1	mtSZPKbW	20
2	TkkvMlabSupl	50
3	qzpymq@dxuzju.com	147
4	email@gmail.com	269
5	pfuqxd@exjswl.com	288
6	ncqcez@hdtnnq.com	244
7	Hard	722
8	ISTORIA INTERNET-ULUI	782
9	Impera	469
10	Info Doc	524
11	Info-TIRON	467
12	Informatica - Grafica pentru web	938
13	Informatica - Introducere in HTML	711
14	Initiere in pc	701
15	Instalarea sistemului de operare Windows	593
16	Internetul ca sursa de comunicare	580
17	Istoria Internetului	617
18	Istoria calculatorului	539
19	Istoria metodelor de proiectare	359
20	Java visavis de C++	401
21	Java vizavi de C	333
22	LIMBAJUL DE PROGRAMARE PASCAL - Programul defineste tipul salariat, o inregistrare cu variante, valorile citite fiind salvate in fisierul salariat.dat	0
23	Limbajul C	413
24	Lista vinuri prg	322
25	Lotus software	293

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