Question

Se considera un fisier textcare contine cuvinte separate printr-un singur spatiu liber.
De creat un alt fisier care va contine vocalele din fisierul initial.
VA ROG FRUMOS !!!!!

Answer 1

program Vocale;
var fileName,fileNameOut:string;
var prop:string;
var tfIn,tfOut:Text;
begin
  
  var i,lung:integer;
  fileName:='D:\Project_C+\pascal\intrare.txt';
  fileNameOut:='D:\Project_C+\pascal\iesire.txt';
  AssignFile(tfIn,fileName);
  reset(tfIn);
  AssignFile(tfOut,fileNameOut);
  //reset(tfOut); 
  readln(tfIn,prop);
  lung:=length(prop);
  for i:=1 to lung do
  begin
  if pos(prop[i],'AEIOUaeiou ')>0 then
      write(tfOut,prop[i]);
  end;
 end.

Answer 2

var s,p:string;
i,l:integer;
t:text;

begin
assign(t,'input.txt');
reset(t);
read(t,s);
close(t);

assign (t,'output.txt');
rewrite(t);

p:='aAeEiIoOuU';

for i:=1 to length(s) do 
for l:=1 to length(p) do begin
if s[i]=p[l] then write(t,s[i],' ');
end;

close(t);
end.