Assalomu alaykum, yordam.uz saytimizga xush kelibsiz.
Bu saytda o`zingizni qiziqtirgan savollarga javob olishingiz va o`z sohangiz bo`yicha savollarga javob berishingiz mumkin. Bizning Oilamizga a'zo bo`lganingiz uchun chuqur Minnatdorchilik bildiramiz !!!

pascalda shrift kattaligini belgilash

+2 ovoz
114 marta ko‘rilgan
so‘radi 13 dekabr, 17 eldorislomov (48 bal)
tahrirlandi 15 dekabr, 17 Saidolim

pascalda shrift kattaligini belgilash uchun qaysi protsedura yoki operatordan foydalaniladi?
Masalan

Uses crt;
  Label N1, N2;
      Var a, b: integer;
Begin
       N1: clrscr;
             Randomize;
    a:=random (151); gotoXY (40,12) ; writeln (a); Readln (b);
     If b=1 then goto N2 Else goto N1

N2: Readln;

End.

Shu dasturdagi a o'garuvchining qiymatini ekranda qanday katta qilib chiqarish mumkin?

izoh qoldirdi 13 dekabr, 17 Saidolim (3,566 bal)
agar crt rejimida ishlayotgan bo`lsangiz, katta qila olmisiz. Grafik rejimda bo`lsagina katta qilish mumkin.
izoh qoldirdi 13 dekabr, 17 Saidolim (3,566 bal)
Programma kodida ham xato bor. N2 ni qayerda ekanini ko`rsatmapsiz.
izoh qoldirdi 14 dekabr, 17 eldorislomov (48 bal)
Assalomu alaykum pastdagi N1 o'rniga N2 bo'lishi kerak edi. Graph modulida random funksiyasi ishlaydimi? Yani katta ekranda 1 dan 150 gacha sonlarni tasodifiy ko'rsatish uchun qanday dastur tuzish kerak.  Enter tugmasi bosilganda har safar har xil son bo'lishi kerakda.
izoh qoldirdi 15 dekabr, 17 Saidolim (3,566 bal)
Grafik rejimida Random ishlaydi. Sababi grafik rejimi faqat ko`rsatish uchun. Random esa programmani bajarilish jarayonida, shunga Random uchun farqi yoq console damisiz, yoki grafikdami.
izoh qoldirdi 17 dekabr, 17 eldorislomov (48 bal)
console da bo'lsam kerak menimcha. Sizdan bir iltimos qilsam, ya'ni dastur matnini kompilyatsiya qilib ishlatganda yozuv ekranga juda kichik bo'lib chiqyaptida. Ekranga kaatta bo'lib chiqadigan qilib bera olasizmi? Kodga o'zgartirish kiritib. Men graph holatga o'tkazib outtext qilsam faqat o'zgarmas miqdorni chiqaryapti. 1 dan 150 gacha bo'lgan o'zgaruvchini random funksiyasida qanday yozishni bilmayapmanda. Shunga yordam berib yuboring Iltimos!
izoh qoldirdi 17 dekabr, 17 eldorislomov (48 bal)
Bo'ldi siz aytganday faqat chiqarish uchun graph modulidan foydalanuvdim hammasi ishladi. Mana kodi

uses graph, crt;
var gd, gm, a, b: integer; t: string;
d: string;
begin
repeat

Begin
 clrscr;
 randomize;
a:=random (151);
End;

str(a,t);
initGraph(gd,gm, '');
gd:=0;
setTextStyle(11,0,19);
outTextXY(50,200, t);
readln;
closegraph;
until b=1;
end.

1 ta javob

0 ovoz
javob berdi 17 dekabr, 17 eldorislomov (48 bal)
tahrirlandi 14 yanvar, 18 Saidolim
Javobi o'zim topdim :-)


uses graph, crt;
var gd, gm, a, b: integer; t: string;
d: string;
begin
repeat

Begin
 clrscr;
 randomize;
a:=random (151);
End;

str(a,t);
initGraph(gd,gm, '');
gd:=0;
setTextStyle(11,0,19);
outTextXY(50,200, t);
readln;
closegraph;
until b=1;
end.

Assalomu alaykum, yordam.uz saytimizga xush kelibsiz.

Bu saytda o`zingizni qiziqtirgan savollarga javob olishingiz va o`z sohangiz bo`yicha savollarga javob berishingiz mumkin.

Bizning Oilamizga a'zo bo`lganingiz uchun chuqur Minnatdorchilik bildiramiz !!!

Telegram kanal YordamUzRss

...