Рабочие листы
к вашим урокам
Скачать
1 слайд
10-NJY
ORTA
MEKDEP
2 слайд
Informatika
9-njy synp
3 слайд
Turbo
Paskalda
mysallar
we
çözüliŞi
4 слайд
1. Üçburçlugyň taraplarynyň a,b,c uzynlyklary berlen.
Geronyň formulasyny ulanyp üçburçlugyň meýdanyny tapmaly.
Çözülişi
5 слайд
Üçburçlugyň meýdanyny hasaplamak.
var
A:REAL;
B: REAL;
S:REAL;
BEGIN
WRITELN(' BAHASYNY GIRIZ A,B:');
READ(A,B);
S:=(A*B)/2;
WRITELN;
WRITE('UCHBURCHLUK MEIDANY=',S:7:2)
END.
6 слайд
2. Üçburçlugyň meýdanyny Geronyň formulasy boýunça hasaplamak.
Çozülişi
7 слайд
var a,b,c,p,s: Real;
begin
write ('uchburch taraplaryny giriz');
read(a,b,c);
p:=(a+b+c)/2;
s:=SQRT(p*(p-a)*(p-b)*(p-c));
write('Uchburch meidany=',s:8:2);
end.
8 слайд
3. Trapesiýanyň meýdanyny hasaplamak.
Çözülişi
9 слайд
var
BS:REAL;
AD: REAL;
H:REAL;
S:REAL;
BEGIN
WRITELN('BAHASYNY GIRIZ BS,AD,H:');
READ(BS,AD,H);
S:=(BS+AD)*H/2;
WRITELN;
WRITE('TRAPESIA MEIDANY=',S:7:2)
END.
10 слайд
4. Şaryň göwrümini hasaplamak.
Çözülişi
11 слайд
program shar;
var r: real;
v: real;
begin
r:=0.2;
v:=4*pi*r*r*r/3;
writeln('Sar gowrumi=',v:8:3);
end.
12 слайд
5. Taraplary A we B bolan dörtburçlygyň perimetrini A=9, B=21 bolan ýagdaý üçin programma ýazmaly.
Çözülişi
13 слайд
Program mysal;
var A,B,P : integer;
BEGIN
A:=9;
B:=21;
P:=(A+B)*2;
WRITELN(P)
END.
14 слайд
6. Mysal. Bitin K san berlipdir. K sana gabat gelýän bahany beýan edýän sözi çykarmaly
(1-“ýaramaz”, 2-“kanagatlanarsyz”, 3-“kanagatlanarly”,4 –“ýagşy”, 5-“örän ýagşy”).
Eger-de K san 1-5 aralykda ýatmaýan bolsa onda ýalňyş diýen ýazgyny ekrana çykarmaly.
Çözülişi
15 слайд
Program Bahalar;
var k:integer;
begin
read (k);
case k of
1: writeln ('varamaz');
2: writeln ('kanagatlanarsyz');
3: writeln ('kanagatlanarly');
4: writeln ('vagshy');
5: writeln ('oran vagshy');
else writeln ('k-nyng bahasy valngysh');
end;
end.
16 слайд
7. Mysal 1-12-nji aýlaryň nomerleri berilipdir(1-Ýanwar,2-Fewral,3-Mart, ...,12-Dekabr). Bu aýyň ýylyň haýsy paslyna degişlidigini kesgitlemeli we çapa çykarmaly.
Çözülişi
17 слайд
Program Pasyllar; var k:integer;
begin
read (k);
case k of
1: writeln ('gysh');
2: writeln ('gysh');
3: writeln ('bahar');
4: writeln ('bahar');
5: writeln ('bahar');
6: writeln ('ýaz');
7: writeln ('ýaz');
8: writeln ('ýaz');
9: writeln ('güz');
10: writeln ('güz');
11: writeln ('güz');
12: writeln ('gysh');
else writeln ('k-nyng bahasy valngysh');
end;
end.
18 слайд
8. ax2 +bx+c=o Kwadrat deňlemäniň köklerini hasaplamagyň programmasyny düzmeli.
Çözülişi
19 слайд
Çözülişi. D=b 2 -4ac; D>0, x1=(-b-sqrt(D)/(2a), x1=(-b+sqrt(D)/(2a), D=0,
label 1;
var a,b,c,d,x,x1,x2:real;
begin
1:write('a,b,c-ny bahalaryny giriz');
read (a,b,c);
if a=0 then goto 1;
d:=SQRT(b)-4*a*c;
if d<0 then writeln ('D H K vok') else if d=0 then writeln ('x=',-b/(2*a)) else begin x1:=(-b-SQRT(D))/(2*A);
X2:=(-b+SQRT(d))/(2*a);
writeln('x1=',x1,'x2=',x2);
end;
end.
20 слайд
8.1. Berlen üç a,b,c sanlardan iň kiçisini tapmak üçin programma ýazmaly.
Çözülişi
21 слайд
var
a,b,c,min:integer;
begin
Writeln('a,','b,','c-sanlary giriz');
read(a,b,c);
if a<b
then min:=a
else min:=b;
if c<min
then min:=c;
writeln('a=',a,' b=',b,' c=',c);
writeln('ing kicgi san=',min);
end.
22 слайд
9. Kök almak programmasyny ýazmaly.
Çözülişi
23 слайд
var
x,y: real;
begin
read(x);
y:=SQRT(x);
writeln('y=',y);
end.
24 слайд
10. 1+1/21+...+1/2k jemi hasaplamaly (hasaplamany 2k>1000 bolýança dowam etmeli).
Çözülişi
25 слайд
Program Jem2;
i:integer; s:real;
begin
s:=0; i:=1;
Repeat
s:=s+1/i;
i:=i*2;
until i>1000;
writeln('s=',s:9:4);
end.
Çykmak
Рабочие листы
к вашим урокам
Скачать
Informatika 9-njy synp Turbo Paskalda mesele we mysallaryň çözülüşi. 1. Üçburçlugyň taraplarynyň a,b,c uzynlyklary berlen. Geronyň formulasyny ulanyp üçburçlugyň meýdanyny tapmaly. Üçburçlugyň meýdanyny hasaplamak. var A:REAL; B: REAL; S:REAL; BEGIN WRITELN(' BAHASYNY GIRIZ A,B:'); READ(A,B); S:=(A*B)/2; WRITELN; WRITE('UCHBURCHLUK MEIDANY=',S:7:2) END. 2. Üçburçlugyň meýdanyny Geronyň formulasy boýunça hasaplamak. var a,b,c,p,s: Real; begin write ('uchburch taraplaryny giriz'); read(a,b,c); p:=(a+b+c)/2; s:=SQRT(p*(p-a)*(p-b)*(p-c)); write('Uchburch meidany=',s:8:2); end. 3. Trapesiýanyň meýdanyny hasaplamak. var BS:REAL; AD: REAL; H:REAL; S:REAL; BEGIN WRITELN('BAHASYNY GIRIZ BS,AD,H:'); READ(BS,AD,H); S:=(BS+AD)*H/2; WRITELN; WRITE('TRAPESIA MEIDANY=',S:7:2) END.
6 624 754 материала в базе
Настоящий материал опубликован пользователем Ниязметов Султанмурат Ниязметович. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
500/1000 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Курс профессиональной переподготовки
300/600 ч.
Мини-курс
3 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.