WRITE (LOLA:10, RIS:6); operatorlari ishlatiladi

Download 1,78 Mb. Pdf ko'rish
bet	73/91
Sana	14.05.2024
Hajmi	1,78 Mb.
	#231443

1 ... 69 70 71 72 73 74 75 76 ... 91

Bog'liq
informatika va axborot texnologiyalari.

WRITE (LOLA:10, RIS:6); operatorlari ishlatiladi,
bu yerda c - o’zgaruvchining nomi, m - butun:6);
Bu operator LOLA nomli o’zgaruvchining qiymati uchun 10 ta, RIS - uchun 6
ta joy ajratadi.
2 WRITELN(LES:8:5);
Bunda LES o’zgaruvchi uzunligi 8 ga teng bo’lib, 5 tasi kasr uchun ajratilgan.

Misol.
Uchburchakni a,b,c tomonlariga ko’ra balandliklarini hisoblash dasturini tuzing.
)
)(
)(
(
2
c
p
b
p
a
p
p
a
H
a




)
)(
)(
(
2
c
p
b
p
a
p
p
b
H
b




)
)(
)(
(
2
c
p
b
p
a
p
p
c
H
c




p=(a+b+c)/2;

Yechish:

Masalani natijasini olish uchun a, b, c parametrlar asosiy kiritiladigan qiymatlar,
bu qiymatlarni kiritish uchun READ operatoridan foydalanamiz.
Dastur:
PROGRAM YE(INPUT,OUTPUT);
VAR A, B, C, P, T, HA, HB, HC: REAL;
BEGIN READ (A, B, C);
P:=(A+B+C)/2;

T:=2*SQRT(P*(P-A)*(P-B)*(P-C));

HA:=T/A; HB:=T/B; HC:=T/C;
WRITELN (‘HA=’;HA); WRITELN (‘HB=’;HB);
WRITELN (‘HC=’;HC); END.
Dastur tuzib o’zgarmas va o’zgaruvchilarni nomini yozishda ularning qiymatini
mazmunini ifodalaydigan nomlardan foydalanish maqsadga muvofiq bo’ladi.
Paskalda bir qatorga bir necha operator yozish mumkin bo’lsada, lekin ko’p
hollarda dasturni qabul qilinishi yomon oqibatlarga olib kelishi mumkin. Shuning
uchun imkoni bo’lsa, alohida yozish tavsiya etiladi.

Download 1,78 Mb.

1 ... 69 70 71 72 73 74 75 76 ... 91

Download 1,78 Mb.

Pdf ko'rish