Question

(Pascal)
Să se verifice dacă 2 caractere sunt identice?
Cine mă poate ajuta?
Nu prea înţeleg cum să fac programul

Answer 1

Poftim;

program Kuzya; // Denumirea programuluiuses crt; // Modulul pentru consolavar { variabile }valoare1: char;valoare2: char;cod: integer;cod2: integer;Egalitate: Boolean;Begin // Syntax de inceputtextbackground(black); // Culoarea fonuluitextcolor(lightgreen); // Culoarea textuluiwriteln('Introduceti valoarea 1'); // Cere utilizatorul sa inserereadln(valoare1); // Memoreaza valoareatextcolor(lightblue); // Culoarea textuluiwriteln('Introduceti valoare 2'); // Cere utilizatorul sa insere valoareareadln(valoare2); // Memoreaza valoarea de la WriteLinecod:=ord(valoare1); // Valoare codcod2:=ord(valoare2); // Valoarea cod2Egalitate:=cod=cod2; // Relatia de egalitateif cod=cod2 then textbackground(lightgreen) else textbackground(lightred); // Setarea fonului la text in dependenta de valoarea de la egalitatetextcolor(15); // culoarea textului - alba. Pentru claritatewriteln('Valoarea de adevar este'); // textul inainte de True/Falsewriteln(egalitate); // Insereaza raspunsul de la 'Egalitate' True/Falseread; // Citeste rezultatul de la WriteLinetextbackground(0); //Fonul textului de la sfirsittextcolor(8); // Culoare textului de la sfirsitwriteln('Multumesc pentru folosirea programei! Alina Pavalachi clasa 9a B'); // Numele elevuluiend.