Judesio imitacija

Judesio imitacija • Stačiakampėlius galima judinti ir taip sudaryti primityvius vaizdus. Idėja paprasta: piešiame vienoje ekrano vietoje, trumpam vaizdą fiksuojame, o paskui toje pačioje vietoje piešiam fono spalva ir vaizdą keliame į kitą vietą. • Vaizdo užlaikymui naudojama procedūra • Delay(ms: word), kuri programos vykdymą užlaiko ms milisekundžių. Įvairūs judesiai: • Begin {judam iš kairės dešinėn} • langas(1, 1, 80, 25, 7); • for x := 1 to 70 do • begin • langas(2 * x, 12, 2 * x + 5, 15, 1); • delay(200); • end; • repeat until keypressed; • { judam į dešinę be pėdsako} • { judam į dešinę be pėdsako} • langas(1, 1, 80, 25, 7); • for x := 1 to 70 do • begin • langas(2 * x, 12, 2 * x + 5, 15, 1); • delay(200); • langas(2 * x, 12, 2 * x + 5, 15, 7); • end; • repeat until keypressed; • {judam iš viršaus žemyn} • for y := 1 to 20 do • begin • langas(35, y, 45, y + 2, 2); • delay(200); • langas(35, y, 45, y + 2, 7); • end; • repeat until keypressed; {judam įstrižaine} • {judam įstrižaine} • for x := 1 to 20 do • begin • langas(3 * x, x, 3 * x + 5, x + 2, 2); • delay(200); • langas(3 * x, x, 3 * x + 5, x + 2, 7); • end; • repeat until keypressed; • end. Crt papildymas • begin • langas(1, 1, 80, 25, 0); • x := 3; • repeat • langas(x, 12, x + 5, 14, 2); • gotoxy(3,2); • textcolor(0); • writeln(chr(32+random(100))); • delay(300); • langas(x, 12, x + 5, 14, 0); • x := x +2; • if x >70 then x := 3; • until keypressed; • end. begin • begin • s :='JURGA ' ; s := s + s + s; s := s + s; • langas(1, 1, 80, 25, 0); • x := 5; i := 1; y := 6; sp := 2; • repeat • langas(x, y, x + 3, y + 2, sp); • gotoxy(2,2); • textcolor(0); • writeln(s[i]); • delay(500); • i := i + 1; if (s[i-1] = ' ') • if (s[i-1] = ' ') • then langas(x, y, x + 3, y + 2, 0); • x := x + 4; • if (x >70) or (i > length(s)) then • begin • x := 5; i := 1; y := y +4; • langas(1,12,80,14,0); • sp := 1 + random(7); • end; • until keypressed; • end. Judam apskritimu: • begin • langas(1, 1, 80, 25, 0); • i := 0; • repeat • x := round(35 + 25 * cos(i)); • y := round(12 + 10 * sin(i)); • s := 1 + random(7); • langas(x, y, x + 10, y + 2, s); • delay(100); • langas(x, y, x + 10, y + 2, 0); • i := i + pi / 24; • until keypressed; • end. Funkcijos y = x2 grafikas • begin • langas(1, 1, 80, 25, 7); • x := -4; • while x

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!