Пусть программ имеет блочную структуру. процедура p является блоком. параметр передается по значению. что будет напечатано? перем m, n, k: integer; процедура p(m: integer); перем n: integer; начало m: =m+1; n: =k+10; k: =m+n; writeln(‘*‘, m, ‘ ‘, n, ‘ ‘, k) конец; {p} начало m: =9; n: =17; k: =213; p(k); writeln(‘#‘, m, ‘ ‘, n, ‘ ‘, k) конец.

Эргономика (гр. ergon – жұмыс + nomos – заң) – еңбек құралдары мен үдерістерін оңтайландыру арқылы еңбекке қолайлы жағдай жасау мақсатымен адамды (адамдар тобын) және оның қазіргі заманғы өндірістің еңбек үдерістеріне қатысуын зерделейтін ғылыми пән. “Адам – машина (техника‚ бұйым)”‚ “адам – орта” жүйелеріндегі байланыстарды оңтайлы шешу стратегиясын айқындайды.[1] Адам‚ машина және орта күрделі бүтін ретінде қаралуға тиіс екенін‚ мұнда адам жетекші рөл атқаратынын мойындайды. “Адам – машина – орта” кешенін ұтымды жоспарлап‚ енгізу үшін адам мен машинаның үйлесімділігін ескеретін эргономик. талаптарды қамтамасыз ету керек‚ олар: биофизикалық үйлесімділік – машина‚ басқару органдары және адам (оператор) талап етілетін күш-жігер‚ қуат‚ басқару әрекеттерінің жылдамдығы‚ дәлдігі‚ қарқыны тұрғысынан бір-біріне сай келуге тиіс; антрометрикалық үйлесімділік – адамның антропол. (бойы‚ жасы‚ салмағы‚ т.б.) және физиол. ерекшеліктерін ескере отырып, ұтымды ұйымдастырылған жұмыс орнын жасау; техникалық-эстетикалық үйлесімділік – машинаның тартымдылығын қамтамасыз ету. Эргономикалық талаптар адам мен техника арасындағы атқарымдарды бөлу мен келісуге‚ әрекет үдерістеріне (еңбектің сапасына‚ қауырттығына‚ т.б.)‚ әрекет құралдарына (жұмыс орнының жабдығына‚ басқару органдарына‚ т.б.)‚ әрекет жағдайына (микроахуалға‚ шуылға‚ дірілге‚ т.б.) жатады. Олар техниканы жасап‚ өндіріске енгізудің барлық сатыларында ескерілуге тиіс. Белгіленген талаптарға сай келетін эргономик. көрсеткіштер бұйымның жекелеген түрлерін пайдаланудың қолайлылығы мен қауіпсіздігін сипаттауға мүмкіндік береді‚ еңбектің мазмұнын байытып‚ тартымдылығын жақсартуға‚ өнімділігін арттыруға‚ адамның күш-қуатын‚ денсаулығын жұмыс істеу қабілетін сақтауға септігін тигізеді.[2][3][4]

Объяснение:

Это ?   pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 uses graphabc; function f(x: real): real; begin f: =sin(x)/x end; var mx,my,x,dx,y: real;     x0,y0,i: integer;     s: string; begin x0: =windowwidth div 2; {г*г*г·г*г«г® гєг®г®г°г¤гёг*г*гі гў г¶гґг*гіг°гґ гѕгєг°г*г*г*} y0: =windowheight div 2; {гєг®гѕгґгґгёг¶гёгґг*гіг» гїг® г®г±гїг¬ г¤г«гї гїгґг°гґгўг®г¤г* г°гґг*г«гјг*г»гµ гєг®г®г°г¤гёг*г*гі гў гѕгєг°г*г*г*г»гґ} mx: =30; my: =100; line(0,y0,windowwidth,y0); {г®г±гј г•} line(x0,windowheight,x0,0); {г®г±гј г“} {гїг®г¤гїгёг±гё г®г±гё y} line(x0-3,y0-round(my),x0+3,y0-round(my)); textout(x0-10,y0-round(my)-15,'1'); line(x0-3,y0+round(my),x0+3,y0+round(my)); textout(x0-15,y0+round(my),'-1'); {гїг®г¤г°гёг±гё г®г±гё г•} for i: =1 to 6 do   {г¬г*гєг±гёг¬г*г«гјг*г®гґ гєг®г«гёг·гґг±гігўг® г§г*г±гґг·гґгє гў г®г¤г*гі г±гіг®г°г®г*гі}   begin   line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3); {г§г*г±гґг·гєгё г*г* г®г±гё г•}   line(x0-round(i*pi*mx/2),y0-3,x0-round(i*pi*mx/2),y0+3);   if i mod 2=0 then {гїг®г¤гїгёг±гё г·гґг°гґг§ 1}     begin     str(i div 2,s);     if s='1' then s: =''; {1pi 1 г*гґ гїгёгёгґг¬}     textout(x0+round(i*pi*mx/2),y0+10,s+'pi');     textout(x0-round(i*pi*mx/2),y0+10,'-'+s+'pi');     end;   end; {г¶гґг*гіг°} textout(x0+5,y0+10,'0'); {гїг®г¤гїгёг±гё гєг®г*г¶г®гў г®г±гґг©} textout(windowwidth-10,y0-10,'x'); textout(x0-10,10, 'y'); dx: =0.001; {гјг°г*гґгёгє} x: =-3*pi; while x< =3*pi do   begin   setpixel(x0+round(x*mx),y0-round(f(x)*my),clblue); {гјг°г*гґгёгє г±гёг*гёг¬}   x: =x+dx; {г*г*г°г*г№гёгўг*гґг¬ гµ}   end; end.