Паскаль тілінде сызықтық, тармақталған және циклдік алгоритмдерді қайталау: 9-сыныпқа қысқа мерзімді сабақ жоспары

Журнал

видео

15 мин

Шешуі:

Program esep1;

Var

B:real;

a, x:integer;

Begin

write(‘x, a=‘) ;

read(x, a) ;

B:= a/sqr(sin(x/a) ) ;

Write(‘B=‘, B) ;

End.

1. PROGRAM sandar;

VAR a: integer;

Begin

Write('a енгіз') ;

read(a) ;

if (a mod 2) =0 THEN write('жұп сан') else write('а тақ сан') ;

end.

Program esep4;

Var

S:real;

n:integer;

Begin

write(‘n=‘) ;

read(n) ;

S:=0; p:=1;

For i:=1 to 2*n do

S:=S+1/p;

P:=p*i;

Write(‘S=‘, S) ;

End.