Se consideră un șir de caractere.Să se scrie programe care:
a)Calculează numărul sumar de apariții ale caracterelor 'a' și 'b'.
b)Înlocuiește toate vocalele prin litera''w''
c)Înlocuiește caracterul ”a” cu caracterul ”b”.
URGENT!!!!
Răspunsuri la întrebare
urmeaza trei programe pentru fiecare din a), b), c)
program p1;
var s:string;
i, ap:integer;
begin
write('dati sirul de caractere: '); readln(s);
ap:=0;
for i:=1 to length(s) do
begin
if (s[i]='a') then ap:=ap+1;
if (s[i]='b') then ap:=ap+1;
end;
writeln('aparitii ale lui ''a'' si ''b'' este egal cu ', ap);
end.
program p2;
const vocale=['a','e','i','o','u','A','E','I','O','U'];
var s:string;
i:integer;
begin
write('dati textul: '); readln(s);
for i:=1 to length(s) do
if (s[i] in vocale) then s[i]:='w';
writeln(' textul modificat:');
writeln(s);
end.
program p3;
var s:string;
i:integer;
begin
write('dati textul: '); readln(s);
for i:=1 to length(s) do
if (s[i]='a') then s[i]:='b';
writeln(' textul modificat:');
writeln(s);
end.