Ecco la soluzione del problema modificato del compito in classe di cui parlavo 2 post fa in turbo pascal:
Program storpiafrasi;
var
vocali: array [1..5] of char;
vocalipari: array [1..2] of char;
vocalidispari: array [1..3] of char;
mystr:string; len:integer;
numregistro:integer;
i:integer;
j:integer;
c:integer;
d:integer;
begin
Writeln;
Write('Inserisci il tuo numero di registro: ');
Readln(numregistro);
Write('Inserisci una stringa: ');
Readln(mystr);
len:=Length(mystr);
vocali := 'aeiou';
c := numregistro mod 2;
for i := 1 to len do
begin
for j:= 1 to 5 do
begin
if mystr[i] = vocali[j] then
if c = 0 then
begin
vocalipari := 'eo';
d := 1+random(1);
mystr[i] := vocalipari[d];
end
else
begin
vocali:= 'aiu';
d := 1+random(2);
mystr[i] := vocalidispari[d];
end
end;
end;
Writeln(mystr);
readln;
end.
Program storpiafrasi;
var
vocali: array [1..5] of char;
vocalipari: array [1..2] of char;
vocalidispari: array [1..3] of char;
mystr:string; len:integer;
numregistro:integer;
i:integer;
j:integer;
c:integer;
d:integer;
begin
Writeln;
Write('Inserisci il tuo numero di registro: ');
Readln(numregistro);
Write('Inserisci una stringa: ');
Readln(mystr);
len:=Length(mystr);
vocali := 'aeiou';
c := numregistro mod 2;
for i := 1 to len do
begin
for j:= 1 to 5 do
begin
if mystr[i] = vocali[j] then
if c = 0 then
begin
vocalipari := 'eo';
d := 1+random(1);
mystr[i] := vocalipari[d];
end
else
begin
vocali:= 'aiu';
d := 1+random(2);
mystr[i] := vocalidispari[d];
end
end;
end;
Writeln(mystr);
readln;
end.
0 Comments:
Post a Comment
<< Home