👤
SURAO4ZE
a fost răspuns

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 !!!!!

Răspuns :

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.
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.
Vă mulțumim că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!


Ze Studies: Alte intrebari