| Kapa6acuK | Дата: Вторник, 19.06.2012, 12:25 | Сообщение # 1 |
А что такое реальный мир...?
Сообщений: 49
Offline
| Задание:
Variants 2
Sastādīt programmu analoģisku paraugam: paraugs21_2.exe.
1. Sameklējiet internetā kādas valsts karogu (trīsjoslu un trīskrāsainu), iedodiet izvēlētās valsts nosaukumu Jūsu grupas biedram. Pierakstiet koda rindas, izmantojot procedūras Window, ar kuru palīdzību būtu uzzīmēts no Jūsu grupas biedra saņemtas valsts karogs. Karoga izmēri ir 40-60 pozīcijas un 15-20 rindas.
2. Saskaņā ar doto paraugu, uzzīmēt uz ekrāna divkrāsainu ģeometrisku figuru ar 8 logu palīdzību.
3. Strādājot pārī, saskaņā ar doto paraugu uzzīmēt uz ekrāna Latvijas karogu, izmantojot pēc iespējas mazāk logu skaitu. Karoga platums – 45 pozicijas, augstums – 16 rindas.
Решение:
program Vishkers;
uses crt;
begin
//1.uzdevums - karogs RUSSIA !
window (1,1,80,25);
textbackground (yellow);
clrscr;
window (1,1,40,5);
textbackground (white);
clrscr;
window (1,6,40,11);
textbackground (blue);
clrscr;
window (1,11,40,15);
textbackground (red);
clrscr;
readln;
window (1,1,80,25);
textbackground (black);
clrscr;
//2.uzdevums
window (1,1,16,16);
textbackground (yellow);
clrscr;
window (3,3,16,16);
textbackground (blue);
clrscr;
window (5,5,16,16);
textbackground (yellow);
clrscr;
window (7,7,16,16);
textbackground (blue);
clrscr;
window (9,9,16,16);
textbackground (yellow);
clrscr;
window (11,11,16,16);
textbackground (blue);
clrscr;
window (13,13,16,16);
textbackground (yellow);
clrscr;
window (15,15,16,16);
textbackground (blue);
clrscr;
readln;
//3.uzdevums
window(1,1,80,25);
textbackground(0);
clrscr;
window(1,4,2,10);
textbackground(12);
clrscr;
window(1,11,2,12);
textbackground(15);
clrscr;
window(1,13,2,19);
textbackground(12);
clrscr;
window(3,5,7,11);
textbackground(12);
clrscr;
window(3,12,7,13);
textbackground(15);
clrscr;
window(3,14,7,20);
textbackground(12);
clrscr;
window(8,6,17,12);
textbackground(12);
clrscr;
window(8,13,17,14);
textbackground(15);
clrscr;
window(8,15,17,21);
textbackground(12);
clrscr;
window(18,5,21,11);
textbackground(12);
clrscr;
window(18,12,21,13);
textbackground(15);
clrscr;
window(18,14,21,20);
textbackground(12);
clrscr;
window(22,4,25,10);
textbackground(12);
clrscr;
window(22,11,25,12);
textbackground(15);
clrscr;
window(22,13,25,19);
textbackground(12);
clrscr;
window(26,3,29,9);
textbackground(12);
clrscr;
window(26,10,29,11);
textbackground(15);
clrscr;
window(26,12,29,18);
textbackground(12);
clrscr;
window(30,2,39,8);
textbackground(12);
clrscr;
window(30,9,39,10);
textbackground(15);
clrscr;
window(30,11,39,17);
textbackground(12);
clrscr;
window(40,3,44,9);
textbackground(12);
clrscr;
window(40,10,44,11);
textbackground(15);
clrscr;
window(40,12,44,18);
textbackground(12);
clrscr;
window(45,4,45,10);
textbackground(12);
clrscr;
window(45,11,45,12);
textbackground(15);
clrscr;
window(45,13,45,19);
textbackground(12);
clrscr;
readln;
end.
The Door Of History Is Open ... Will You Walking Through ? Я <3 Fr0z3n'a
|
| |
| |
AE Radio 
