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

жүктеу/скачать 13,23 Kb.

Дата	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.

жүктеу/скачать 13,23 Kb.

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