1.1
program esep1_1; var S,a,b,c,cosA:real;
begin
writeln ('a:');
readln(a);
writeln ('b: ');
readln(b);
writeln ('Екі қабырға арасындағы бұрышы: ');
readln(cosA);
c:= sqrt(sqr(a)+sqr(b)-(2*a*b*cos(cosA)));
writeln('Үшінші қабырғасы тең,c);
S:=(a*b)/2;
writeln('Ауданы тең', S);
end.
1.2
program esep1_2;
var N,a,b,c,pa,pb,pc:real;
begin
writeln ('All students');
readln(N); writeln ('5:');
readln(a);
writeln ('4:');
readln(b);
writeln ('3:');
readln(c);
pa:=(100*a)/N;
pb:=(100*b)/N; pc:=(100*c)/N;
writeln('5(%): ',pa:10:2, ' 4(%): , pb:10:2, ' 3(%)',pc:10:2); end.
2.1
program esep2_1;
var mireal;
begin
writeln(Окушы багасы: ");
readIn(m);
if m=5 then writeln('уздік'); if m=4 then writeln('жаксы');
if m=3 then writeln 'канагаттанарлык');
if m=2 then writeln('канагаттанарлыксыз");
end.
2.2
program esep2_2;
var x:real;
begin
writeln('Enter x ');
readln(x);
if x>0 then writeln(x+2)
else writeln(×*2);
end.
Достарыңызбен бөлісу: |