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
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau nevoie de ajutor, vă rugăm să ne contactați cu încredere. Așteptăm cu drag să reveniți și nu uitați să ne salvați în lista dumneavoastră de favorite!