FPS (nuosirdziai prasau pagalbos)

sveiki visi :) nuosirdziai prasau pagalbos,suda maliau per visa laika o dabar prisireike labai sunkiai padirbeti sios programos pats niekaip neiveikiau..... :( ,kaip gali atrodyti tokia programa jog parduotuve turejo tarkim 6389litus ir duom.txt faile surasai (prekes kaina tarpas ir tarkim kiek jos buvo nupirkta) ir rez.txt failiuke turi surasyti kiek parduotuve uzdirbo kartu su turimais litais (6389lt)

STAI KA AS PADARIAU BET NEVEIKIA......

program Bevarde0;

var d,r:text;

s,n:integer;

begin

assign(d,'duom.txt');

reset(d);

s:=0;

while not eof (d) do;

begin

readln(d,n);

s:=s+n

end;

close(d);

assign(r,'rez.txt');

rewrite®;

writeln(r,s);

close®;

end.

abejoju ar kas imsis nemokamai taisyt, tuo labiau manau daug lengviau butu perrasyt programa is naujo, darbo keletai valandu max mokant :)

ka tu cia fantazuoji? :lol: :lol: :lol: mokantis per pora minuciu padarytu

programa turi skaicuot tik pelna, ar tiesiog suma uz kiek parduota? na jei tik suma, tai paprasta :) procedura kuri iveda i masyva skaiciukus (kaina x kiekis prekes) proceduryte kuri poto sudetu visa masyva ir read/write i faila )

Labai neaiškiai parašei sąlygą. Bandžiau padaryt pagal tavo aprašymą.

program parduotuve;

const  fduom = 'duom.txt';
  	frez  = 'rez.txt';
  	Csuma = 6389;  //Parduotuvės pradinė pinigų suma

function KiekUzdirbo:integer;
var   input        : text;
     kiek, kaina,
     suma 		: integer;
begin
     suma := 0;
     assign (input, fduom); reset(input);
             while not eof (input) do
                   begin
                     readln (input, kiek, kaina);
                     suma := suma + kiek * kaina;
                   end;
     close(input);
     KiekUzdirbo := suma;
end;

procedure Skaiciuoti;
var  output  : text;
	Ats : integer;
begin
	ats := KiekUzdirbo + Csuma;
	Assign (output, frez); rewrite (output);
	writeln(output, ats);

	close(output);
end;

begin
Skaiciuoti;
end.

Padariau taip, jog į input duomenis reiktų taip rašyt (pirmas skaičius rodo prekių skaičiu, o antras kiek kainuoja):

1 10
1 20

abejoju ar kas imsis nemokamai taisyt, tuo labiau manau daug lengviau butu perrasyt programa is naujo, darbo keletai valandu max mokant :)

Darbas Max 10 minučių

programa turi skaicuot tik pelna, ar tiesiog suma uz kiek parduota? na jei tik suma, tai paprasta :) procedura kuri iveda i masyva skaiciukus (kaina x kiekis prekes) proceduryte kuri poto sudetu visa masyva ir read/write i faila )

duom.txt faile jau buna surasyta kiek pirkta ir uz kokia kaina tik reikia padaryti taip kad programa is duom failo apskaiciuotu kiek pelno,gal galetum man padeti duociau savo skype? :)

Labai neaiškiai parašei sąlyga. Bandžiau padaryt pagal tavo aprašymą.

program parduotuve;

const  fduom = 'duom.txt';
  	frez  = 'rez.txt';
  	Csuma = 6389;  //Parduotuvės pradinė pinigų suma
  	Cn    = 1000;  //Galimų prekių skaičius

function KiekUzdirbo:integer;
var   input        : text;
     kiek, kaina,
     suma 		: integer;
begin
     suma := 0;
     assign (input, fduom); reset(input);
             while not eof (input) do
                   begin
                     readln (input, kiek, kaina);
                     suma := suma + kiek * kaina;
                   end;
     close(input);
     KiekUzdirbo := suma;
end;

procedure Skaiciuoti;
var  output  : text;
	Ats : integer;
begin
	ats := KiekUzdirbo + Csuma;
	Assign (output, frez); rewrite (output);
	writeln(output, ats);

	close(output);
end;

begin
Skaiciuoti;
end.

 

Padariau taip, jog į input duomenis reiktų taip rašyt (pirmas skaičius rodo prekių skaičiu, o antras kiek kainuoja):

1 10
1 20

 

 

 

 

Darbas Max 10 minučių

kazkaip per sudetingai padariai mokytojas nepatikes kad as taip padriau :D kad as mokeciau tai tiksliai paaiskinciau kaip turi atrodyti programa ,bet man atrodo nereikia tos procedure :)

programa turi is duom failo prasyti rez faile kiek uzdirbo,mum yra tokia uzduotis kad programa nuskaitytu is duom failo duomenis ir pateiktu rez failiuke :)

duom.txt atrodytu taip:

3456-cia surasytas kiek turejo parduotuve be tu prekiu kur surasiau apacioje sio teksto

15 3

100 6

1500 2

54 6

97 3

65 3

na gal dabar kiek aiskiau parasiau :))

kazkaip per sudetingai padariai mokytojas nepatikes kad as taip padriau :D kad as mokeciau tai tiksliai paaiskinciau kaip turi atrodyti programa ,bet man atrodo nereikia tos procedure :)

Jei sumokėtum, galėčiau padaryti paprastai + paaiškinčiau kas kaip

jei dabar tureciau pinigu tikrai sumokeciau,pats labai didelioje bedoje nenoriu sedeti rytoj butinai reikia nunesti sis darbas,labai prasau parasyk :)

Galima ir be proceduros apsieiti, o siaip jo, gan sudetingai padarytas darbas :) galesiu vakare siektiek paprastint jei turesiu laiko

Galima ir be proceduros apsieiti, o siaip jo, gan sudetingai padarytas darbas :) galesiu vakare siektiek paprastint jei turesiu laiko

kaip negerai ,kad vakare gaila gaila...... laikas taip spaudzia ,o dar nieko nepadares :(

gal kas kitas galetu parasyti?

Toks jausmas, jog nariai Chris ir kastutoks yra tas pats žmogus.

Toks jausmas, jog nariai Chris ir kastutoks yra tas pats žmogus.

Na IP jų skiriasi :D

fordo prasau padek man buk geras :(

frodo padek labai prasau :(

zmones prasau pagalbos tikrai labai nuosirdziai kas galetu padeti,tureciau siuo metu pinigu nepagaileciau sumoketi ,bet siuo metu salygos to neleidzia padaryti......

program Bevarde0;
var d, r : text;
   s, suma, n, k : integer; // k - kaina
begin
   assign(d,'Duom.txt');
   reset(d);
   readln(d, s);
   while not eof (d) do;
       begin
           readln(d, n, k);
           s += n * k;
       end;
   close(d);
   assign(r,'rez.txt');
   rewrite(r);
   writeln(r, s);
   close(r);
end.

pataisiau kaip man atrodo, patikrink ar skaicuoja

program Bevarde0;
var d, r : text;
   s, suma, n, k : integer; // k - kaina
begin
   assign(d,'Duom.txt');
   reset(d);
   readln(d, s);
   while not eof (d) do;
       begin
           readln(d, n, k);
           s += n * k;
       end;
   close(d);
   assign(r,'rez.txt');
   rewrite(r);
   writeln(r, s);
   close(r);
end.

 

pataisiau kaip man atrodo, patikrink ar skaicuoja

nebesuprantu,jungi skaiciuoja ir ismeta rinkmena nerastam,kas galetu buti?

nebesuprantu,jungi skaiciuoja ir ismeta rinkmena nerastam,kas galetu buti?

viskas gerai buvo mano pacio klaida ivelta:D bet kai ijungi programa ji pasileidzia ir ismeta ta juoda langa ir nieko nedaro enter pamygus net nereguoja kame problema?

program Pelnas;
var n, k, s : integer;
   fd, fr : text;
begin
   Assign(fd, 'Duom.txt');
   Reset(fd);
   Readln(fd, s);
   while not eof (fd) do
       begin
           readln(fd, n, k);
           s += n * k;
       end;
   Close(fd);
   Assign(fr, 'Rez.txt');
   rewrite(fr);
   writeln(fr, s);
   Close(fr);
end.

Skaičiuoja viską, aš visada fd ir fr rašau, tai nežinau jei jūs rašot d ir r tada pakeisk ;)

program Pelnas;
var n, k, s : integer;
   fd, fr : text;
begin
   Assign(fd, 'Duom.txt');
   Reset(fd);
   Readln(fd, s);
   while not eof (fd) do
       begin
           readln(fd, n, k);
           s += n * k;
       end;
   Close(fd);
   Assign(fr, 'Rez.txt');
   rewrite(fr);
   writeln(fr, s);
   Close(fr);
end.

Skaičiuoja viską, aš visada fd ir fr rašau, tai nežinau jei jūs rašot d ir r tada pakeisk ;)

dekui :)