powtórzenie pętle for... , repeat

[admin]

Zadanie 1. Napisać program proszący o podanie dwóch liczb: a, b. Po wprowadzeniu liczb wyświetla a znaków * w b wierszach.

program ergonometrus;
uses crt,dos;
var x,y,a,b: integer;
begin
clrscr;
write('Podaj pierwsza liczbe: ');readln(x);
 write('Podaj druga liczbe: ');readln(y);
   for a:=1 to x do
   begin
   for b:=1 to y do write('* ');
   writeln;
   end;
   readkey;
   end.

[admin]

Zmiana koloru tła.

W Turbo Pascalu możliwa jest zmiana koloru tła. Aby zmienić kolor tła należy wpisać polecenie:
textbackground(x);
clrscr;

1 - x może przyjmować wartości od 0  do 7.
2 - Polecenie clrscr jest potrzebne  do wyczyszczenia tła. Jeżeli po poleceniu zmiany koloru nie zastosowano by  polecenia czyszczenia ekranu (clrscr) zmienione zostanie tylko tło czcionki. 

Przykład.
program ergonometrus;
uses crt,dos;
var x,y,a,b: integer;
begin
textbackground(2);
clrscr;
write('Podaj pierwsza liczbe: ');readln(x);
 write('Podaj druga liczbe: ');readln(y);
   for a:=1 to x do
   begin
   for b:=1 to y do write('* ');
   writeln;
   end;
   readkey;
   end.

[admin]

Przykład 2. Napisać program który zmienia kolor tła i pokazuje wartość argumentu polecenia textbackground(x).



program ergonometrus;
uses crt,dos;
var x,y: integer;
begin
 x:=0;
 repeat
 textbackground(x);
 clrscr;
   x:=x mod 8;
 write('Kolor tla: ',x);delay(1000);x:=x+1;
 until keypressed;
 end.

[admin]

Polecenie zmiany koloru czcionki: textcolor(x).
Zmiana koloru czcionki jest możliwa przez wykorzystanie polecenia textcolor(x);
Argument x przyjmuje wartości od 0 do 15.
Przykład

program ergonometrus;
uses crt,dos;
var x,y: integer;
begin
 x:=0;
 repeat
 textbackground(x);
 clrscr;
 x:=x+1;   x:=x mod 8;
 textcolor(4);
 write('Kolor tla: ',x);delay(1000);
 until keypressed;
 end.

[admin]

Zadanie 3. Proszę napisać program na pętli for który będzie zmieniał kolory tła. Kolory zmieniają się bez przerwy.

program zyzio;
uses crt,dos;
var x,y:byte;
begin
for x:=0 to 7 do
begin
textcolor(x);clrscr; write(x);delay(100);
if x=7 then x:=0;

end;end.

[admin]

Zadanie 4. Napisać program który wykorzystuje pętlę repeat ..until do zmiany koloru tła. Kolor tła zmieniany jest do czasu wciśnięcia dowolnego klawisza.

program zmieniacz;
uses crt,dos;
var x:word;
begin
clrscr;x:=1;
repeat
textbackground(x);
clrscr; delay(200);x:=x+1;
if x=7 then x:=0;
until keypressed;
end.

[admin]

Zadanie 5. Napisać program w którym literka "a" przemieszcza się od lewej do prawej strony ekranu. Wciśniecie dowolnego klawisza zatrzymuje program.

program zmieniacz;
uses crt,dos;
var x,y,z:word;
begin
clrscr;x:=2; z:=1;
repeat
gotoxy(x,10);write('a');delay(100);
clrscr;x:=x+z;
if x=65 then z:=-z;
if x=1  then z:=-z;
until keypressed;
end.

[admin]

Zadanie 6. Napisać program w którym litera "A" przemieszcza się poziomo na ekranie odbijając się od jego krawędzi. Przy każdym odbiciu zmieniany jest kolor tła i literki. Uwaga: kolor tła i litery nie moga mieć tych samych wartości.

program zmieniacz1;
uses crt,dos;
var x,y,z,a,b:word;
begin
clrscr;x:=2; z:=1;a:=1;b:=1;
repeat
gotoxy(x,10);write('A');delay(100);
clrscr;x:=x+z;
if x=65 then
 begin z:=-z;repeat a:=(a+1) mod 7;b:=(b+1)mod 15;until a<>b;
 textcolor(a);textbackground(b);
 end;
if x=1  then
begin z:=-z;repeat a:=(a+1) mod 7;b:=(b+1)mod 15;until a<>b;
textcolor(a);textbackground(b);
 end;
until keypressed;
end.

[admin]

Zadanie 7. Napisać program który prosi o podanie hasła. Jeżeli trzy razy hasło zostanie podanie niepoprawnie, ekran przyjmuje barwę zieloną. Na ekranie pionowo przemieszcza się czerwony napis "BRAK DOSTĘPU!!!!"

program zmieniacz8;
uses crt,dos;
var x,y,z:word;
haslo:string;
begin
clrscr;x:=0;y:=3;z:=1;
repeat

if x=3 then
begin
textbackground(green);textcolor(red);
repeat
gotoxy(20,y); write('BRAK DOSTEPU!!!!!');y:=y+z;
delay(200);
clrscr;
if y>20 then z:=-z;
 if y<2 then z:=-z;
  until keypressed;
   end;

gotoxy(40,10);write('Podaj haslo: ');readln(haslo);
x:=x+1; clrscr;
until haslo='rysio';

end.

[admin]

Zadanie 8. Napisać program który wyświetli na ekranie tabliczkę mnożenia 10x10. Do napisania programu wykorzystać pętlę for

Program rysio_misio;
uses crt,dos;
var x,y,z:word;
begin clrscr;
for x:=1 to 10 do
begin
for y:=1 to 10 do
write(x*y:4);
writeln; writeln;
end;
readkey;
end.

[admin]

Zadanie 9. Napisać program proszący o podanie dwóch liczb a, b. Następnie wyświetlający tabliczkę mnożenia a x b. Np. jeżeli podanidano a=4 i b=5 to wyświetlona zostanie tabliczka o rozmiarach 4 x 5. W kodzie wykorzystać pętle repeat i for.

Program cebula;
uses crt,dos;
var a,b,z,w:word;
begin clrscr;
write('Podaj pierwsza liczbe: ');readln(a);
write('Podaj pierwsza liczbe: ');readln(b);

for z:=1 to a do
                begin
            w:=1; writeln;writeln;
            repeat
                  write((z*w):4);
                  w:=w+1;
                  until w>=b+1;
                  end;
    readkey;
end.