- Stahuj zápisky z přednášek a ostatní studijní materiály
- Zapisuj si jen kvalitní vyučující (obsáhlá databáze referencí)
- Nastav si své předměty a buď stále v obraze
- Zapoj se svojí aktivitou do soutěže o ceny
- Založ si svůj profil, aby tě tví spolužáci mohli najít
- Najdi své přátele podle místa kde bydlíš nebo školy kterou studuješ
- Diskutuj ve skupinách o tématech, které tě zajímají
Studijní materiály
Zjednodušená ukázka:
Stáhnout celý tento materiálprogram zapich;
uses crt;
var
vstup, vystup : text;
i, p, delka : integer;
radek : string;
procedure zamena(); // procedura na zamenu
begin
p:=0; //vynulovani poromene pro pocitani radku;
while NOT EOF(vstup) do //cyklus pro vyhledanini konce souboru
begin
readln(vstup, radek); //zapis radku do promene radek
delka:= ord(radek[0]); //zjisteni delky radku na poyici 0 je informace o delce
for i:=1 to delka do //cyklus pro prohledavani radku
begin
case radek[i] of
Vloženo: 28.04.2009
Velikost: 28,00 kB
Komentáře
Tento materiál neobsahuje žádné komentáře.
Mohlo by tě zajímat:
Skupina předmětu AP_1 - Algoritmizace a programovací techniky
Reference vyučujících předmětu AP_1 - Algoritmizace a programovací techniky
Podobné materiály
Copyright 2024 unium.cz