Reikia parasyti programa

"Tekstiniame faile suvesti mokiniu vardai,pavardes ir ugis (dvieju skaiciu po kableliu tikslumu pav. 1,98). Parasyti programa, kuri kitame faile isvestu auksciausia ir zemiausia mokinius ir ju ugius."

 

 

Kas gerai mokat, gal galit padet? cia reikia parasyti su FPS programa.

 

http://www.camarocarplace.com

Redagavo Gruodžio 2, 2012 Arantir

"Tekstiniame faile suvesti mokiniu vardai,pavardes ir ugis (dvieju skaiciu po kableliu tikslumu pav. 1,98). Parasyti programa, kuri kitame faile isvestu auksciausia ir zemiausia mokinius ir ju ugius."

 

 

Kas gerai mokat, gal galit padet?

 

 

o tai su kokia programavimo kalba reikia parasyti programa?

"Tekstiniame faile suvesti mokiniu vardai,pavardes ir ugis (dvieju skaiciu po kableliu tikslumu pav. 1,98). Parasyti programa, kuri kitame faile isvestu auksciausia ir zemiausia mokinius ir ju ugius."

 

 

Kas gerai mokat, gal galit padet?

 

O pats nenori parašyt ir čia paste'int jei kas nepavyksta? Ar tu galvoji kad kol tu pabaigsi mokyklą, visi internautai už tave nemokamai tavo namų darbus darys?

o tai su kokia programavimo kalba reikia parasyti programa?

 

 

Su FPS

Ar ko pats nemoki? Nuskaitai failą, reikšmes priskiri kintamiesiems, surandi min(mažiausia ugį) IR max(didžiausią ugį) ir įrašai gautus rezultatus lengviau negali būti. Klausk padėsim ko nemoki, o nelauk, kad kas už tave parašytu.

Ar ko pats nemoki? Nuskaitai failą, reikšmes priskiri kintamiesiems, surandi min(mažiausia ugį) IR max(didžiausią ugį) ir įrašai gautus rezultatus lengviau negali būti. Klausk padėsim ko nemoki, o nelauk, kad kas už tave parašytu.

 

 

Cia ne namu darbams man reikia, o pats ten beveik nemoku programuot,nes tokio dalyko nesimokinu, del to prasau cia.Kas mokat gerai ir sakot, kad nesunku cia, tai butu gerai, jei kas padarytumete. :)

Nėra tiksli sąlyga, ar gali būti vienodi ugiai, jei vienodi ar rezultate visi rašomi aukščiausi ir žemiausi mokiniai.

Paprasčiausias variantas, bet galima jį parašyti su įrašais, procedūromis, funkcijomis.

program Bevardė0;
type	mas=array[1..10] of real;
   	mas1=array[1..10] of string[17];  //17 vietų skirta mokinio vardui ir pavardei.
var
n,  //kiek yra mokinių
i,  //ciklo kintamasis
index  //mokinio indeksas, reikės aukščiausiam ir žemiausiam mokiniui surasti
:integer;
F1, //Failas kuriame yra duomenys
F2  //Failas į kurį bus surašyti rezultatai
:text;
mokinys //Mokinio duomenys vardas, pavardė
:mas1;
paz //Mokinio pažymiai
:mas;
auk, //aukščiausias mokinys
zem //žemiausias mokinys
:real;
begin
//Nuskaitome faila ir priskiriame kintamiesiems duomenis
assign(F1,'duom.txt');
reset(F1);
readln(F1,n);
for i:=1 to n do readln(F1,mokinys[i],paz[i]);
//Įrašome rezultatus
assign(F2,'rez.txt');
rewrite(F2);
//Surandame aukščiausią mokinį
auk:=0;
for i:=1 to n do
if auk < paz[i]
then
   	begin
       	auk:=paz[i];
       	index:=i;
   	end;
writeln(F2,'Aukščiausias mokinys:');
writeln(F2,mokinys[index],' ',paz[index]:0:2);
//Surandame žemiausią mokinį
zem:=paz[index];
for i:=1 to n do
if zem > paz[i]
then
   	begin
       	zem:=paz[i];
       	index:=i;
   	end;
writeln(F2,'Žemiausias mokinys:');
writeln(F2,mokinys[index],' ',paz[index]:0:2);
close(F2);
end.

duom.txt

4
Petras Petraitis 1.78
Jonas Jonaitis   1.58
Frenkas Frenko   1.43
Maiklas Maklo	1.64

Nėra tiksli sąlyga, ar gali būti vienodi ugiai, jei vienodi ar rezultate visi rašomi aukščiausi ir žemiausi mokiniai.

Paprasčiausias variantas, bet galima jį parašyti su įrašais, procedūromis, funkcijomis.

 

duom.txt

4
Petras Petraitis 1.78
Jonas Jonaitis   1.58
Frenkas Frenko   1.43
Maiklas Maklo	1.64

 

 

Iš kur tas „4“ duomenų faile? Sąlygoje apie tai nekalba, lyg ir. :-)

 

Jami while'ą, SeekEOF ir važiuoji per visą failą.

http://www.freepascal.org/docs-html/rtl/system/seekeof.html

 

Beje, nelabai gražus kodas:

var
    a, // comment
    b, // comment
    : type

 

Kultūringiau būtų daryti šitaip:

var
   a : type;             // comment
   b : type;             // comment
   c : type;             // comment
   longVariable : type;  // comment

O geriausia, naudoti prasmingus vardus ir nereikės komentuoti. Taip pat, lengviau grupuoti kintamuosius pagal „prasmę“. :-)

var
  studentsCount, studentIndex : integer;
  i : integer;
  // File handles
  fInput, fOutput : text;
  studentsList : student_t;

 

 

Sėkmės.

Iš kur tas „4“ duomenų faile? Sąlygoje apie tai nekalba, lyg ir. :-)

 

Jami while'ą, SeekEOF ir važiuoji per visą failą.

http://www.freepascal.org/docs-html/rtl/system/seekeof.html

 

Beje, nelabai gražus kodas:

var
    a, // comment
    b, // comment
    : type

 

Kultūringiau būtų daryti šitaip:

var
   a : type;             // comment
   b : type;             // comment
   c : type;             // comment
   longVariable : type;  // comment

O geriausia, naudoti prasmingus vardus ir nereikės komentuoti. Taip pat, lengviau grupuoti kintamuosius pagal „prasmę“. :-)

var
  studentsCount, studentIndex : integer;
  i : integer;
  // File handles
  fInput, fOutput : text;
  studentsList : student_t;

 

 

Sėkmės.

 

Skaičius 4 reiškia kiek mokinių yra tame tekstiniame faile. Ir beje, koks skirtumas žmogus persikopijuos tikslius vardus į duom.txt

Iš kur tas „4" duomenų faile? Sąlygoje apie tai nekalba, lyg ir. :-)

 

Jami while'ą, SeekEOF ir važiuoji per visą failą.

http://www.freepasca...em/seekeof.html

 

Beje, nelabai gražus kodas:

var
	a, // comment
	b, // comment
	: type

 

Kultūringiau būtų daryti šitaip:

var
   a : type;         	// comment
   b : type;         	// comment
   c : type;         	// comment
   longVariable : type;  // comment

O geriausia, naudoti prasmingus vardus ir nereikės komentuoti. Taip pat, lengviau grupuoti kintamuosius pagal „prasmę". :-)

var
  studentsCount, studentIndex : integer;
  i : integer;
  // File handles
  fInput, fOutput : text;
  studentsList : student_t;

 

 

Sėkmės.

 

Kaip ir sakiau sąlyga nėra pilna ir pradiniai duomenis neduoti.4 nurodo skaičių mokinių. Tai kaip lengviausią būdą parodžiau. Galimas ir tavo variantas.

Čia kam gražu, kam negražu yra atskiras dalykas, pascal taip yra aprašomi kintamieji ir komentuojami.

Kaip ir sakiau sąlyga nėra pilna ir pradiniai duomenis neduoti.4 nurodo skaičių mokinių. Tai kaip lengviausią būdą parodžiau. Galimas ir tavo variantas.

Čia kam gražu, kam negražu yra atskiras dalykas, pascal taip yra aprašomi kintamieji ir komentuojami.

 

Dėl užduoties atsiprašau - nemaniau, jog į „paprasčiausias variantas“ įeina užduoties performulavimas.

 

Na, kodas kurį lengva skaityti ir tavo kodas nekoreliuoja. Gal gali parodyti kur matei tokį kodavimo standartą? :-)

 

 

Gaila žiūrėti, kad mokyklose skiramas labai mažas dėmesys kodo kultūrai – pirmakursiai programuotojai dažnai gauna velnių už Taip_negraziaiPAVADINTUSkintamuosius ir nelogišką indentaciją.. :-(

Redagavo Balandžio 13, 2012 kashiukas

Dėl užduoties atsiprašau - nemaniau, jog į „paprasčiausias variantas" įeina užduoties performulavimas.

 

Na, kodas kurį lengva skaityti ir tavo kodas nekoreliuoja. Gal gali parodyti kur matei tokį kodavimo standartą? :-)

 

 

Gaila žiūrėti, kad mokyklose skiramas labai mažas dėmesys kodo kultūrai – pirmakursiai programuotojai dažnai gauna velnių už Taip_negraziaiPAVADINTUSkintamuosius ir nelogišką indentaciją.. :-(

Taip mokyklose mažai tikrai dėmesio skiria programavimo kodo kultūrai, bet jos manau mano mokykloje buvo pakankamai. Kiek teko naudoti dalyvauti(konkursuose) su pascal dažniausiai mano pateiktas variantas dėl lygiavimo ir komentavimo kintamųjų buvo labai geras, tai ir tokį rašau pascal visur

Nemanau kad čia prastas lygiavimas..

var
kint,   //komentaras
kint,   //komentaras
:integer;

 

Gana off-topic kiekvienas turim savo stilių svarbiausia kodo perskaitymui mano lygiavimas neturi reikšmės. Svarbu, kad žmogus suprato nors kažkiek.