Navigace:Mozektevidi.net ⇒ Studium ⇒ Výuka informatiky na škole

Výuka informatiky na škole

Nějaké blábolení o počítačích a jejích výuce. Informatika mě provází už od základní školy, programování v Turbo Pascal, zdrojáky, moje programy, source. O tom jak jsem začínal programovat.

výuka pascal, jak v c naprogramovat kamen nuzky papir, blikáni textu ve freepascal, turbo pascal 7 0 nápověda, výuka informatiky na nete, pascal nefunguje sound, turbo pascal viuka ve skole, informatika ve škole, informatika na základní škole, francie informatika ve škole,

Výuka informatiky v čechách

Díl první

Něčím by se mělo začít, tak začnu základkou. Na základní škole jsme měli povinně volitelný předmět počítačů. Když se ostatní učili psát ve wordu, exel, databáze, základní html ve Front Page, zoner Calisto a zoner gif animátor, zařídil jsem si kroužek programování v Turbo Pascalu. Nedostali jsme se moc daleko, můj nejdokonalejší program Mozek dospěl do verze 007 (ha, teď chytřejší dojde proč mám takovou přezdívku)
Pokud by byl zájem, můžu vložit zdrojáky, ale pochybuji, že by někomu k něčemu byly a taky pochybuji, že někdo programuje v Turbo Pascal 7.0 Pohoda
Ve FrontPage jsem dělal webové stránky pro školu. Hodně brzo se mi Frontpage znechutil. Náplň hodiny vypadala zajímavě. Učitelka mi dala klíče od sborovny kde byl jediný moderní počítač na škole s přístupem na internet a právy administrátora. Já jsem se pohodlně usadil, lelkoval a čekal na práci. Zbytek třídy v počítačové učebně psali ve wordu materiály. Když něco dopsali, korektor opravil chyby a nahrál na disketu. Posliček mi disketu přinesl a já metodou ctrl + c a ctrl + v nahrával do Front Page, upravoval styl textu, zarovnával. To bylo celé. Ve volném čase jsem surfoval na netu, bavil se s kámošem a tiskli jsme si obaly na CD na laserové tiskárně.

V té době jsem byl správcem třídního počítače (jediného) a jinak nic. Programování v Turbo Pascalu brzo upadlo pro nedostatek vědomostí přednášející učitelky, která se učila programovat průběžně s námi.

Program mozek verze BETA

Tato veze nikdy nespatřila světlo světa, byl to úplně první můj program

program Mozek;
uses crt;var a,b:real;
soucet,rozdila,rozdilb,soucin,podila,podilb,prumer,obvod,obsah:real;
  begin
  textbackground(2);
  textcolor(4);
  clrscr;
  write("  Program: ");
  textcolor(11);
  writeln(" MOZEK. ");
  textcolor(14);
  writeln("  Program velice rychle vypočíta mnoho operací.");
  textcolor(1);
  writeln("  Po provedení úkonu zmačkněte ENTER.");
  readkey;
  textcolor(0);
  textbackground(5);
  clrscr;
  write("  Zadejte první číslo.  "); readln(a);
  textcolor(10);
  write("  Zadejte druhé číslo.  "); readln(b);
  textbackground(1);
  clrscr;
  soucet:=a+b;
  rozdila:=a-b;
  rozdilb:=b-a;
  soucin:=a*b;
  podila:=a/b;
  podilb:=b/a;
  prumer:=(a+b)/2;
  obvod:=2*(a+b);
  obsah:=a*b;
  textcolor(5);
  writeln("  Součet je    :  ",soucet:50:20);
  textcolor(12);
  writeln("  Rozdíl a-b je:  ",rozdila:50:20);
  writeln("  Rozdíl b-a je:  ",rozdilb:50:20);
  textcolor(13);
  writeln("  Součin je    :  ",soucin:50:20);
  textcolor(14);
  writeln("  Podíl a:b je : ",podila:50:20);
  writeln("  Podíl b:a je : ",podilb:50:20);
  textcolor(15);
  writeln("  Průměr je    :  ",prumer:50:20);
  textcolor(12);
  writeln("  Obvod je     :  ",obvod:50:20);
  textcolor(2);
  writeln("  Obsah je     :  ",obsah:50:20);
  readkey;
  textcolor(10);
  textbackground(4);
  clrscr;
  writeln("  Děkuji Vám za použití tohoto programu.");
  textcolor(2);
  write("  Byl vyroben 31.12.1999.");
  readkey;
  textcolor(5);
  textbackground(2);
  clrscr;
  writeln("  Kdo bude tento program nadále používat nechť zaplatí 5 KČ!");
  readkey;
  textcolor(125);
  textbackground(1);
  clrscr;
  writeln("  AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! ");
  writeln("    AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! ");
  writeln("  AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ!");
  writeln("    AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ! AHOJ!");
  readkey;
  end.

Další verze

Postupně se program vypracoval na další verze, přes různé podveze, bety, 002, 0022, 003, 003x až na verze 007 kde jsem také ukončil jeho vývoj. Další veze dodám, pokud by si někdo chtěl kompilovat potřebuje stáhnout původní Turbo Pascal 7.0 ten však nebyl uvolněn jako freeware. Nevím jestli se někde prodává, každopádně existuje freepascal ten je zdarma. Google dotaz Turbo Pascal download to řeší. Pokud by někdo chtěl Turbo pascal 7.0, můžem se nějak domluvit.

Programování v Turbopascalu

Turbo Pascal zdrojáky a tutorial

Na internetu se spoustu návodů na tento prehistorický programovací jazyk, verzi co používám ani nefunguje na Windows XP a v TP jsem nedělal od svých 15ti let vůbec.

Hlava programu

Definování proměných

program Mozek;
uses crt;
var
nahodaa,nahodab,barvac,M007:byte;
g,i,e,c,d,f,x,y,cislo,hadane,n:integer;
r,konec,textnamonitoru,otazka:string;
rychlost,nejcislo:word;
       begin
       textbackground(8);
       clrscr;
       textcolor(9);
       gotoxy(15,12);
       writeln("***************************************************");
       textcolor(2);
       gotoxy(15,13);
       write("*  Program: ");textcolor(14);writeln(" M O Z E K 007                        * ");
       textcolor(4);
       gotoxy(15,14);
       writeln("*  Licenční ujednání je v přiloženém souboru.     *");
       textcolor(5);
       gotoxy(15,15);
       writeln("*  Pokračujte libovolnou klavesou......           *");
       textcolor(9);
       gotoxy(15,16);
       writeln("***************************************************");
       readkey;                                                   { úvodní obrazovka }
  { textbackground(9);
   clrscr;
   textcolor(2);
   gotoxy(17,10);
   writeln("  Mozek,ten fakt musíš mít,");
   gotoxy(17,11);
   writeln("  výsledky ti pomůže najít.");
   gotoxy(17,12);
   writeln("  Zadej čísla,zmáčkni ENTER teť,");
   gotoxy(17,13);
   writeln("  výsledky budeš mít hned!");
   gotoxy(17,14);
   writeln("  Program MOZEK ulehčí ti v hlavě,");
   gotoxy(17,15);
   writeln("  příklady počítá hravě.");
   gotoxy(17,16);
   writeln("  A je tu ještě jedna rada,");
   gotoxy(17,17);
   writeln("  kup si ho hned je ZADARA!!");   }

repeat;                                                          { básnička }

Nabídka programů

repeat;
     textbackground(black);
     clrscr;
     gotoxy(15,3);textcolor(15);write("=");gotoxy(64,3);write("=");
     gotoxy(15,2);textcolor(15);write("==================================================");
     gotoxy(16,3);textcolor(18);write("T O H L E  J E  N A B I D K A  P R O G R A M U..");
     gotoxy(15,4);textcolor(15);write("==================================================");
     textcolor(3);
     gotoxy(1,8);
     writeln("           -  Pokud vás nebolej uši, zmáčkněte klávesu        1 ");
     writeln;
     writeln("           -  Chcete vyzkoušet monitor, stiskněte klávesu     2 ");
     writeln;
     writeln("           -  Kámen, Nůžky, Papír, bouchněte do klávesy       3 ");
     writeln;
     writeln("           -  Pro vyzkoušení mozku (Vašeho), klikněte na      4 ");
     writeln;
     writeln("           -  Jestliže chcete spustit program Šetřič, napište 5 ");
     writeln;
     writeln("           -  Chceteli vědět INFO o MOZKU namačkejte         007 ");
     writeln;
     write("           -  Chceteli ukonči program Mozek007, tlačte na     0  ");
     textcolor(14);
     readln(r);
     until ((r="0") or (r="1") or (r="2") or (r="3") or (r="4") or (r="5") or (r="007"));     { nabídka programů }

        {=========================}

A teď postupně všechny programy if

Info o pragramu mozek007

Vesměs blbosti, co mě napadli ve 14ti letech.

if r="007"then
  begin
  textbackground(0);

  clrscr;
  gotoxy(18,2);textcolor(15);write("============================================");
  gotoxy(18,3);textcolor(15);write("=");gotoxy(61,3);write("=");
  gotoxy(19,3);textcolor(125);write("L I C E N C N I   U J E N D N A N I    ");
  gotoxy(18,4);textcolor(15);write("============================================");
  writeln;
  writeln;
  textcolor(14);
  writeln(" Takže za prvé, tento program musíš šířit!!               ");
  writeln(" ALE! tenhle program nesmíš měnit, pokud mi o tom neřekneš! ");
  writeln(" Jestli programuješ na Pascalu, tak mi napiš nebo pošli programy! ");
  writeln(" Jestli seš bohatej tak mi pošli nějaky drobný ale ne deseťáky! ");
  writeln(" Hledám sponzory, možná i reklama v programu...");
  writeln(" Pokud máš zájem o spolupráci, tak mi napiš!");
  writeln(" Ale pokud najdeš nějakou pravopisnou chybu nebo něco podobného ");
  writeln(" tak to něříkej mojí učitelce Čežtyni..... Ok domluveno, jenom mě upozorni.");
  writeln(" Pokud máš nějaké nápady na vylepšení nebo programy tak mi napiš!");
  writeln("          ");
  writeln("          ");
  textcolor(blue);
  writeln(" Ok teď něco o mojí osobě ");
  writeln(" Je mi 14, chodím do Masarykovi základní školy ve Velkém Oseku. ");
  writeln(" Baví mě počítače, fotbal, hokej, amatérská kulturistika,");
  writeln(" mobily, motorka, informační technologie a holky.");
  writeln(" Momentálně jsem volný tak že, holky můžou psát i jen tak..");
  writeln(" Teď malé uklidnění abyste se holky nelekly, tak napíšu jak vypadám:");
  writeln(" Nevypadám jako počítačovej závislák a to poslední co bych chtěl by bylo,");
  writeln(" že bych nosil brejle, byl bílej jak stěna, hubenej bez svalů......to teda NE!!");
  writeln(" Jsem 172cm vysoký, 62KG hubený,tmavé vlasy a oči, atletická postava.");
  readkey;
    end;                               {BLA/BLA}

{=========================}

Program šetřič obrazovky

Docela vymakaný program, můj nejoblíbenější

if r="5"then
    begin
    textbackground(0);
    clrscr;
    gotoxy(22,4);textcolor(white);write("=");gotoxy(56,4);write("=");
    gotoxy(22,3);textcolor(white);write("===================================");
    gotoxy(23,4);textcolor(25);write("P R O G R A M  S E T R I C  0 0 7");
    gotoxy(22,5);textcolor(white);write("===================================");
    gotoxy(17,10);textcolor(10);write("Napiš jaký text chceš psát na monitor...");readln(textnamonitoru);
    gotoxy(17,12);textcolor(11);write("Zadej rychlost přepisování v milisekundách...");readln(rychlost);
    repeat;
    clrscr;
    gotoxy(22,4);textcolor(white);write("=");gotoxy(56,4);write("=");
    gotoxy(22,3);textcolor(white);write("===================================");
    gotoxy(23,4);textcolor(25);write("P R O G R A M  S E T R I C  0 0 7");
    gotoxy(22,5);textcolor(white);write("===================================");
    gotoxy(17,14);textcolor(12);write("Chceš, aby se text mazal? (A/N)...");readln(otazka);
    until ((otazka="a") or (otazka="A") or (otazka="n") or (otazka="N"));
    clrscr;
    repeat;
    if ((otazka="A") or (otazka="a")) then clrscr else;
    randomize;
    nahodaa:=random(70);
    nahodab:=random(25);
    barvac:=random(30);
    gotoxy(nahodaa,nahodab);
    textcolor(barvac);
    write(textnamonitoru);
    delay(rychlost);
    until keypressed;
    end;                               { program šetřič }

Program Kámen nůžky papír

Zase další můj "lepší" program. Také byl můj nejoblíbenější. Na škole neměl konkurenci

if r="3"then
                  begin

{=========================}

repeat
clrscr;
randomize;
x:=random(2);
begin
textbackground(black);
clrscr;
gotoxy(22,4);textcolor(white);write("=");gotoxy(56,4);write("=");
gotoxy(22,3);textcolor(white);write("===================================");
gotoxy(23,4);textcolor(25);write("P R O G R A M   K . N . P   0 0 7");
gotoxy(22,5);textcolor(white);write("===================================");
gotoxy(13,10);textcolor(1);write("Vyber si pane: 0=šutr, 1=nůžky, 2=hajzl papír. ");
readln(y);
gotoxy(13,12);
delay(250);
textcolor(14);write("Ja dávám ",x);
delay(250);
end;
case  x of
 0: begin
 if y=0 then
        begin
        textcolor(10);
        gotoxy(13,14);write("Hm, tak to je Remíza ....");
        end;
 if y=1 then
        begin
        gotoxy(13,14);
        writeln("Cha cha, prohrál jsi !");
        end;
 if y=2 then
        begin
        gotoxy(13,14);
        writeln("To je ale náhoda, to není možný, to je asi chyba programu.....");
        gotoxy(13,15);
        writeln("Ty si vyhrál ! Gratuluji.");
        end;
  end;
 1: begin
  if y=0 then
         begin
         gotoxy(15,14);
         writeln("Zase si vyhrál... Dáme si to znovu ? Prosím. ");
         end;
  if y=1 then
         begin
         gotoxy(13,14);
         writeln("Uf, remíza ");
         end;
  if y=2 then
         begin
         gotoxy(13,14);
         writeln("Směji se pod vousy - prohrál jsi prohrál   ");
         end;
 end;
 2:begin
   if y=0 then
          begin
          gotoxy(13,14);
          writeln("Nauč se to pořádně hrát, nebo prohraješ dům. ");
          end;
   if y=1 then
          begin
          gotoxy(13,14);
          writeln("Eště že jsme se o nic nevsázeli. Seš moc dobrej ");
          end;
   if y=2 then
          begin
          gotoxy(13,14);
          writeln("Znova ! Jsme stejně dobří ");
          end;
  end;
end;
textcolor(21);
gotoxy(15,16);
write("Chceš pokračovat?  1 ne nebo 0 ano ");readln(d);
until d=1;
textcolor(20);
gotoxy(15,18);write("Ahoj, příšte tě porazím, budu trénovat......");
readkey;                                                 { program Kámen nůžky papír }
end;
              {=========================}

Program neznámé číslo

Taky v pohodě program, ale není vůbec složitý na naprogramování v jakém koliv jazyku

if r="4"then
  begin
  textbackground(0);
  clrscr;
  window(10,2,70,4);
  textbackground(blue);
  clrscr;
  textcolor(2);
  gotoxy(12,2);
  write("Zadej, jaké největší možné číslo...");textcolor(14);readln(nejcislo);
  clrscr;
  gotoxy(12,2);
  textcolor(2);
  write("Myslím si číslo od 1 do ");textcolor(14);write(nejcislo);textcolor(2);write(", uhodni ho !");
  window(25,6,55,24);
  clrscr;
  randomize;
  cislo:=random(nejcislo);
  n:=1;
  textcolor(6);
  write(n,". marnej pokus: ");textcolor(14);
  read(hadane);
  while hadane<>cislo do
       begin
       textcolor(green);
       if hadane>cislo then writeln("Trošku uber !")
       else writeln("Trošku více !");
       n:=n+1;
       textcolor(6);
       write(n,". marnej pokus: ");
       textcolor(14);
       read(hadane);
       end;
  window(10,2,74,4);
  clrscr;
  writeln;
  textcolor(26);
  write(" Gratuluji, ale byla to doba. Moje číslo ",cislo," si uhádl na ",n,".pokus.");
  readkey;
  window(1,1,80,25);
  end;                             { program neznámé číslo }

{=========================}

Program Blik

Pouze rozblikal obrazovku, zadala se rychlost blikání. Prej to dokáže zničit monitor, tomu však nevěřím

if r="2"then
   begin
   textbackground(black);
   clrscr;
   gotoxy(22,4);textcolor(white);write("=");gotoxy(54,4);write("=");
   gotoxy(22,3);textcolor(white);write("=================================");
   gotoxy(23,4);textcolor(18);write("P R O G R A M  B L I K  0 0 7");
   gotoxy(22,5);textcolor(white);write("=================================");
   gotoxy(6,10);textcolor(11);write(" Zadej počet bliknutí ");readln(e);
   gotoxy(6,12);textcolor(9);write(" Zadej delku bliknutí v milisekundách ");readln(f);
   g:=1;
   textbackground(g);
   delay(200);
   for i :=1 to e do begin
   g:=g+1;
   textbackground(g);
   clrscr;
   delay(f);
   end;
   end;                                            { program Blik }

{=========================}

Program zvuk

Se zvukem jsem si vyhrál, naprogramoval krásné melodie. Efektní byl i program, co neobsahoval příkaz nosound. Takový program nevypnul zvuk. I když se program vypnul, nepříjemný zvuk hrál dál. Pomohl pouze reset počítače.

if r="1"then
   begin
   textbackground(0);
   clrscr;
   gotoxy(22,4);textcolor(white);write("=");gotoxy(54,4);write("=");
   gotoxy(22,3);textcolor(white);write("=================================");
   gotoxy(23,4);textcolor(25);write("P R O G R A M  Z V U K  0 0 7");
   gotoxy(22,5);textcolor(white);write("=================================");
   gotoxy(9,10);textcolor(10);write(" Nyní zadejte velikost tonu v herzích.... ");
   textcolor(14);readln(c);
   gotoxy(9,12);textcolor(4);write(" Těť zadejte delku tonu v milisekundách.... ");
   textcolor(14);readln(d);
   gotoxy(9,14);textcolor(5);write(" O kolik herz bude násludující ton zvýšen....");
   textcolor(14);readln(f);
   repeat
   gotoxy(22,4);textcolor(white);write("=");gotoxy(54,4);write("=");
   gotoxy(22,3);textcolor(white);write("=================================");
   gotoxy(23,4);textcolor(25);write("P R O G R A M  Z V U K  0 0 7");
   gotoxy(22,5);textcolor(white);write("=================================");
   gotoxy(15,15);textcolor(9);write("Nyní slyšíme ",c," herzců");
   sound(c);
   delay(d);
   nosound;
   c:=c+f;
   clrscr;
   until keypressed;                                  { program Zvuk }
               end;

Závěrečné titulky

if r="1"then
              begin
              readkey;
              end;
              if r="5"then
              begin
              readkey;
              end;
if((r="1")or(r="2")or(r="3")or(r="4")or(r="5")or(r="007"))then
clrscr;
textbackground(black);
textcolor(blue);
clrscr;
gotoxy(10,13);write("Chcete ukončit program Mozek 007 ? (AN)");read(konec);
until ((Konec="a") or (konec="A") or (konec="ano") or (konec="ANO"));


{====================}
if((r="0")or(r="1")or(r="2")or(r="3")or(r="4")or(r="5")or(r="007"))then
 begin
 textbackground(0);
 textcolor(14);
 clrscr;
 gotoxy(10,10);
 write("************************************************************");
 textcolor(1);
 gotoxy(5,11);
 writeln("     *         Děkuji Vám za použití tohoto programu.           *");
 textcolor(2);
 gotoxy(4,12);
 write("      *                  Vyrobeno 4.1.2002                       *");
 gotoxy(4,13);
 textcolor(4);
 write("      *     xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx      *");
 textcolor(15);
 gotoxy(4,14);
 write("      *                  E-mail :  Mozek007@seznam.cz            *");
 gotoxy(4,15);
 write("      *                   Mobil :  xxxxxxxxxxx                   *");
 gotoxy(4,16);
 write("      *                     Fax :  xxxxxxxxxxxx                   *");
 gotoxy(10,17);
 textcolor(14);
 write("************************************************************");
 readkey;
 end;

end.                                               { Závěr ........ }

A to je vše

K Turbo Pascalu jsem na internetu sháněl různé tutoriály, zdrojáky, měl pár kontaktů, sehnal jsem si i Turbo Pascal pro Windows, tam ale byla jiná syntaxe, staré pas soubroy mi nefungovali Nic moc tak jsem toho nechal. TP mi dal dobrý základ pro pochopení podmínek a cyklů, v současné době moc neprogramuji, snad jen to PHP, MySQL a Visual Basic. Jinak nic.