Question

De afișat un fișier litera majuscula și mică pe fiecare rand(alfabetul englez)
In pascal
Urgeeeent va rooog!!!

Answer 1

Răspuns:

program AlfabetEnglez;

var f:text;

   chMaj, chMin:char;

begin

 assign(f,'alfabet.txt');

 rewrite(f);

 for chMaj:='A' to 'Z' do

   begin

     chMin:=chr(ord(chMaj)+32);

     writeln(f,chMaj,' ',chMin);

   end;

  close(f);

end.

Explicație:

-am declarat o variabilă f de tip fişier, în care se vor scrie literele alfabetului englez, perechea majusculă - minusculă pe rânduri separate.

-am declarat două variabile de tip char ce vor lua literele, variabila chMaj - majuscula, iar chMin - minuscula.

-am făcut asocierea variabilei f cu fişierul extern ce va fi creat.

-cu ajutorul ciclului For, cu ajutorul variabile chMaj am parcurs literele majuscule de la 'A' la 'Z'. Pentru fiecare majuscula am determinat minuscula, care are un număr de ordine cu 32 mai mare ca litera majuscula.

-am scris repetat în fişierul extern perechea de litere.

-am închis fişierul creat.  

STOP