Autorius Tema: pascal programa  (Skaityta 1599 kartus)

Neprisijungęs daktarashausas

  • Naujokas
  • *
  • Įrašai: 1
  • Karma: +0/-0
    • Žiūrėti profilį
pascal programa
« Įrašytas: 2012-11-29 00:49:40 am »
gal kas galetu padėti ,kad šitoje programoje perasius rezultatas butu : keturiu vienodu dydziu , skirtingu spalvu staciakampiai visiskai uzdengiantys ekrana

as visaip meginau  perasyt ,bet nieko nesigauna as dar zalias visame sitame dalyke ir reike iki rytojau ir nzn ka daryti  :'(

program Noname2;
uses crt;
var  x,y:integer;
begin
  textbackground(0);

  clrscr;
 
 
 
 
textbackground(15);

FOR y:=1 to 24 do

begin

for x:=1 to 12 do

begin

  gotoxy( x,y);
 
  writeln(' ');
 
  delay(55);
 
  end;
 
 
end;


gotoxy(1,1);


textbackground(15);

for x:=1 to 4 do

begin

textcolor(x);

for y:=1 to 5 do

begin

 end;
 
 writeln;
 
 delay(555);
 
 end;
 
 readln;
 
 end.

Manualai.lt Forumas

pascal programa
« Įrašytas: 2012-11-29 00:49:40 am »