Pascal Need Help, Blogas sk formatas

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 :)

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 :/

"integer" pakeisk į "real", nes yra dalyba. Turėtų veikti.

"integer" pakeisk į "real", nes yra dalyba. Turėtų veikti.

Ką? Juk jis dalina su div, jeigu bus realieji skaičiai, tada programa negalės dalinti su div...

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 :)

Žinoma, kad neveiks įvedus "6*5" - juk tai eilutė (string), o ne skaičius. Kompas pats nesugalvos, kur prasideda ir kur baigiasi kintamieji. Šiuo atveju gali ir prašyti vartotojo įvesti eilutės tipo kintamąjį ir tuomet jį išskaidyti į dalis.

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.) :)

Na man kolkas aisku tai jog kolkas i tai geriau nelyst nes nieko nesuprantu apie regex ir pan :D Todel mokysiuos kolkas kitu dalyku o prie sito grisiu kada busiu ismokes :) Bet vistiek aciu visiems uz info.