Răspuns :
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
