Turbo_Pascal_test/HINTERG.PAS at master · NoNaeAbC/Turbo_Pascal_test · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
program hinterg;
uses crt, u1, u2, u3, graph;
var
   a,b:integer;
   c:String;
begin
     vorschau;
     clrscr;
     a:=0;
     b:=0;
     c:='';
     writeln ('Achtung dieses Programm dauert etwas l„nger ( etwa 10 min ). M”chten');
     writeln ('Sie es ausfhren ? J/N');
     read(c);
             if(c='j')
             or (c='J') then
             begin
             delay (5000);
             clrscr;
                    for a:=0 to 15 do
                    begin
                     for b:=0 to 16 do
                     begin
                          farbe(a,b);
                          writeln ('Dies ist die Hintergrundfarbe ',a,' und die Textfarbe ',b,'.');
                          delay (10000);
                          pause;
                     end;
                    end;
             if (c='n') or (c='N')
             then
             end
             else
end.