Pereiti prie turinio

Pascal Need Help, Blogas sk formatas


Rekomenduojami pranešimai

Sveiki, parasiau koda bet kaskodel jis nesivykdo, net nezinau ka cia galvot?

program Bevarde;
var sk, sk2, sum : integer;
r : char;
begin

ReadLn(sk, r, sk2);

case r of
   	'+' :   sum := sk + sk2;
   	'-' :   sum := sk - sk2;
   	'*' :   sum := sk * sk2;
   	'/' :   sum := sk div sk2;
otherwise Writeln('NO')
end;

WriteLn('Suma lygi : ', sum);
Readln;
end.

Atrodo viskas paprasta ir elementaru, bet kaip bandau atlikt aritmetini veiksma, man programa sako jog blogas skaiciaus formatas. Kas galit padekit busiu dekingas :)

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Pats nelabai suprantu kas ten negerai, bet kai nuskaitai visus tris: sk, r ir sk2 atskirai, viskas veikia ;)

program Bevarde;
var sk, sk2: integer;
       r : char;
begin

ReadLn(sk);
ReadLn(r);
ReadLn(sk2);

       case r of
       '+' :   writeln('Suma lygi : ', sk + sk2);
       '-' :   writeln('Skirtumas lygi : ', sk - sk2);
       '*' :   writeln('Sandauga lygi : ', sk * sk2);
       '/' :   if sk2 = 0 then writeln('Dalyba is 0 NEGALIMA!')
                          else writeln('Dalmuo lygi : ', sk / sk2:3:5);
       otherwise Writeln('NO')
       end;
Readln;
end.

Išėmiau dar kintamąjį sum, nes nemačiau prasmės jo ten laikyti išvis :/

Redagavo audrius^
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Pats nelabai suprantu kas ten negerai, bet kai nuskaitai visus tris: sk, r ir sk2 atskirai, viskas veikia ;)

program Bevarde;
var sk, sk2: integer;
       r : char;
begin

ReadLn(sk);
ReadLn(r);
ReadLn(sk2);

       case r of
       '+' :   writeln('Suma lygi : ', sk + sk2);
       '-' :   writeln('Skirtumas lygi : ', sk - sk2);
       '*' :   writeln('Sandauga lygi : ', sk * sk2);
       '/' :   if sk2 = 0 then writeln('Dalyba is 0 NEGALIMA!')
                      	else writeln('Dalmuo lygi : ', sk / sk2:3:5);
       otherwise Writeln('NO')
       end;
Readln;
end.

Išėmiau dar kintamąjį sum, nes nemačiau prasmės jo ten laikyti išvis :/

 

Na jo taip kaip tu padariai veikia, bet tai neatrodo efektyvu, visdelto idomu butu suzinot kaip padaryt kad pvz parasai 6*5 paspaudi Enter ir tau parodo rezultata, o del sum, tai as nenorejau kiekvienam case rasyt writeln ir t.t... todel kad sumazint koda pasirasiau sau kintamaji sum kuri poto panaudojau vienam Writeln'e :)

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Na jo taip kaip tu padariai veikia, bet tai neatrodo efektyvu, visdelto idomu butu suzinot kaip padaryt kad pvz parasai 6*5 paspaudi Enter ir tau parodo rezultata, o del sum, tai as nenorejau kiekvienam case rasyt writeln ir t.t... todel kad sumazint koda pasirasiau sau kintamaji sum kuri poto panaudojau vienam Writeln'e :)

Su tokiu kaip 6*5 tai nepadės Read() nes kaip suprantu ima atskirtus tarpais ar naujos eilutės simboliais, o tau reikia šiuo atveju po vieną simbolį žiūrėt, arba dar kaip kitaip galvoti (regex ir pan.) :)

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...