Vše co student potřebuje vědět
1. Napíšte program, v ktorom sa kružnica bude posúvať po obrazovke vodorovne zľava doprava. Program pohyb; uses grafika; var x: integer; const biela=15; cierna=0; begin for x:=100 to 150 do beginsetcolor(biela); circle(x,100,20);delay(100);setcolor(cierna); circle(x,100,20); end;end.
1. Do súťaže Milionár sa telefonicky prihlásilo 3675 ľudí. Každý prihlásený dostal priradené číslo: prvý – 1, druhý- 2…… posledný 3675. Napíšte program, ktorý náhodne vyberie jedno číslo a vypíše ho na obrazovku monitora....
1. Vytvorte program, ktorý nakreslí pravouhlý trojuholník s odvesnami dlhými 50 a 100 bodov. Vyriešte úlohu tak, aby ste trojuholník vedeli ľahko premiestniť- teda nakresliť v ľubovoľnej pozícii. uses grafika;const X=210; Y=166;beginline (X,Y,X+100,Y);line (X,Y,X,Y+50);line...
1. Vytvorte program, ktorý prečíta zo vstupu reťazec a jednu samohlásku. Vypíšte reťazec tak, že všetky samohlásky v ňom nahradíte prečítanou samohláskou. Použite funkciu. var samohl,s, zamen: string;i: integer; function je_samohl (c:char): boolean;var j:...
1. Vytvorte program šetrič obrazovky, ktorý náhodne generuje obdĺžniky (t.j. umiestnenie, rozmer a farbu obdĺžnika), vykresľuje ich na obrazovku, dovtedy, kým sa nestlačí kláves. uses crt;var x1,x2,y1,y2,f:byte;beginclrscr;repeatrepeatx1:=random(79)+1;y1:=random(25)+1;x2:=random(79)+1;y2:=random(25)+1;f:=random(16);until (x1window(x1,y1,x2,y2);delay(300);textbackground(f);clrscruntil keypressed;end. 2. Vytvorte prezentáciu na tému...
1. Napíšte program, ktorý vytvorí kópiu zadaného textového súboru, ktorá nebude obsahovať prázdne riadky. V programe použite procedúru. var t,f:text; c:char;procedure zrus_prazne_riadky;var prazdny:boolean;begin assign(t,’k_pr3.txt‘);reset(t); assign(f,’kopia.txt‘);rewrite(f); while not eof(t) do begin prazdny:=true; while not eoln(t)...
1. Vytvorte program, ktorý prečíta zo vstupu reťazec. Tento reťazec vypisujte na obrazovku postupne skracovaný o jeden znak odzadu. AbcdefghiAbcdefghAbsdefgAbsdefAbcdeAbcdAbcAba 2. Vymenujte aké sú možnosti pripojenia na internet. Vysvetlite, ktoré z pripojení je v...
1. Napíšte program, ktorý najskôr náhodne vyberie prvú číslicu, vypíše ju na obrazovku, potom náhodne vyberie druhú číslicu a vypíše ju za prvú. Toto opakujte až po piatu číslicu. Medzi zobrazením ďalšieho čísla sa...
ZADANIE 10:1. V programe Borland Pascal 7.0 nakreslite štvorec, prostredníctvom štyroch úsečiek. Použite preddefinovaný uses grafika. 2. Pripravte leták pre divadelné predstavenie v textovom editore MS Word. Leták bude obsahovať názov predstavenia vytvorený pomocou...
1. Napíšte program, ktorý od používateľa načíta vetu ukončenú bodkou a vypíše tú istú vetu, ale všetky veľké písmená zmení na malé. var c:char; poceta:byte;beginwriteln(‚Zadaj vetu ukoncenu bodkou:‘);while not eoln do begin read(c); if...
1. Napíšte program, ktorý načíta deň a mesiac narodenia používateľa a vypíše jeho znamenie v zverokruhu: vodnár 21. 1.- 19. 2., blíženci 21. 5. – 21. 6., váhy 24. 9. – 23. 10.,ryby 20....
