Darmowe Forum

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.

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.

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.

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.

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.

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.

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.

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.

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.

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.

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.