|
Yusupjonov Azizbekning
|
| bet | 2/4 | | Sana | 06.07.2024 | | Hajmi | 10,15 Mb. | | #266740 |
Bog'liq Azizbek 1IAT 1 Ro\'imov.B gaProgram takrorlanuvchi;
Uses crt;
Var i:integer;
Begin
Textcolor(blue);
For i:=1 to 20 do
Write(‘ ’,I,‘ ADU informatika’);
End.
3-rasm.
Bundan tashqari until va while operatori bilan ha ishlash mumkin.
Proseduralar judaha ko’p bo’lib bularga misollar:
***********************************************************************
Exit dasturdan chiqish.
Clrscr ekranni tozalash.
Halt programma bajarilishini to’htatadi va OC ga boshqarishni qaytaradi.
Runerror programma bajarilishini to’htatadi va bajarilish vaqtidagi xatolarni aniqlaydi.
Dec o’zgaruvchi qiymatini kamaytiradi.
Inc o’zgaruvchi qiymatini ortiradi.
Pred argumantni oldingi qiymatini aniqlash.
Succ argumentni keying qiymatini aniqlash.
Str sonli qiymatni uning satrli ko’rinishiga o’tkazadi.
Val satrli o’zgaruvchini uning sonly o’zgaruvchiga o’zgartiradi.
Randommize tasodifiy sonni xosil qiluvchi generatorni ishga tushhuradi.
UpCase kichik lotin xarflarini katta harfga o’tkazadi.
GetTime EHM soatida xozirgi vaqtni aniqlaydi.
SetTime EHM soatiga yangi vaqt o’rnatadi.
PackTime kun, oy, yil va vaqt ma’lumotlarini faylga yozadi.
Unpack kun, oy, yil va vaqt ma’lumotlarini faylini ochib beradi.
GetFtime ochiq F fayl uchun kun oy vaqtni yozib o’qib beradi.
SetFtime ochiq F fayl uchun kun oy vaqtni yozib saqlaydi… va h.k lar.
**************************************************************
Bundan tashqari grafik proseduralarham mavjud bo’lib ular quyidagilardir:
Putpixel (x,y) kordinatali nuqtani Color parametri bilan aniqlangan panga bo’yaydi.
Getpixel (x,y) kordinatali nuqtani rangini aniqlab beradi.
|
| |
