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
AlexandraN21 întreabă:

Bună! Am un Kindle și am vrut să citesc și nu se mai deschidea. A pățit cineva așa ceva? Cum se repară?

1 răspuns
trimisă acum 19 ore
Gyozo întreabă:

Salutare! Am un radio receptor alimentat cu doua bateriii de cate 1.5 volti fiecare. Cum bateriile tin foarte putin, acestea se pot inlocui cu un incarcator de telefon nefolosit la care tensiunea de...? (mai mult)

4 răspunsuri
trimisă acum 20 ore
Garrix2004 întreabă:

Am făcut 2 badges pe steam și am primit 2 cupoane de -66%,doar că atunci când dau pe applicable games, sunt 0 jocuri disponibile. Expiră săptămâna viitoare parcă, le pot folosi cumva?

0 răspunsuri
trimisă acum 21 ore
Paladi_Laurentiu_Daniel_1995 întreabă:

Salut, am o problema la pc, am aceasta placa de baza GIGABYTE GA- A320M- S2H si cu memorii ram de 8gb de 2400mhz, una din memoriile ram nu merg deloc pe niciun slot iar cealalta merge doar pe slotul...? (mai mult)

3 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 11 Iunie
Valentinaldoilea întreabă:

Buna dimineata! O persoana cunoscuta a disparut din viata publica. Nu mai pot lua legatura cu el. Nu e vreun drogat sau betiv. Din contra, e posibil sa aiba un serviciu unde e nevoit sa fie mai discret....? (mai mult)

16 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