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 6 ore
Dani66 întreabă:

Salut! Am și eu o problemă cu un pc, cred că are ceva ars în el se aprinde unitatea dar nu se aprinde efectiv monitorul adica am probat și la un televizor problema îi la pc aveți ceva păreri ce...? (mai mult)

1 răspuns
trimisă acum 8 ore
If01shk întreabă:

Salutare am un mp5 7018B Cu motorul oprit merge perfect. Cind pun contactul ecranul se blochează pe Reversing.În setări la parking am bifat off și tot așa face. Știe cineva mai multe.Cum pot rezolva...? (mai mult)

0 răspunsuri
trimisă pe 30 Octombrie
___QBhX întreabă:

Am cumpărat o imprimantă DeskJet 2800e se numește în aplicația HP, am activat din greșală HP+ atunci când am configurat o, există o variantă să dezactivez această opțiune? Din câte am...? (mai mult)

0 răspunsuri
trimisă pe 29 Octombrie
Ion1989 întreabă:

Dupa ce ai cumparat camera de supraveghere cu panou solar deci pui acumulatorii in panoul solar, dupa conectezi camera de supraveghere la panoul solar si dupa trebuie sa astepti sa se incarce panoul solar...? (mai mult)

8 răspunsuri

Cele mai vizionate întrebări

trimisă pe 11 Octombrie
angel6lust întreabă:

Este adevărat că de marți s-ar putea să implementeze UE Chat control? Să se uite prin mesajele noastre? Am văzut asemenea știri, dar nu știu ce să cred.

27 răspunsuri
trimisă pe 4 August
Ion1989 întreabă:

Sunt nascut dupa 2000, am auzit la radio ca astia vor sa faca ceva tehnologie care sa ar putea sa ne faca nemuritori, sa ne mai faca mai tineri si unul intr- un reportaj zicea tot la radio ca nu vrea...? (mai mult)

24 răspunsuri
trimisă pe 17 August
razvand2001 întreabă:

De ce uneori cand scriu pe TPU se blocheaza telefonul in mod neasteptat. Funda pentru primul raspuns corect

24 răspunsuri
trimisă pe 17 Iunie
gllopel întreabă:

Salut! Ce se intampla cu Facebookul asta? De ce vor poze ca la infractori? Fata, lateral stanga, lateral dreapta... Dau vina pe boti, pe AI. Dar ei i- au creat, ei sa si- i tina sub control. Sau...? (mai mult)

16 răspunsuri

Remarcate de editori

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

O să- ți zic cum vad eu situația.Te înțeleg fiindcă și eu am fost asa si sunt, doar ca...cu tata(acum am 20 de ani și m- am distanțat de el și el...acum regreta dar degeaba, ma țin cât mai...... (mai mult)
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)

Categorii