Ii-bob. Paskal tilida oddiy algoritmlarni dasturlash asoslari. Dasturlashtirishda bajariladigan harakatlar konsepsiyasi

Matematika va fizika fanlariga doir masalalarni dasturini tuzish
1- misol.

Uchburchakni a,b,c tomonlariga ko’ra balandliklarini hisoblash dasturini tuzing.

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.


2-misol

Oylar nomlarini chop etish dasturi tuzilsin.

Dastur:
PROGRAM WEEK(INPUT,OUTPUT);
VAR NUMBER: INTEGER;
BEGIN READ(NUNBER);
CASE NUMBER OF;
1: WRITELN (‘YANVAR’);
2: WRITELN (‘FEVRAL’);
3: WRITELN (‘MART’);
4: WRITELN (‘APREL’);
5: WRITELN (‘MAY’);
6: WRITELN (‘IYUN’);
7: WRITELN (‘IYO’L’);
8: WRITELN (‘AVGUST’);
9: WRITELN (‘SENTABR’);
10: WRITELN (‘OKTABR’);
11: WRITELN (‘NOYABR’);
12: WRITELN (‘DEKABR’);
END; END.


3-misol.

Bizga A haqiqiy son berilgan bo’lsin 3 ifodaning qiymatini saqlaydigan qo’shimcha o’zgaruvchi kattalik kirgizishimiz lozim. Agar, biz bu kattalikni U identifikatori bilan belgilasak, u holda K=0 da y=1 dan boshlab, bitta qadam bilan o’zgarishiga 3 formulani (darajaga kutarishni) Y=Y*3 rekkurent formula bilan almashtiramiz. U holda EHMni takrorlanishdagi hisobdan chikish sharti Y>A bo’ladi.

Yuqorida ko’rib chiqilgan operatordan foydalanib, ushbu misolni dasturini tuzamiz.
Program wel;
Var k: intejer; y, m:real;
Begin
Y:=1; k:=0; m:=30;
While y<=m do
Begin Y:=y*3; k:=k+1;
Writeln (k=, y=y)
End; End.