Паскаль программалау тілінде сызы?ты? алгоритмге арнал?ан тапсырмалар.

СызыKтыK алгоритмге арналCан тапсырмалар мен олардыS шешімдері.

1есеп. Екі KабырCасы мен арасындаCы бaрышы берілген _шбaрыштыS _шінші KабырCасын ж‰не ауданын табу программасын KaырыSдар.


Program audan;
Var a,b,x:integer;
c,S:real;
Begin
Write (ushburish kabirgalarin zhane burishti engiz’);
Read(a,b,x);
c:=sqr(a)+sqr(b)-2*a*b*cos(x*pi/180);
S:=1/2*a*bsin (pi*x/180);
Writeln(ushburish audani=’,S,’ushburish kabirgasi=’,c);
End.

2есеп. Берілген _ш таSбалы б_тін санныS цифрларыныS Kосындысын табыSдар.

Program san;
Var x,a,b,c,d,S:integer;
Begin
Write (ush tanbali butin san engiz’);
Read(x);
a:=x div 100; b:=x mod 100;
c:=b div 10; d:=b mod 10;
S:=a+c+d;
Writeln(S=’,S);
End.

3 есеп. ЦилиндрдыS к™лемі V, ауданы S берілген. ЦилиндрдыS биіктігін H есептеSіз.

Program cilindr;
Var V,S,H:integer;
Begin
Write (cilindrdin kolemin, audanin engiz’);
Read(V,S);
H:=V/S;
Writeln(H=’,H);
End.
4 есеп. Jараша айында д_кенде а млн теSгеге тауар сатылды, бaл Kазан айындаCыCа KараCанда 15% артыK. Jазан айында Kанша аKша тауар сатылды?

program m1;
var x,a,y:real;
begin
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
5 есеп. ^шбaрыш KабырCаларыныS А,В,С aзындыKтары берілген. Іштей сызылCан шеSбердіS R радиусын табыSдар.

program mысал-2;
var А,В,С,P,R:real;
begin
write ('А,В,С aзындыKтарыныS м‰нін енгіз');
read (А,В,С);
P:=A+B+C/2
R:=sqrt(P-A)*(P-B)*(P-C)/P
writeln (R);
end.
6 есеп. Жаяу адам таулы жерде кетіп барады. ОныS жазыKтаCы жылдамдыCы 13 QUOTE 1415 км/саC, ™оге шыKKандаCы жылдамдыCы 13 QUOTE 1415 км/саC , ылдиCа т_су жылдамдыCы 13 QUOTE 1415 км/саC. JозCалыс уаKыты с‰йкесінше 13 QUOTE 1415 ж‰не 13 QUOTE 1415 саC. Жаяу адам Kанша жол ж_рді?

program mысал-3;
·
var S1,S2,S3,S,v1,v2,v3,t1,t2,t3:real;
begin
write ('v1,v2,v3,t1,t2,t3 енгіз');
read (v1,v2,v3,t1,t2,t3);
S1:=v1*t1;
S2:=v2*t2;
S3:=v3*t3;
S:=S1*S2*S3;
writeln (S);
end.

7 есеп. Кернеу U В, кедергісі R Ом болатын электр тізбегініS б™ліктеріндегі тоK к_шін есептеуге арналCан программа KaрыSдар. U=r*І

program mысал-4;
var U, R, I :real;
begin
write (U,R енгіз');
read (U,R);
I:=U/R;
writeln (I);
end.
8 есеп. Клаун к™рермендердіS ‰рKайсысына бір сан ойлауды сaрады. Содан кейін былай деді: «ОйлаCан санCа 5-ті KосыSдар. ОныS н‰тижесінен 2-ні азайтындар. ОныS н‰тижесіне 7-ні KосыSдар». Бaдан кейін клаун к™рермендердіS ‰рKайсысынан н‰тижесінде Kандай сан шыKKанын сaрады. Жауап алысымен кімніS Kандай санды ойлаCанын дереу айтып берді. КлаунныS фокусын Kайталайтын программа Kaрындар.

Program sandi tap;Var n, a,b,c,d :integer;beginWrite (kez kelgen san engiz’);Readln (n);a:=n+5;
b:=a-2;
c:=b+7;
d:=c-10;Write (d);End.
9 есеп. Сыныпта N оKушы бар. БаKылау жaмысынан A бала – бес, B бала – т™рт, C бала – _ш алды. ^штік, т™рттік ж‰не бестік баCа алCан оKушылардыS барлыK оKушылардыS Kанша пайызын Kaрайтынын табыSдар.

Program okushi;Var :integer;beginWrite (A, B,C mandarin engiz’);Readln (A,B,C);x:=A*100/N;
y:=B*100/N;
z:=C*100/N;Write (x,y,z);End.
10 есеп. ШенбердіS радиусы R берілген. ШеSбердіS aзындыCын, ауданыS есептейтін программа Kaру. Формуласы: L=2
·R, S=
·R2

Program shenber;
Var r,c,s: real;
Begin
Read(r);
L:=2*pi*r;
S:=pi*sqr(r);
Writeln('аудан=',s,'aзындыCы=',c)
End.



15