Zadanie ze zliczaniem elementów tekstu.

2012-12-15 16:38
0

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

Narazie 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

edytowany 1x, ostatnio: olesio, 2012-12-15 17:17

Pozostało 580 znaków

2012-12-15 16:44
1

1.Zły dział.
2.Beznadziejne formatowanie kodu.
3.

case ord(c) of
65,69,73,79,85,89,97,101,105,111,117,121,129:inc(i);
end;

A no tak, znaki są zbyt mainstreamowe - pr0 [email protected] konwertują wszystko do liczb.


Pozostało 580 znaków

2012-12-15 23:39
0
Patryk27 napisał(a)

A no tak, znaki są zbyt mainstreamowe - pr0 [email protected] konwertują wszystko do liczb.

Wcale nie, prawdziwe haksiory z krwi i kości korzystają ze zbiorów :]


Faktycznie pr0 h4x1orsk1e ;) - furious programming 2012-12-16 17:49

Pozostało 580 znaków

2012-12-16 00:12
0

nie aktualne

Pozostało 580 znaków

Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0