Writeln ('Екі қабырға арасындағы бұрышы: ')



Дата21.09.2023
өлшемі13,23 Kb.
#109380
Байланысты:
Инф теория


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.

Достарыңызбен бөлісу:




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет