| Kapa6acuK | Дата: Четверг, 31.05.2012, 10:52 | Сообщение # 1 |
А что такое реальный мир...?
Сообщений: 49
Offline
| Задание:
Variants 2
Sastādīt programmu analoģisku paraugam: paraugs20_2.exe.
1. Izvadīt uz ekrāna skaitļus no 9 līdz 0 virzienā no labās uz kreiso pusi. Pauze starp izvadamiem skaitļiem ir 0.5 sekundes.
2. Izvadīt uz ekrāna 10 simbolus *. Izvads jāsak 1.rindā, 1.pozicijā; jābeidz 10.rindā, 10.pozicijā. Katru simbolu izvadīt ar atšķirīgu (gadījuma) krāsu. Pauze starp izvadamiem simboliem ir 0.5 sekundes.
3. Izvadīt uz ekrāna mirgošo uzrakstu „Nospiediet jebkuru pogu!”. Uzraksta mirgošanas periods ir 2 sekundes: 1 sekundi uzraksts ir bruns uz melna fona, 1 sekundi melns uz bruna fona. Uzraksts turpina mirgot kamēr netiks nospiesta kaut kāda poga. (until KeyPressed)
4. Izvadīt uz ekrāna 5 dzeltenas krāsas zvaigznītes (*) gadījuma pozīcijās ar intervālu 1 sekunde. Pēc izvada nodzest pa vienai visas zvaigznītes ar intervālu 1 sekunde.
Решение:
program Vishkers;
uses crt;
var i,i2,x:integer; M1,M2:array [1..5] of integer;
begin
randomize;
//2.variants
//1.uzdevums
for i:=9 downto 0 do
begin
gotoxy (i,1);
write (i);
delay (500);
end;
clrscr;
//2.uzdevums
for i:=1 to 10 do
begin
gotoxy (i,i);
textcolor (random (16)+1);
write ('*');
delay (500);
end;
clrscr;
//3.uzdevums
repeat
window(1,25,26,25);
textbackground(0);
clrscr;
textcolor(6);
write('Nospiediet jebkuru pogu !');
delay(1000);
clrscr;
textbackground(6);
clrscr;
textcolor(0);
write('Nospiediet jebkuru pogu !');
delay(1000);
until keypressed;
//4.uzdevums
for i:=1 to 5 do
begin
i2:=random(25)+1;
x:=random(80)+1;
gotoxy (x,i2);
textcolor (yellow);
write ('*');
delay (1000);
M1[i]:=x;
M2[i]:=i2;
end;
for i:=1 to 5 do
begin
gotoxy (M1[i],M2[i]);
textcolor (black);
write ('*');
delay (1000);
end;
readln;
end.
The Door Of History Is Open ... Will You Walking Through ? Я <3 Fr0z3n'a
|
| |
| |
AE Radio 
