Одна из составных частей бензинового двигателя имеет форму валика.для измерения толщины валика служит стальная плита ,в которой в ряд выстроены 15 отверстий с точно уствновленными размерами.каждое последующее отверстие имеет диаметр несколько больше предыдущего.калибровка валика заключается во вкладывании его в отверстие ; если он не помещается ,то его диаметр считат больше диаметра отверстия ,а если помещается,то меньше .таким образом диаметр валика определяется достточно точно.рабочие ,которым поручена калибровка,пробуют каждый валик не более чем на четырех отверстиях.какова очередность этих проб?

141

368

Посмотреть ответы 2

Ответы на вопрос:

tagirok4525

Информатика

4,4(81 оценок)

Известный метод артиллерийской вилки, когда пристреливаются по принципу "перелет - недолет". пусть отверстия пронумерованы от 1 до 15. сначала пробуем отверстие №8 (посередине ряда). если валик не помещается, следующим пробуем середину участка 8-15, т.е. отверстие №12. а если проваливается - то середину участка 1-8, т.е. отверстие №4. далее, по аналогии, пробуем середину отрезка левее или правее сделанной пробы, т.е. отверстия с четными номерами. и четвертая проба будет контрольной - отверстие с нечетным номером. контрольная - потому что место валика и так уже понятно.

лямда1234

Информатика

4,6(80 оценок)

1) а: =b(13)+a(-2)*3=13+(-2*3)=13-6=7

2) a) readln(а); readln(х);

б) writeln(z)

в) var b,c : real; (чаще всего используется при нахождении вещественных чисел)

var a: integer; (чаще всего используется при нахождении вещественных чисел)

г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d: =d+20; д) z : = x + y; ( : = это знак присвоения) 3) program pr1; var w,s,b: integer; begin readln (s, b); w: = ((12*s) + (26*b)); writeln (w); end. 4) запишите на языке паскаль следующие условия: а) f > 105 ; б) a< 184 ; в) w< > 181; г) z> 0; д) z< =d; е) (y*x)> =(d+w); ж) (w-d)< 88; з) f> =1; 5. запишите на языке паскаль команду ветвления для решения следующей : а) if a< > 21 then a: =a+28 else a: =a-51; б) if a mod 2=0 then a: =a+5 else a: =a-12; 6. запишите на языке паскаль команду цикла для решения следующей : а) program pr1; var j,p: integer; begin j: =1; p: =0; while j> =66 do begin p: = p*j; j: =j+1: writeln (‘произведение чисел = ‘, p); end. б)

program pr1;

var n: integer;

begin

for n: =1 to 7 do

writeln('trud');

end.