Witam, potrzebuje pomocy w napisaniu takiego zadania:
Aplikacja zapis i odczyt tekstu oraz
a) funkcja do zliczania samogłosek w każdej lini pliku tekstowego
b) funkcja do zliczania słów z duzych znakow
c) funkcja do obliczenia ile zdań zaczyna sie od samogłoski
d) funkcja do zliczania ile zdań kończy sie kropka
funkcja zapis wyników do pliku
na razie mam tyle:
uses crt;
var odpowiedz: byte;
plik:text;
sciezka:string;
procedure odczyt(sciezka:string);
var c:char;
begin
clrscr;
reset(plik);
while not eof(plik) do
begin
read(plik,c);
write(c);
end;
writeln;
close(plik);
end;
procedure zapis(sciezka:string);
var c:string;
begin
clrscr;
rewrite(plik);
read(c);
write(plik,c);
close(plik);
end;
function samogloski(sciezka:string):integer;
var c:char;
i:byte;
begin
i:=0;
reset(plik);
while not eof(plik) do
begin
read(plik,c);
case ord(c) of
65,69,73,79,85,89,97,101,105,111,117,121,129:inc(i);
end;
samogloski:=i;
end;
end;
BEGIN
writeln('Podaj dokladna sciezke ');
readln(sciezka);
assign(plik,sciezka+'.txt');
repeat
writeln('Wybierz opcje');
writeln('1.Odczyt pliku');
writeln('2.Zapis tekstu do pliku');
writeln('3.Ilosc samoglosek w pliku');
writeln('4.');
writeln('5.');
writeln('0.Wyjscie');
readln(odpowiedz);
Case odpowiedz of
1:odczyt(sciezka);
2:zapis(sciezka);
3:writeln('Ilosc samoglosek : ',samogloski(sciezka));
end;
until odpowiedz=0;
END.
Dam 3-4 dychy jeżeli mi ktoś to zrobi. Więcej info na pw