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 10 ore
NicVal74 întreabă:

Va Salut! am acest sistem Fujitsu EsPRiMO P2550, intampin probleme la sunet imi apare in dreapta jos difuzorul cu cruce rosie pe el si imi scrie No Speackers or headphones are plugged in! specific ca...? (mai mult)

4 răspunsuri
trimisă acum 14 ore
lucadaviddumitru întreabă:

Am un calculator cu placa video incorporata oare asi putea pune una proprie deoarece în calculator toate componentele funcționează mai puțin urâtă aia de placa video

2 răspunsuri
trimisă acum 20 ore
Marie308 întreabă:

Problema laptop, cand intru la fisiere unde scrie disc local mi-a aparut semnul exclamarii galben, stiti cum il pot elimina?

6 răspunsuri
trimisă acum 20 ore
starduster întreabă:

Salut, de ce va timp am probleme cu televizorul meu smart Samsung, de cand i- am făcut un update televizorul rămâne fără canale și trebuie să le instalez încontinuu, iar câteodată rămâne...? (mai mult)

2 răspunsuri

Cele mai vizionate întrebări

trimisă pe 3 August
anonim_4396 întreabă:

Salut! Am o problema la laptop. Mă poate ajuta cineva cu o părere? Dacă da, scrie-mi în privat. Mulțumesc!

10 răspunsuri
trimisă pe 7 August
Richard2003 întreabă:

Am primit un mail prin care spune că am fost infectat cu un spywear (Pegasus) și că are informații și video cu mine că am accesat site- uri pentru adulți, cere răscumpărare in caz contrar va ...? (mai mult)

39 răspunsuri
trimisă pe 18 Iulie
Giulia943 întreabă:

Ce laptop îmi recomandați? Am nevoie de el pentru cursuri și ore online, și pentru a scrie documente. Să se încadreze undeva la maxim 2.000 de lei.

32 răspunsuri
trimisă pe 3 Septembrie
ZappyTV01 întreabă:

Salut, mai folosește cineva browserul NetSpace că eu îl folosesc pe un Celeron cu 2GB DRAM și internet prin cablu și vreau să știu dacă sunt singurul de pe aici!

21 răspunsuri

Remarcate de editori

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

Nici una, exista o directiva a EU impotriva "turismului pentru obtinerea permisului de conducere" cum- i zic ei. Pe scurt faci scoala si poti da de permis numai dupa ce esti inregistrat ca rezident...... (mai mult)
AndaAlexandra a primit o monedă TPU pentru răspunsul:

Încrederea se pierde cel mai ușor și se castiga cel mai greu. Părinții tăi au nevoie de timp. I- ai dezamagit. Trebuie să vadă că nu mai faci aceleași greșeli. Chiar daca uneori nu vrem sa acceptam,...... (mai mult)
Raluu1234 a primit o monedă TPU pentru răspunsul:

Nu s- ar întâmpla nimic, doar că trebuie să fii sincer cu tine și să te întrebi dacă tu chiar îl vei da în sesiunile viitoare. Adică ar trebui chiar să înveți pe bune și să- l iei. Dar...... (mai mult)

Categorii