String ir case

Sveiki! Ir vėl reikia pagalbos.

Štai programa.

program Bevardė85;

var E : string;

begin

Write ('Įveskite mėnesį: ');

ReadLn (E);

Case E of

Sausis : WriteLn (1);

Vasaris : WriteLn (2);

Kovas : WriteLn (3);

Balandis : WriteLn (4);

Geguze : WriteLn (5);

Birzelis : WriteLn (6);

Liepa : WriteLn (7);

Rugpjutis : WriteLn (8);

Rugsejis : WriteLn (9);

Spalis : WriteLn (10);

Lapkritis : WriteLn (11);

Gruodis : WriteLn (12)

orherwise WriteLn ('Įvestas netaisyklingai parašytas mėnuo');

end;

Readln;

end.

Reikia ,kad įvedus mėnesio pavadinimą atspausdintų to mėnesio eiles numerį naudojant CASE.

Sveiki! Ir vėl reikia pagalbos.

 

Štai programa.

 

program Bevardė85;

var E : string;

begin

Write ('Įveskite mėnesį: ');

ReadLn (E);

Case E of

Sausis : WriteLn (1);

Vasaris : WriteLn (2);

Kovas : WriteLn (3);

Balandis : WriteLn (4);

Geguze : WriteLn (5);

Birzelis : WriteLn (6);

Liepa : WriteLn (7);

Rugpjutis : WriteLn (8);

Rugsejis : WriteLn (9);

Spalis : WriteLn (10);

Lapkritis : WriteLn (11);

Gruodis : WriteLn (12);

orherwise WriteLn ('Įvestas netaisyklingai parašytas mėnuo');

Readln;

end.

 

Reikia ,kad įvedus mėnesio pavadinimą atspausdintų to mėnesio eiles numerį naudojant CASE.

O ką tau rašo, ar meta kokį tai errorą?

O ką tau rašo, ar meta kokį tai errorą?

kompiliatorius aptinka tokias klaidas:

ordinal expression expected

identifier not found sausis.

ir taip su visais kitais.

kompiliatorius aptinka tokias klaidas:

ordinal expression expected

identifier not found sausis.

 

ir taip su visais kitais.

pabandyk uždėt prie kiekvieno mėnesio kabute 'sausis' : WriteLn(1); 'vasaris' ir t.t.

pabandyk uždėt prie kiekvieno mėnesio kabute 'sausis' : WriteLn(1); 'vasaris' ir t.t.

Dabar rašoma:

Ordinal ezpression expected

Constant and CASE types do not match

Dabar rašoma:

Ordinal ezpression expected

Constant and CASE types do not match

http://pascal-programming.info/lesson5.php

variable of type: integer or character ONLY

string tipas negali būt kaip suprantu case

http://pascal-programming.info/lesson5.php

 

variable of type: integer or character ONLY

 

string tipas negali būt kaip suprantu case

O gal galite pasiūlyti kokį būdą ,kaip tai padaryti? Būtų įvedamas žodis ir atrinktų jo skaičių.

O gal galite pasiūlyti kokį būdą ,kaip tai padaryti? Būtų įvedamas žodis ir atrinktų jo skaičių.

Net nežinau kokio optimalesnio varianto gal bandysi tiesiog jeigu įrašo sausis su ifu kintamąjį E prilingit 'A' kaip pvz vasaris 'B', kovas 'C' paskui tikrint jei A tai 1 su case jei B tai 2.

Reikia išbandyti. O gal dar kas pasiūlys trumpesnį variantą.

Bet kuriuo atveju dėkoju už pagalbą.

Reikia išbandyti. O gal dar kas pasiūlys trumpesnį variantą.

Bet kuriuo atveju dėkoju už pagalbą.

Su case neis trumpai jei nori įvesti string visą. Tik su if else gali trumpiau pasidaryt.

if 'Sausis' = E then writeln(1)
else if 'Vasaris' = E then writeln(2);
t.t.

Su case neis trumpai jei nori įvesti string visą. Tik su if else gali trumpiau pasidaryt.

if 'Sausis' = E then writeln(1)
else if 'Vasaris' = E then writeln(2);
t.t.

Pavyko tokiu būdu. ;)

Pavyko tokiu būdu. ;)

program Bevardë85;
var E : char;
   men : string;
begin
Write ('Áveskite mënesá: ');
ReadLn (men);
E := men[1];
If E = 'B' then If men = 'Birzelis' then E := 'A';
If E = 'R' then If men = 'Rugpjutis' then E := 'U';
If E = 'S' then If men = 'Sausis' then E := 'C';
If E = 'L' then If men = 'Liepa' then E := 'I';
If E = 'G' then If men = 'Gruodis' then E := 'T';
Case E of
'C' : WriteLn(1);
'V' : WriteLn(2);
'K' : WriteLn(3);
'B' : WriteLn(4);
'G' : WriteLn(5);
'A' : WriteLn(6);
'I' : WriteLn(7);
'U' : WriteLn(8);
'R' : WriteLn(9);
'S' : WriteLn(10);
'L' : WriteLn(11);
'T' : WriteLn(12);
End;
Readln;
end.

Na jeigu būtinai reikia panaudoti case tai štai tokį šokį kodą padariau :) Bet kaip minėjo tikrai geriau naudot if'ą

program Bevardë85;
var E : char;
   men : string;
begin
Write ('Áveskite mënesá: ');
ReadLn (men);
E := men[1];
If E = 'B' then If men = 'Birzelis' then E := 'A';
If E = 'R' then If men = 'Rugpjutis' then E := 'U';
If E = 'S' then If men = 'Sausis' then E := 'C';
If E = 'L' then If men = 'Liepa' then E := 'I';
If E = 'G' then If men = 'Gruodis' then E := 'T';
Case E of
'C' : WriteLn(1);
'V' : WriteLn(2);
'K' : WriteLn(3);
'B' : WriteLn(4);
'G' : WriteLn(5);
'A' : WriteLn(6);
'I' : WriteLn(7);
'U' : WriteLn(8);
'R' : WriteLn(9);
'S' : WriteLn(10);
'L' : WriteLn(11);
'T' : WriteLn(12);
End;
Readln;
end.

 

Na jeigu būtinai reikia panaudoti case tai štai tokį šokį kodą padariau :) Bet kaip minėjo tikrai geriau naudot if'ą

Dėkoju labai, nereikėjo taip vargintis. :) Anas būdas daug paprastesnis ir trumpesnis. ;)