Pseudografika

Pseudografika je vcelku k ničemu. 
Její jediný význam spočívá v tom, že se na ni pěkně pocvičí cykly a prvotní programátorské dovednosti. 
Zásadní je tu příkaz gotoXY (cislo, cislo)
je to asi o tom, že se položí kurzor na místo zadané souřadnicemi X a Y a tam se pak píše příkazem write



program pseudografika;
uses crt;
var a, b,c,d, i,j, klavesa: integer;

begin

  repeat {to je zacatek cyklu, ktery konci tim until dole:
         program se bude motat dokola, dokud nekdo nezmackne klavesu 1}
     writeln ('postupne zadej zacatek a konec prvniho cyklu a zacatek a konec druheho cyklu (4 cisla)');
     readln (a,b,c,d);
     for i:=a to b  do
        for j:= c to d  do
          {vnoreny cyklus pro i od 1 do 10 dělej... -> cyklus probehne 100x}

          begin
            GotoXY(j,i);
            Writeln('*');
          end;

     writeln ('stiskni 1, kdyz pokracovat, jinak nulu a program skonci');

     readln (klavesa);
   until klavesa<>1;
  {zde konci cyklus repeat}
 end.

Úkoly:

1. Pomocí pseudografiky namalujte rovnou čáru horizontální, vertikální, šikmou klesající, šikmou stoupající
   
2. Pomocí pseudografiky namalujte písmena T, K, L, M, V
   
3. Pomocí pseudografiky namalujte obdélník, trojúhelník, křížek, logo známé české rockové skupiny...
   
4. Pomocí pseudografiky namalujte domeček s dveřmi oknem a komínem, z kterého se kouří...