BitCell

by **andreiandreiq** » 10 Jan 2012, 20:29

Salutare,

Am următoarea problema:

Line number On/Off | Expand/Contract | Select all

Scrieţi un program Pascal care citeşte de la tastatură un cuvânt format din cel mult 20 de caractere, doar litere ale alfabetului englez. Programul determină transformarea cuvântului citit prin înlocuirea fiecărei litere mici a cuvântului cu litera mare corespunzătoare, restul literelor nemodificându-se, ca în exemplu. Programul afişează pe ecran cuvântul obţinut.
 
Exemplu: pentru cuvântul: bACAlaUrEaT se va afişa pe ecran: BACALAUREAT

Eu am rezolvat'o folosind funcția UpCase. Se poate rezolva și în alt mod (tind sa cred ca da) ?

Line number On/Off | Expand/Contract | Select all

var s:string[20];
      i:integer;
begin
   write(' Cuvantul:');
   readln(s);
   for i:=1 to length(s) do
        s[i]:=upcase(s[i]);
    writeln(s);
end;
   

P.S: Problema e dintr-o varianta de bac.

by **smith** » 10 Jan 2012, 22:23

Line number On/Off | Expand/Contract | Select all

for i:=1 to length(s) do
    if s[i] >= 'a' and s[i] <= 'z' then
        s[i]:= chr(ord(s[i]) - 32);  {32 este diferenta dintre litera mica si litera mare -vezi ascii}

Dacă nu știi diferența dintre literele mici și cele mari, poți face așa:

Line number On/Off | Expand/Contract | Select all

for i:=1 to length(s) do
    if s[i] >= 'a' and s[i] <= 'z' then
      s[i]:= chr( ord(s[i]) - (ord('a') - ord('A')) ); {literele mici sunt dupa literele mari}

ord returnează valoarea ascii a unui caracter.
chr returneaza caracterul corespondent unui cod ascii.

by **DarkByte** » 10 Jan 2012, 22:24

La bac, varianta corecta (pentru majoritatea profesorilor) este cea cu UpCase. Varianta lui smith, desi este si ea absolut corecta (si care arata ce se intampla in spatele cortinei

) nu este agreata/inteleasa de unii profi (care, ce-i drept, n-ar trebui catalogati drept profesori).

by **andreiandreiq** » 10 Jan 2012, 22:56

Asta e rezolvarea pe care am gasit-o pe net la problema de mai sus:

Line number On/Off | Expand/Contract | Select all

 
const lit:set of
char=[‘a’..’z’,’A’..’Z’];
lit_mici:set of
char=[‘a’..’z’];
var cuv:string[20];
      i,j:byte;
      este:boolean;
      l:integer;
begin
  repeat
  write(‘cuvantul:’);readln(cuv);
  este:=true;
  l:=length(cuv);
  for i:=1 to l do
       if not (cuv[i] in lit) then
       este:=false;
  until este;
  for i:=1 to l do
       if cuv[i] in lit_mici then
       cuv[i]:=chr(ord(cuv[i])-32);
   writeln(cuv);
end.

Presupun ca asa au rezolvat-o cei care au propus-o, sau cei care au propus unele variante de răspuns (corecte!).

Nu stiu care e cea mai potrivita pentru bac, poate e cum zici tu, DarkByte, sau poate nu :-??

. Oricum nu stiu de ce m-as chinui sa scriu "ditamai" rezolvarea cand cu UpCase imi ia 5 randuri.

P.S: Rezolvarea de mai sus prezinta metoda sugerata de smith (mersi de informații !).

BitCell

Transformarea literelor mici in litere mari

Transformarea literelor mici in litere mari

Re: Transformarea literelor mici in litere mari

Re: Transformarea literelor mici in litere mari

Re: Transformarea literelor mici in litere mari

Who is online