FPS programos paaiškinimas

Sveiki. Turiu programą, kurią ne pats rašiau, todėl prašau jūsų kas suprantat, gal galėtumėt trumpai aprašyt šitą programą kas ką daro? Reikės papasakot dėstytojui kas kaip veikia.

program uzduotis;

type masyvas = array[1..100] of integer;

var     i, j, din, x : integer;
       f : text;
       a : masyvas;
begin
assign(f,'ivertinimai.txt');
reset(f);
x:=0;
while not eof(f) do
begin
   x:=x+1;
   read(f,a[x]);
end;

for i := 1 to x do
   for j := i to x do
       if a[i] > a[j] then
           begin
           din := a[i];
           a[i]:= a[j];
           a[j]:= din;
           end;
writeln('Egzamino ivertinimai didejancia tvarka:');
for i:=1 to x do
   write(a[i],' ');
Readln;
close(f);
end.

Sveiki. Turiu programą, kurią ne pats rašiau, todėl prašau jūsų kas suprantat, gal galėtumėt trumpai aprašyt šitą programą kas ką daro? Reikės papasakot dėstytojui kas kaip veikia.

 

program uzduotis;

type masyvas = array[1..100] of integer;

var     i, j, din, x : integer;
       f : text;
       a : masyvas;
begin
assign(f,'ivertinimai.txt');
reset(f);
x:=0;
while not eof(f) do
begin
   x:=x+1;
   read(f,a[x]);
end;

for i := 1 to x do
   for j := i to x do
       if a[i] > a[j] then
           begin
           din := a[i];
           a[i]:= a[j];
           a[j]:= din;
           end;
writeln('Egzamino ivertinimai didejancia tvarka:');
for i:=1 to x do
   write(a[i],' ');
Readln;
close(f);
end.

į masyvą įrašo 'ivertinimai.txt' įvetinimus, juos rikiuoja ir į ekraną atspausdina juos didėjančia tvarka.

O čia prašai meškos paslaugos.

Jei nesupranti tokios programos (Spėju baiginėji 1kursą informatikos spec.), tai gal geriau pagalvok apie papildomą rimtą pasimokymą, arba studijų baigimą... Toliau bus sunkiau ir niekas negrįš ir iš naujo neaiškins, tad sudegsi. Labai tikiu, kad už mokslą moki pats, tad mesdamas dabar sutaupysi nemažą sumą, nei būsi išskraidintas vėliau. Išimtis, jei esi ne informatikos specialybės studentas ir tai yra šalutinis, papildomas dalykas.

O čia prašai meškos paslaugos.

Jei nesupranti tokios programos (Spėju baiginėji 1kursą informatikos spec.), tai gal geriau pagalvok apie papildomą rimtą pasimokymą, arba studijų baigimą... Toliau bus sunkiau ir niekas negrįš ir iš naujo neaiškins, tad sudegsi. Labai tikiu, kad už mokslą moki pats, tad mesdamas dabar sutaupysi nemažą sumą, nei būsi išskraidintas vėliau. Išimtis, jei esi ne informatikos specialybės studentas ir tai yra šalutinis, papildomas dalykas.

Nesutinku. Daug kur studijuojant matematiką yra įtrauktas programavimas. Man irgi tai buvo peilis, bet po pirmo kurso jis baigėsi ir jo nebereiks. Labai siauros tavo pažiūros, jeigu manai, kad programavimas įeina tik į informatiko studijas.

O čia prašai meškos paslaugos.

Jei nesupranti tokios programos (Spėju baiginėji 1kursą informatikos spec.), tai gal geriau pagalvok apie papildomą rimtą pasimokymą, arba studijų baigimą... Toliau bus sunkiau ir niekas negrįš ir iš naujo neaiškins, tad sudegsi. Labai tikiu, kad už mokslą moki pats, tad mesdamas dabar sutaupysi nemažą sumą, nei būsi išskraidintas vėliau. Išimtis, jei esi ne informatikos specialybės studentas ir tai yra šalutinis, papildomas dalykas.

informatika yra daug kur :) pvz mano draugė studijuoja molekulinę biologiją, antrame kurse jai teko programuoti JAVA, 3čiame PYTHONU :)

O čia prašai meškos paslaugos.

Jei nesupranti tokios programos (Spėju baiginėji 1kursą informatikos spec.), tai gal geriau pagalvok apie papildomą rimtą pasimokymą, arba studijų baigimą... Toliau bus sunkiau ir niekas negrįš ir iš naujo neaiškins, tad sudegsi. Labai tikiu, kad už mokslą moki pats, tad mesdamas dabar sutaupysi nemažą sumą, nei būsi išskraidintas vėliau. Išimtis, jei esi ne informatikos specialybės studentas ir tai yra šalutinis, papildomas dalykas.

Kaip dar gali pagalvoti kad čia informatikos studento užduotis ? Paiškinti tokią programą ? Tokių dalykų dar net mokykloj moko.

Citavusiems mane:

Programavimo daugiau yra informatikų specialybėse. Nesakau, kad 100% vien tik informatikai turi tai, tačiau FPS tikrai nėra labai populiarus daugelyje specialybių.

Nesiginčiju, kad kai kuriems tos informatikos nereikia, tačiau jei autorius yra INFORMATIKOS krypties studentas - jam laikas susimąstyti. Jei ne, sorry, suklydau, bet programa pakankamai lengva, mokyklinio lygio, tad nesunkiai turėtų suprasti ir pats ar pasibendravęs su dariusiuoju.

Programavimas (ne informatika) yra ne tiek ir daug kur. Peupeu, šiek tiek keista, kad biologai turi phyton, nes ne visur ir informatikai gauna šią kalbą, tačiau galbūt tai jiems reikalinga, nežinau.

:D ronner, neatspėjai :D

1. Mokaus ne informatiką, o matematiką.

2. Už mokslą nemoku :D

Praleidau nemažai paskaitų, o rytoj egzaminas tai norėčiau nors kažką išgirst kad ir apie šitą:

for i := 1 to x do
   for j := i to x do
       if a[i] > a[j] then
           begin
           din := a[i];
           a[i]:= a[j];
           a[j]:= din;
           end;

:D ronner, neatspėjai :D

1. Mokaus ne informatiką, o matematiką.

2. Ūž mokslą nemoku :D

 

Praleidau nemažai paskaitų, o rytoj egzaminas tai norėčiau nors kažką išgirst kad ir apie šitą:

for i := 1 to x do
   for j := i to x do
       if a[i] > a[j] then
           begin
           din := a[i];
           a[i]:= a[j];
           a[j]:= din;
           end;

Kartais ne LEU? ;)

:D ronner, neatspėjai :D

1. Mokaus ne informatiką, o matematiką.

2. Ūž mokslą nemoku :D

 

Praleidau nemažai paskaitų, o rytoj egzaminas tai norėčiau nors kažką išgirst kad ir apie šitą:

for i := 1 to x do
   for j := i to x do
       if a[i] > a[j] then
           begin
           din := a[i];
           a[i]:= a[j];
           a[j]:= din;
           end;

rikiavimas...

:D ronner, neatspėjai :D

1. Mokaus ne informatiką, o matematiką.

2. Ūž mokslą nemoku :D

 

Praleidau nemažai paskaitų, o rytoj egzaminas tai norėčiau nors kažką išgirst kad ir apie šitą:

for i := 1 to x do
   for j := i to x do
       if a[i] > a[j] then
           begin
           din := a[i];
           a[i]:= a[j];
           a[j]:= din;
           end;

Burbulo algoritmas

Burbulo algoritmas

kodėl aš visada galvojau, kad čia burbulo metodas :rolleyes: :

repeat
rusiavimas:=false;
for j:=2 to 5 do
     if x[j]<x[j-1] then
     begin
       din:=x[j];
       x[j]:=x[j-1];
       x[j-1]:=din;
       rusiavimas:=true;
     end;
until not rusiavimas;

kodėl aš visada galvojau, kad čia burbulo metodas :rolleyes: :

repeat
rusiavimas:=false;
for j:=2 to 5 do
     if x[j]<x[j-1] then
     begin
       din:=x[j];
       x[j]:=x[j-1];
       x[j-1]:=din;
       rusiavimas:=true;
     end;
until not rusiavimas;

Tai čia tas pats Burbulo algoritmas tiesiog parašytas naudojant ciklą until. Paprastai sakant burbulo algoritma yra tas, kur yra perrenkamos gretimų skaičių poros tol, kol nebūna surikiuota teisingai.

Kartais ne LEU? ;)

Kas tas LEU? :D

Ačiū tiems, kas padėjot :)

Kas tas LEU? :D

 

Ačiū tiems, kas padėjot :)

Pedagoginis

Neup