Ш. И. Раззоќов, М. Д. Юнусова turbo pascal алгоритмик тилида дастурлаш касб-ћунар коллеж талабалари учун ўќув ќўлланма


var x:Real; y:Integer; st,st1:String


Download 1.74 Mb.
bet53/96
Sana30.04.2023
Hajmi1.74 Mb.
#1413831
1   ...   49   50   51   52   53   54   55   56   ...   96
Bog'liq
Turbo Pascal назария

var
x:Real;
y:Integer;
st,st1:String
begin
st:=concat (12, 345); {st сатр 12345 га эга}
st1:=copy (st,3, Length (st)-2); {st1 сатр 345 га эга }
insert (-, st1,2); {st1 сатр 3-45 га эга }
delete (st, pos (2, st),3); {st сатр 15 га эга}
str (pi:6:2, st); {st сатр 3,14 га эга }
val (3,1415,x,y); {у 2 га эга, у ўзгаришсиз ќолди}
end.
Муносабат амаллари (=, <>, >, <, >=, <=) иккита сатр устидан белгилари бўйича, чапдан ўнгга томон, белгиларнинг ички кодировкасини ћисобга олган ћолда, бажарилади, агар битта сатр, узунлиги бўйича бошќасидан кичик бўлса, ќисќа сатрнинг етишмаган белгилари CHR(0) ќиймат билан алмаштирилади.
Ќуйидаги муносабат амаллари TRUE ќийматни беради:
  <  . 
A > 1
Turbo <Turbo Pascal
Паскаль > Turbo Pascal

9.2. Ёзувлар


Ёзув - бу ёзув майдонлари деб аталувчи белгиланган сондаги аъзолардан иборат маълумотлар таснифидир. Массивдан фарќ ќилиб, ёзув аъзолари (майдонлари) ћар хил турли бўлиши мумкин. Ёзувнинг у, ёки бу аъзосига мурожаат ќила олиш мумкин бўлиши учун майдонлар номланади.
Ёзувлар турини эълон ќилиш таснифи ќуйидагича:
<тур номи> = RECORD <майдонлар рўйхати> END
бу ерда: <тур номи> - тўѓри идентификатор;
RECORD, END – резерв сўзлар (ёзув, охири)
<майдонлар рўйх.> - ораларида нуќтали вергул ќўйилган ёзув бўлимлари кетма-кетлигини ифодаловчи майдонлар рўйхати.
Ёзувнинг ћар бир бўлими бир-биридан вергул билан ажратилган бир ёки бир нечта майдон идентификаторидан иборат. Идентификатор (идентификаторлар)дан кейин икки нуќта ќўйилади ва майдон (майдонлар) тури баёни ёзилади, масалан:
type
BirtDay=record
day,month:byte
year:word
end;
var
a,b:Birthday
…………
Бу мисолда BIRTHDAY (тугилган кун) тури DAY, MONTH ва YEAR (кун, ой ва йил) майдонларга эга ёзув; А ва В ўзгарувчилар BIRTHDAY туридаги ёзувларга эга.
Массивдаги каби, ёзув тури ўзгарувчиларининг ќийматларини ўша турдаги бошќа ўзгарувчиларга ўзлаштириши мумкин, масалан:
a: = b;
Агар мураккаб исмдан фойдаланилса, яъни ўзгарувчи исми, кейин нуќта ва майдон исми кўрсатилса, ёзувнинг ћар бир аъзоси билан ишлаш мумкин:
a.day:=27
b.year:=1939
Ичма-ич майдонлар учун аниќлик киритиш давом эттирилади:

Download 1.74 Mb.

Do'stlaringiz bilan baham:
1   ...   49   50   51   52   53   54   55   56   ...   96




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