Reikalinga pagalba dėl PASCALio

Skaitykite paskutinį postą

Parašyk į privatą, padėsiu.

Problema išspresta

program DarbasSuTekstiniaisFailais;
      procedure se_ep_list;    //sezonai ir epizodai
        var f:text;
          var i,sez,sk:integer;  //sez-sezono skaičius. sk-serijų skaičius.
           var pav:string;       //serialo pavadinimas
        begin
        i:=0;

        assign(f,'C:\Users\Edvinas\Desktop\Paskalio pamokos\SEZONŲ-EPIZODŲ-LISTas.txt');     //susiejamas txt failas
        rewrite(f);

        write('Serialo pavadinimas: ');
        readln(pav);

        write('Sezono numeris:  ');
        readln(sez);

        write('Serijų skaičius:  ');
        readln(sk);

        while i<=sk-1 do
        begin
        i:=i+1;
           writeln(f,pav,'.S',sez,'.E',i);     //F-teksto kintamasis. Pav-serialo pavadinimas.
           end;
        close(f);
        end;
begin
se_ep_list;
readln;
end.

Gal žinote, kaip padaryti, jog kol I NELYGU 10, prieš I būtų rašomas nulis?

Pvz: I=15, tada būtų rašoma E01...E09,E10 IR T.T.?

program DarbasSuTekstiniaisFailais;
      procedure se_ep_list;    //sezonai ir epizodai
        var f:text;
          var i,sez,sk:integer;  //sez-sezono skaičius. sk-serijų skaičius.
           var pav:string;       //serialo pavadinimas
        begin
        i:=0;

        assign(f,'C:\Users\Edvinas\Desktop\Paskalio pamokos\SEZONŲ-EPIZODŲ-LISTas.txt');     //susiejamas txt failas
        rewrite(f);

        write('Serialo pavadinimas: ');
        readln(pav);

        write('Sezono numeris:  ');
        readln(sez);

        write('Serijų skaičius:  ');
        readln(sk);

        while i<=sk-1 do
        begin
        i:=i+1;
           writeln(f,pav,'.S',sez,'.E',i);     //F-teksto kintamasis. Pav-serialo pavadinimas.
           end;
        close(f);
        end;
begin
se_ep_list;
readln;
end.

Gal žinote, kaip padaryti, jog kol I NELYGU 10, prieš I būtų rašomas nulis?

Pvz: I=15, tada būtų rašoma E01...E09,E10 IR T.T.?

Teisiog writel ln apgaupk ifu, jei i>10 tegul daro, ką ir dabar, o jei ne prieš kintamąjį pav tegu tiesiog prašo 0, jei tam stringe yra kokia raidė prieš ji tai panaudok copy funkciją ir parašyk pirma tą raidę, po to 0 po to likusias raides raides,

Nors aš tiesiog ant user inputo už dėčiau ifą, kuris nsutatytų minimalų inputo ilgį... if Length(pav)< negu reikia vel prasyti įvesti kintamaji, jeigu tiek kiek reikia tada nieko......

Teisiog writel ln apgaupk ifu, jei i>10 tegul daro, ką ir dabar, o jei ne prieš kintamąjį pav tegu tiesiog prašo 0, jei tam stringe yra kokia raidė prieš ji tai panaudok copy funkciją ir parašyk pirma tą raidę, po to 0 po to likusias raides raides,

Nors aš tiesiog ant user inputo už dėčiau ifą, kuris nsutatytų minimalų inputo ilgį... if Length(pav)< negu reikia vel prasyti įvesti kintamaji, jeigu tiek kiek reikia tada nieko......

Gal blogai supratau, ką parašei, bet man reikia, kad iki 10 pridėtų nulį, po to, kad rašytų normaliai skaičius. Dėl to lenght. tai dar tolio dalyko neišmanau :rolleyes: . Kolkas tik galiu padaryt kokį nors kalkuliatorių :blush:

program DarbasSuTekstiniaisFailais;
      procedure se_ep_list;    //sezonai ir epizodai
        var f:text;
          var i,sez,sk:integer;  //sez-sezono skaicius. sk-seriju skaicius.
           var pav:string;       //serialo pavadinimas
        begin
        i:=0;

        assign(f,'C:\Users\Edvinas\Desktop\Paskalio pamokos\SEZONU-EPIZODU-LISTas.txt');     //susiejamas txt failas
        rewrite(f);

        write('Serialo pavadinimas: ');
        readln(pav);

        write('Sezono numeris:  ');
        readln(sez);

        write('Seriju skaicius:  ');
        readln(sk);

        while i<=sk-1 do
        begin
        i:=i+1;
           if i < 10
                then writeln(f,pav,'.S',sez,'.E0',i)     //F-teksto kintamasis. Pav-serialo pavadinimas.
                else writeln(f,pav,'.S',sez,'.E',i);
           end;
        close(f);
        end;
begin
se_ep_list;
readln;
end.

program DarbasSuTekstiniaisFailais;
      procedure se_ep_list;    //sezonai ir epizodai
        var f:text;
          var i,sez,sk:integer;  //sez-sezono skaicius. sk-seriju skaicius.
           var pav:string;       //serialo pavadinimas
        begin
        i:=0;

        assign(f,'C:\Users\Edvinas\Desktop\Paskalio pamokos\SEZONU-EPIZODU-LISTas.txt');     //susiejamas txt failas
        rewrite(f);

        write('Serialo pavadinimas: ');
        readln(pav);

        write('Sezono numeris:  ');
        readln(sez);

        write('Seriju skaicius:  ');
        readln(sk);

        while i<=sk-1 do
        begin
        i:=i+1;
           if i < 10
                then writeln(f,pav,'.S',sez,'.E0',i)     //F-teksto kintamasis. Pav-serialo pavadinimas.
                else writeln(f,pav,'.S',sez,'.E',i);
           end;
        close(f);
        end;
begin
se_ep_list;
readln;
end.

Ačiū, veikia ^_^ , bet kartu turiu dar vieną klausimą- jeigu cikle yra if'as, tada sąlyga (if) tikrinama per kiekvieną ciklą?

Ačiū, veikia ^_^ , bet kartu turiu dar vieną klausimą- jeigu cikle yra if'as, tada sąlyga (if) tikrinama per kiekvieną ciklą?

taip. viskas kas cikle vyksta per kiekvieną ciklą.

taip. viskas kas cikle vyksta per kiekvieną ciklą.

Dabar žinosiu :)