PASCAL - pomoc – Pascal – Fórum – Programujte.com

Ahojte,
potrebovala by som surne pomoc s Pascalom do skoly. Uz neviem na koho sa mam obratit a termin odovzdanie mi suri. Chodim dialkovo na vysku (Inzinierstvo zivot.prostredia) a mame aj informatiku, na ktorej mame vypracovat pacsal. (vid zadanie dole). Znamy mi ho uz vypracoval (vid priloha), ale treba tam este nieco doriesit a hlavne k tomu treba spravit este struktogram, pomozte PROSIM! Mandynka@azet.sk.

Zadanie z Pascalu

Zostavte algoritmus a program, ktorý v zadanom textovom súbore spočíta počet riadkov (riadkom sa rozumie text na jeho konci ma štandartná funkcia EoLn hodnotu true), počet viet (vetou je myslený text zakončený bodkou, otáznikom a podobne) a počet slov (slovom je myslená skupina znakov zakončená medzerou, čiarkou a podobne).

Zadanie vypracujte nasledovne:

1. Vykonajte analýzu všetkých potrebných vstupných a výstupných premenných. Stanovte ich dátový typ.

2. Zostavte štruktogram.

3. Zostrojte program v Pascale.

Odovzdajte 2 súbory. V prvom (číslo_priezvisko.doc) bude vypracovaný 1. a 2. bod zadania. V druhom súbore (číslo_priezvisko.pas) bude vypracovaný 3. bod zadania.

• Zadanie z Pascalu pozostáva z dvoch častí - samotného programu
a slovného popisu riesenia, vrátane popisu pouzitých premenných
• Odovzdávajú sa dva súbory, zdrojový kod (súbor PAS) a popis (súbor DOC)

To Mandynka :
priloha!

...známý mi to vypracoval, vy to po něm dořešte a já si pak dojdu pro zápočet... tomu říkám dělba práce :smile6:

Něco podobného už jsem kdysi řešil: http://mircosoft.ic.cz/texty/vety.htm, vyber si z toho, co potřebuješ.
Na rozbalení toho zadání tu zrovna nemám RAR, takže později.

Ahoj, byl bych moc vděčný někomu, kdo by mi udělal tento program (nevím si s tím rady) :
Sestavte program, který určí největší hodnotu z n zadaných čísel a pořadí jejího posledního výskytu.
Díky moc !

To Mircosoft :
Ahoj, nie je to az tak celkom fer, ale kedze chodim externe mali sme len 4hodinovy vyklad k celej informatike a z toho dost chabe vysvetlenie programovania, takze s tym mame vsetci problemy. Dost malo by som povedala. Bohuzial ak chcem dalej studovat zivotne prostredie musim tymto prejst, teda plus este skuska, toto je len aby som mohla ist ku skuske. Na vyske to tak chodi, ja pomozem tebe, ty mne. Len velmi tazko by to clovek zvladal sam nie?

Dakujem za link :-) idem na to kuk

Rozbaleno, prohlédnuto, trochu upraveno a zjednodušeno a teoreticky by to teď mělo fungovat:

program vety;

uses crt;

const OddelovaceSlov:set of char=[' ',',','"'];

      OddelovaceVet:set of char=['.','?','!'];

      Oddelovace=oddelovaceslov+oddelovacevet;

var f:text;

    PocetRadku,PocetVet,PocetSlov:integer;

    znak,PredchoziZnak:char;

BEGIN

clrscr;

assign(f,'vstup.txt');

reset(f);

pocetradku:=0; pocetvet:=0; pocetslov:=0;

znak:=' ';

while not Eof(f) do

  begin

  predchoziznak:=znak;

  read(f,znak);

  if znak in oddelovace and not (predchoziznak in oddelovace) then inc(pocetslov);

  if znak in oddelovacevet and not (predchoziznak in oddelovacevet) then inc(pocetvet);

  if eoln(f) then begin

                  inc(pocetradku);

                  if not (znak in oddelovace) then inc(pocetslov);

                  end;

  end;

close(f);

writeln('Pocet riadkov je: ',pocetradku);

writeln('Pocet viet je: ',pocetvet);

writeln('Pocet slov je: ',pocetslov);

readln;

END.