Pune o întrebare

Tehnologie

în 22 August 2015 | a întrebat:

Imi poate explica si mie cineva unde am gresit? limbaj de programare: pascal

program bubblesort;
type sir=array[1.100] of integer;
var V:sir;
aux, n, i:integer;
t:boolean;
begin
read(n);
repeat
t:=true;
for i:=1 to n do
begin
read(V[i]);
if >(V[i])(V[i+1])
then t:=false;
aux:=V[i];
V[i]:=V[i+1];
V[i+1]:=aux
end
until t;
for i:=1 to n do
write(V[i])

end.

3 Raportează Evaluează

Răspuns Câştigător

în 23 August 2015 | a răspuns:

L-am modificat putin. nu poti sa interschimbi v[i] cu v[i+1], mai trebuia sa iei o variabila. L-am verificat, merge.

type sir=array[1.100] of integer;
var V:sir;
aux, n, i, j:integer;
t:boolean;
begin
read(n);
for i:=1 to n do read(v[i]);
repeat
t:=true;
for i:=1 to n-1 do
for j:=i+1 to n do
if (v[i]>v[j]) then begin
t:=false;
aux:=v[i];
v[i]:=v[j];
v[j]:=aux;
end;
;
until t;
for i:=1 to n do write(V[i],' ');
readln;
end.

Răspunde

Ordonare:

2 răspunsuri:

Userul anului

în 22 August 2015 | a răspuns:

Https://en.m.wikipedia.org/wiki/Bubble_sort

Răspunde Raportează Evaluează

în 22 August 2015 | explică:

Program bubblesort;
type sir=array[1.100] of integer;
var V:sir;
aux, n, i:integer;
t:boolean;
begin
read(n);
repeat
t:=true;
for i:=1 to n do
begin
read(V[i]);
if (V[i])>(V[i+1])
then t:=false;
aux:=V[i];
V[i]:=V[i+1];
V[i+1]:=aux
end
until t;
for i:=1 to n do
write(V[i])

end.

poate de aici se intelege mai clar laughing

Răspunde Raportează Evaluează

Întrebări similare

trimisă pe 2 Septembrie 2015
MottoWasHerexDD întreabă:

Imi poate explica si mie cineva unde e greseala : program diferentainformatica; type vector=array[1.100] of integer; var V:vector; n, i, d, s, nd:integer; t:boolean; ...? (mai mult)

1 răspuns
trimisă pe 21 Ianuarie 2015
AlexMercer întreabă:

Am facut un program in pascal care imi da inversul unui nr. Toate bune si frumoase, la 0 imi da eroare, asa cum am programat, la orice nr pana in 4 cifre imi da inversul, DAR daca introduc...? (mai mult)

1 răspuns
trimisă pe 1 Septembrie 2015
MottoWasHerexDD întreabă:

Am inceput sa invat pascal de aproximativ o luna si nu am inteles fisierele. Imi poate explica si mie cineva unde am gresit aici: program maxmatrice; type matrice=array[1.100, 1.100] of...? (mai mult)

2 răspunsuri
trimisă pe 16 Octombrie 2011
Anonim86fsg întreabă:

Salut.am nevoie de ajutor la informatica. ajutor va rog mult Se considera urmatoarea declaratie : var x: array [1.10] of real; function f(n:integer): integer; var i:integer; begin f:=2 for...? (mai mult)

1 răspuns
trimisă pe 14 Octombrie 2011
NorbO întreabă:

Am urmatoarea problema si nu stiu sa o schimb in C+ + : Problema12 Se dau n cuburi numerotate 1, 2, ..., n, de laturi Li si culori Ci, i=1, 2, ..., n (fiecare culoare este codificata printr-un caracter).? (mai mult)

1 răspuns

Zelist Monitor

Întrebări recente

trimisă acum o oră
DenizAndreea întreabă:

Bună, TPU. Am pe telefon niște logo uri salvate cu svg și as vrea sa I le trimit cuiva pe email cu ftp parolat dar nu știu cum sa fac asta pe telefon. Daca știe cineva va rog sa ma ajuți....? (mai mult)

2 răspunsuri
trimisă acum 4 ore
Tomoioaga_Danut_2000 întreabă:

Bună ziua imi poate spune cineva care considera ca ar fi pretul corect pentru vanzarea unui Laptop MSI Procesor- AMD Ryzen 5 5600h 4.2 GHz Placă video- AMD Radeon RX6600M 8gb RAM- 16 GB SSD- ...? (mai mult)

2 răspunsuri
trimisă acum 19 ore
waked78 întreabă:

Cat be mult pot ridica frecventa de 60 Hz pe o amplfictie de 500mW cu rezistenta de difuzor de 30 omi Nu sunt sigur daca face logica ce spun

1 răspuns
trimisă acum 21 ore
Croco23 întreabă:

Salutare! Vi s- a întâmplat, vorbind pe Mess sau WhatsApp cu cineva, să inviți fără să îți dai seama una sau două persoane, doar atingând cu obrazul ecranul telefonului și în același timp...? (mai mult)

3 răspunsuri

Cele mai vizionate întrebări

trimisă pe 16 Ianuarie
ReddY25 întreabă:

Ce laptop-uri aveți?

32 răspunsuri
trimisă pe 21 Aprilie
Tudy000 întreabă:

Ce sistem audio de calitate si puternic de enervat vecinii cocalari recomandati pana in 2000 de lei? :)

34 răspunsuri
trimisă pe 29 Octombrie
MotoBlitz întreabă:

Salut! Am două telefoane m23 și a23, ambele 5g care au venit fără încărcător. Am primit totuși cabluri c to c și nu știu ce încărcător să iau. Fast charger sau super Fast charger. Ideea ...? (mai mult)

29 răspunsuri
trimisă pe 10 Noiembrie
Like555 întreabă:

La momentul actual pe eMAG e un laptop cu 35 mil pe eMAG, sa il iau de black friday? Adica pe 13. Dar imi e ca numai e in stoc, ce sa fac? Si de black friday cat sa fie reducerea 2 mil? Ca daca...? (mai mult)

32 răspunsuri

Remarcate de editori

RoxanaIoana108 a primit o monedă TPU pentru răspunsul:

Buna, Darius! Vreau sa îți spun pentru început ca ești un baiat minunat și ca ai tot viitorul in fata. Parintii tai se vor descurca, sunt convinsă de asta. Dacă nu ai un telefon de ultima generație,...... (mai mult)
Miruna333 a primit o monedă TPU pentru răspunsul:

Prin comunicare, comunici frumos cu persoana respectiva si vezi semne de la primele intalniri, ii descoperi personalitatea, comportamentul, cat si planurile de viitor si vezi daca acestea coincid cu...... (mai mult)
TheGentleman a primit o monedă TPU pentru răspunsul:

A încercat Ilia Ivanovici Ivanov acest lucru și parțial a reușit. A eșuat în a obține hibrizi om- cimpanzeu, dar a reușit în schimb să obțină calul Przewalski (Equus caballus przewalskii),...... (mai mult)

Categorii