Informatikos VBE 2013

Gal galėtumėt išspręsti šį uždavinį su komentarais? Man klaidas mėto. Ačiū.

paskaliu išspręst tiks?

paskaliu išspręst tiks?

Kad nelabai, paskaliu gyvenime nesprendęs. :) Žiūriu dauguma čia paskaliu spręndžia. Aš įsivaizdavau, kad mokyklose jo po truputį atsisakoma...

Kad nelabai, paskaliu gyvenime nesprendęs. :) Žiūriu dauguma čia paskaliu spręndžia. Aš įsivaizdavau, kad mokyklose jo po truputį atsisakoma...

kiek skaičiau straipsnių C++ yra sunkiau perprasti, daug dalykų nepaiškinami, kodėl vienaip reik rašyti, o ne kitaip, todėl paskalis yra puiki mokymosi priemonė "pradinukui". O studijuojant INFO reiks ir su vienu ir su kitu padirbėt ^_^

Sveiki. Turiu kelis klausimėlius. Manau, pravers ir jums pasikartoti. Gal galit į juos atsakyt? Iškilo šiokių tokių sunkumų man :D

1) http://tinypic.com/view.php?pic=ejirra&s=5

2) http://i39.tinypic.com/2n6mh3.jpg

3) http://i42.tinypic.com/14dok6o.jpg

4) http://i44.tinypic.com/2u4pyqw.jpg

5) http://imageshack.us/f/69/v8y1.jpg/

Būtų didelis ačiū! :rolleyes:

Kaip dėl programos komentavimo? Naudoti lietuviškus rašmenis ar ne? Nes atidarius programą po uždarymo visos lietuviškos raidės virsta neaiškias simboliais(C++).

Mokytoja rekomendavo rašyti tokius komentarus, kur nėra Lt raidžių. Jei neišeina - rašyti šveplai... Man tai LABAI nepatinka...

Mokytoja rekomendavo rašyti tokius komentarus, kur nėra Lt raidžių. Jei neišeina - rašyti šveplai... Man tai LABAI nepatinka...

Mhm... O man mokytojas patarė komentarus (su Pacal) rašyti lietuviškais ženklais, kad ir kokia koduotė, nes taip tu parodai, kad stengiesi rašyti taisyklingai lietuviškai. Ir vertintojai, pasak jo, labai nemėgsta rašymo nesilaikant lietuvių kalbos taisyklių, be visų š, č. :huh:

Kur gaut lietuvišką ofisą 2007? Norėčiau pasiruošt prieš egzaminą, bet nerandu parsisiųsti :/

Kur gaut lietuvišką ofisą 2007? Norėčiau pasiruošt prieš egzaminą, bet nerandu parsisiųsti :/

jei turi anglišką, atsisiūsk sulietuvinimą iš torrentų :)

jei turi anglišką, atsisiūsk sulietuvinimą iš torrentų :)

Įsirašau tą sulietuvinimą, vis tiek anglų kalba viskas būna :/

Gal galėtumėt išspręsti šį uždavinį su komentarais? Man klaidas mėto. Ačiū.

Kažką pats bandžiau. Nesuprantu kas negerai:

#include <fstream>

#include <iomanip>

using namespace std;

void Skaityti(int & ak, int & bk, int & rk, int & n, double A[], double B[], double R[]);

void skaic(int & ak, int & bk, int & rk, int & n, double A[], double B[], double R[], double & reza, double & rezb, double & rezr, int & i);

void Rasyti(int & ak, int & bk, int & rk, int & n, double A[], double B[], double R[]);

int main ()

{

int ak, bk, rk, n;

double A[100], B[100], R[100];

Skaityti(ak, bk, rk, n, A, B, R);

Rasyti(ak, bk, rk, n, A, B, R);

return 0;

}

void Skaityti(int & ak, int & bk, int & rk, int & n, double A[], double B[], double R[])

{

ifstream fd;

fd.open("Duom.txt");

fd>>ak>>bk>>rk;

fd>>n;

for (int i = 0; i < n; i++)

{

fd>>A>>B>>R;

}

fd.close();

}

void skaic(int & ak, int & bk, int & rk, int & n, double A[], double B[], double R[], double & reza, double & rezb, double & rezr, int & i)

{

reza=A/ak;

rezb=B/bk;

rezr=R/rk;

}

void Rasyti(int & ak, int & bk, int & rk, int & n, double A[], double B[], double R[], int & i)

{

ofstream fr;

fr.open("Rezultata.txt");

double reza, rezb, rezr, vand;

for (int i=0; i<=n; i++)

{

skaic(ak, bk, rk, reza, rezb, rezr, A, B, R, i); //Čia meta klaidą

vand=100-reza-rezb-rezr;

fr<<fixed<<setprecision(1)<<reza<<" "<<rezb<<" "<<rezr<<" "<<vand<<endl;

}

fr.close();

}

Kasnors???

Įsirašau tą sulietuvinimą, vis tiek anglų kalba viskas būna :/

Nueik į microsoft office > microsoft office tools > ir bus ten languege settings

Sveiki. Turiu kelis klausimėlius. Manau, pravers ir jums pasikartoti. Gal galit į juos atsakyt? Iškilo šiokių tokių sunkumų man :D

 

1) http://tinypic.com/view.php?pic=ejirra&s=5

2) http://i39.tinypic.com/2n6mh3.jpg

3) http://i42.tinypic.com/14dok6o.jpg

4) http://i44.tinypic.com/2u4pyqw.jpg

5) http://imageshack.us/f/69/v8y1.jpg/

 

Būtų didelis ačiū! :rolleyes:

Nors vieną pavyzdį pamėginkit atsakyt, programuotojai (: Manau, kad tai labai svarbi info.

void skaic(int & ak, int & bk, int & rk, int & n, double A[], double B[], double R[], double & reza, double & rezb, double & rezr, int & i)


skaic(ak, bk, rk, reza, rezb, rezr, A, B, R, i); //Čia meta klaidą


Kasnors???

 

void skaic nurodai 11 lokalių kinamųjų, kviesdamas funkciją įrašai tik 10. Nemoku C++... :lol:

Be to pvz paskalyje eiliškumas turi atitikti, nes neskaitys kitokio tipo kintamojo.

Turėtų būti taip :

skaic(ak, bk, rk, n, A, B, R, reza, rezb, rezr, i)

Nueik į microsoft office > microsoft office tools > ir bus ten languege settings

Žinau, jau skaičiau internete. Viskas LT nustatyta...

void skaic nurodai 11 lokalių kinamųjų, kviesdamas funkciją įrašai tik 10. Nemoku C++... :lol:

 

Be to pvz paskalyje eiliškumas turi atitikti, nes neskaitys kitokio tipo kintamojo.

 

Turėtų būti taip :

skaic(ak, bk, rk, n, A, B, R, reza, rezb, rezr, i)

Vistiek kažkas netaip. Erorra meta. :|

Vistiek kažkas netaip. Erorra meta. :|

o ką erroras rašo?

Nors vieną pavyzdį pamėginkit atsakyt, programuotojai (: Manau, kad tai labai svarbi info.

http://gabija.simnet.lt/it/pk/home.html Pasiskaityk 5'ą skyrių ir manau rasi atsakymus :)

http://gabija.simnet.lt/it/pk/home.html Pasiskaityk 5'ą skyrių ir manau rasi atsakymus :)

Ačiū!

Galit gal kas įkelt paprastą kodą skaitymo iš failo, kurį spausdina į ekraną. Ir kitą kurį spausdina į failą. Būtų didelis ačiū.

Galit gal kas įkelt paprastą kodą skaitymo iš failo, kurį spausdina į ekraną. Ir kitą kurį spausdina į failą. Būtų didelis ačiū.

assign(duom, 'failas.txt');
reset(duom);
Readln(duom, e);
Writeln(e);
close(duom);

assign(rez, 'failas2.txt');
rewrite(rez);
e := 'eilutė bla bla';
Writeln(rez, e);
close(rez);

assign(duom, 'failas.txt');
reset(duom);
Readln(duom, e);
Writeln(e);
close(duom);

assign(rez, 'failas2.txt');
rewrite(rez);
e := 'eilutė bla bla';
Writeln(rez, e);
close(rez);

Visą kodą jei galima, nes man nesigauna :/

Visą kodą jei galima, nes man nesigauna :/

program Bevardė20;

   var duom, rez : text;
   e : string; ///jei tavo faile failas.txt bus skaičius, tai keisk į integer tipą

begin

   assign(duom, 'failas.txt');
   reset(duom);
   Readln(duom, e);
   Writeln(e);
   close(duom);

   assign(rez, 'failas2.txt');
   rewrite(rez);
   e := 'eilutė bla bla';
   Writeln(rez, e);
   close(rez);

end.

programą išsaugok tame pačiame aplankale, kur ir failai, o tada testuok

program Bevardė20;

   var duom, rez : text;
   e : string; ///jei tavo faile failas.txt bus skaičius, tai keisk į integer tipą

begin

   assign(duom, 'failas.txt');
   reset(duom);
   Readln(duom, e);
   Writeln(e);
   close(duom);

   assign(rez, 'failas2.txt');
   rewrite(rez);
   e := 'eilutė bla bla';
   Writeln(rez, e);
   close(rez);

end.

 

programą išsaugok tame pačiame aplankale, kur ir failai, o tada testuok

Visą nukopijuoju, tame pačiame aplankale sukuriu du failus txt bet išmeta rinkmena nerasta.

O šią eilutę gali paaiškint: "e := 'eilutė bla bla';", nes jei su integer tai rašo, kad nederami tipai.

Visą nukopijuoju, tame pačiame aplankale sukuriu du failus txt bet išmeta rinkmena nerasta.

O šią eilutę gali paaiškint: "e := 'eilutė bla bla';", nes jei su integer tai rašo, kad nederami tipai.

Na, jei integer darai, tai turi pakeist tą e blabla į, tarkim, e := 5;

Turi kode pakeist failų pavadinimus (nurodyt tokius pat, kaip tavo sukurti)

Na, jei integer darai, tai turi pakeist tą e blabla į, tarkim, e := 5;

Turi kode pakeist failų pavadinimus (nurodyt tokius pat, kaip tavo sukurti)

Pakeičiu tą eilutę, failų pavadinimus tokius pat tikrai parašau bet vistiek išmeta rinkmena nerasta.