Informatika va at



Download 5,36 Mb.
bet169/201
Sana14.01.2022
Hajmi5,36 Mb.
#365225
TuriРеферат
1   ...   165   166   167   168   169   170   171   172   ...   201
Bog'liq
algatirm mazmua

8.25. a0 ,a1, ..., a99 sonlar chop qilinsin. Bu yerda a0 – berilgan butun son, , n=1, 2, ...,99.

8.26. const n=100;

var x: array [1..n] of real;

Berilgan x vektor quyidagi qoida bo'yicha hosil qilinsin ( hosil bo'lgan vektor k-elementining qiymati):

a) = max xi bunda 1 i  k;

b) vektor elementlari teskari tartibda joylashtirilsin;

v) x = x1, x = xn, = (xk-1+xk+xk+1)/3, k=2,3,...,n-1;

g) vektor elementlari bitta pozitsiya chapga siklik ravishda suril­sin: x =x1, =xk1, k=1,2,...,n-1;

d) vektor elementlari ikkita pozitsiya chapga siklik ravishda surilsin.



8.27. var x,y: array [1..70] of real; k: 1..69;

Berilgan x vektor quyidagi qoida bo'yicha hosil qilinsin (u yordamchi vektordan foydalanib):

a) x vektorning barcha manfiy elementlarini uning boshiga, qolgan elementlari esa oxiriga o'tkazilsin, bunda berilgan vektorning manfiy va qolgan elementlaring boshlang'ich o'zaro joylashuvi saqlansin.

b) x vektor elementlari k o'rin chapga siklik ravishda surilsin.



8.28. const k=50; m=20; n=70; {n=k+m}

var x: array [1..k] of real;

y: array [1..m] of real;

z: array [1..n] of real;

Berilgan x va u vektorlarning har birida elementlar kamaymay­digan tartibda joylashgan. Bu ikki vektorni birlashtirib, shunday z vektor hosil qilinsin, uning elementlari ham kamaymaydigan tar­tibda bo'lsin.

8.29. var k: 0..99999;

d: array [1..5] of ‘0’..’9’;

a) d vektorga berilgan k sonining raqamlari yozilsin;

b) berilgan d vektordagi raqamlardan hosil bo'lgan k butun son hosil qilinsin.



8.30. type mantissa = array [1..9] of ‘0’..’9’;

tartib = array [1..2] of ‘0’..’9’;

var m: mantissa; p:tartib; x:real;

x o'zgaruvchiga 0.m1m2...m9· ko'rinishidagi haqiqiy son o'zlash-tirilsin.



8.31. type oy=(yan,fev,mar,apr,may, iyn,iyl,avg,sen,okt,noy,dek);

var oy_kuni: array [oy] of 28..31;

ks vektorning har bir elementiga unga mos kelgan oydagi kunlar soni berilsin (kabisa bo'lmagan yillar uchun).

8.32. var t: array [1..365] of real;

m: oy; {8.31 ga qarang}

Kabisa bo'lmagan biror bir yilning har bir kunining haroratini bildiruvchi t vektor bo'yicha o'rtacha oylik harorati eng katta bo'lgan oyning nomi m aniqlansin.

8.33. const n = 40;

var x: array[1..n] of integer;

y, k: integer;

t: boolean;

Quyidagi masalani yechish uchun programma tuzilsin:

a) agar x vektorning elementlari qat'iy o'sish tartibida tartib­langan bo'lsa, t o'zgaruvchiga true qiymat, aks holda false qiymat berilsin.

b) agar x vektorda nol elementlar bo'lmasa, va musbat elementlar manfiy elementlar bilan navbatma-navbat almashib kelsa, t o'zgaruvchiga true qiymat, aks holda false qiymat berilsin.

v) k o'zgaruvchiga, x vektorda uchragan y soniga teng bo'lgan birinchi elementning tartib nomeri, agarda y son x vektorda uchramasa n+1 berilsin.

g) y = x1+x1x2+x1x2x3+...+x1x2...xm hisoblansin, bu yerda m – x vektorda uchragan birinchi manfiy sonning tartib nomeriga teng. Agar x vektorda manfiy elementlar bo'lmasa m o'zgaruvchi n qiymatini qabul qiladi.


Download 5,36 Mb.

Do'stlaringiz bilan baham:
1   ...   165   166   167   168   169   170   171   172   ...   201




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish