Dotaz: Zajímavé příklady (Pascal) - vstupní a výstupní soubory

[Lada]

Ahoj, zítra píšeme v Pascalu písemku a já tomu vůbec nerozumím. Učitel nám dal pár úkolů, které by se tam mohly objevit, ale já jsem na tohle úplný antitalent a v životě se to snad nenaučím :( Zatím tam mám 2 pětky a je to jediný předmět, ze kterého nemám jedničku nebo dvojku... Nechci propadnout, proto prosím o rady. Můžete to brát jako procvičení a uděláte dobrý skutek. Předem děkuji moc za pomoc :) Dolů vám napíši zadání příkladů:

1. Přečte ze souboru jména a vypíše je na monitor.
2. Udělá kopii 1. souboru (z 1. čte a do 2. zapisuje)
3. Udělá ze 2 vstupních souborů jeden výstupní.
4. Ze vstupního souboru napíše od výstupního pouze jména, jejichž délka je menší nebo rovna 4 znakům.
5. bonusový za jedničku: Je vstupní soubor se jmény setříděn podle abecedy od "a", z klávesnice zadám nové jméno a vytvořím výstupní s novým jménem na správném místě podle abecedy.

Díky za rady...byla bych moooc vděčná :)

---

---

Odpovědi

[tuxmartin]

No, co na to rict.. Domaci ukol tady za tebe nikdo psat nebude (krome toho, vzhledem k tomu, ze nikdo tady netusi, co a jak tam vlastne pisete, tezko ti to muze napsat). Asi by bylo lepsi nejake doucovani, ale to asi chtelo prijit driv (i kdyz mozna mas jeste sanci). A uprimne receno, pokud nemas problem s matematikou, neverim, ze bys na programovani byla antitalent.

[Pavel Stárek]

Tak to je dobré :) Takže slečna tam má dvě pětky, ale mi zde to

Můžeme brát jako procvičení

Takhle výborně jsem se už dlouho nepobavil . Pokud pan učitel chce dávat takovéhle úkoly, tak si myslím, že se jistě daná látka probírala ve škole. Takže: vypnout fejsbůk, libko a podobné srandy, najít sešit ve kterém máš jistě poznámky z hodin tohoto předmětu a naprogramovat tyto malé prográmky. Jediné co mě rozčiluje na těchto "úkolech" je, že se vyučující vzhlédne v nějakém programovacím jazyce kterýžto pak nutí mladým lidem a vyučuje ho do skonání věků.

[rastos]

Ahoj, zítra píšeme v Pascalu písemku

No to si si spomenula zavčasu

Dolů vám napíši zadání příkladů:

Ako tu už bolo povedané, tvoju prácu za teba nikto robiť nebude. Ak by si ale dala dohromady pár riadkov kódu (a prejavíš tak vlastné úsilie), tak určite dostaneš rady či vysvetlenie, ako to rozchodiť, opraviť a podobne.

1. Přečte ze souboru jména a vypíše je na monitor. ...

Tie zadania skutočne nie sú zložité. To čo je potrebné na ich vyriešenie je:

• rozumieť tomu čo je premenná
• rozumieť tomu čo je dátový typ
• vedieť, ako zhruba vyzerá štruktúra programu v Pascale - teda že tam je kľúčové slovo program, deklarácia premenných, begin a end
• poznať jednu-dve riadiace konštrukcie (while, repeat, ...)
• poznať niekoľko funkcií/procedúr jazyka Pascal pre prácu so súbormi: assign, readln, writeln, eof .. a chápať čo robia

Ak ti tie body nič nehovoria, tak sa zmier s ďalšou päťkou. Ak niečo hovoria, tak niečo zosmol a daj to sem. Potom sa uvidí, čo ďalej.

[Fluttershy, yay!]

Sorry, ale tohle nejsou zajímavé příklady.

[Petr Holášek]

A ten vděk taky není nic moc odměna :-/

[Fluttershy, yay!]

Tak zrovna u FLOSS bych to tak nebral (třeba kdyby chtěla nějaké bugfixy).

[ph0enix]

Priklady rozhodne zajimave nejsou. Jedine co bych mohl povazovat za zajimave/vyzvu je zda dam z hlavy funkcni program pote co jsem tento programovaci jazyk 15+ let nevidel

Jelikoz slecna jiz ma zrejme pisemku za sebou, zde je mozne reseni 1. prikladu...

program jmena(input,output);

var
  jmeno : string[255];              { maximalni delka cteneho textu         }
  soubor : text;                    { textovy vstupni soubor                }

begin
  assign(soubor, 'c:\jmena.txt');   { prirazeni jmena k souboru na disku    }
  reset(soubor);                    { otevreme soubor pro cteni             }
  while not eof(soubor) do          { dokud neni konec souboru, opakuj...   }
    begin
      read(soubor, jmeno);          { precti jmeno ze souboru a             }
      writeln(jmeno);               { vypis jej na obrazovku                }
    end;
  close(soubor);                    { zavri soubor                          }
end.

[VM]

V shellu by to šlo líp:

1. cat $@
2. cp $@
3. cat "$1" >> "$2"
4. grep '^.\{0,4\}$' $@
5. (read A; echo $A; cat "$1") | sort

V Pascalu příslušným voláním ekvivalentu funkce system()

[Alf]

To by bylo velmi originální řešení