Тест по теме: «Штангенинструмент» 1 Во сколько раз точность измерения штангенциркулем выше точности измерения линейкой?
А – в 10 раз; Б – в 20 раз; В – 15 раз.
2 Штангенциркуль - это инструмент, который используется для …
А – разметки детали;
Б – для измерения размеров деталей и их частей с большой точностью, а также для разметки;
В – для контроля размеров деталей цилиндрической формы.3 Сколько измерительных шкал имеет штангенциркуль?
А – две; Б – три; В – одну.
4 Какие измерения можно выполнять с штангенциркуля ШЦ-1?
А – наружные и внутренние размеры деталей, глубину отверстий, пазов, канавок, выступов с точностью до 0,1мм;
Б – наружные и внутренние размеры детали свыше 125 мм и точностью до 0,5мм;
В – размеры деталей, имеющих цилиндрическую и призматическую поверхность.
5 Каким образом удаётся измерить десятые доли миллиметра, если шкала штангенциркуля имеет миллиметровые деления?
А – на глаз;
Б – вс шкалой нониуса;
В – при лупы.
6 Десятые доли миллиметра на штангенциркуле позволяет отсчитать…
А – подвижная рамка;
Б – миллиметровая шкала на штанге;
В –шкала нониуса.
7 Для какой цели служит микрометрическая подача в штангенциркуле ШЦ –II ?А – для перемещения рамки по штанге;
Б – для точного подведения губки к измеряемой поверхности;
В – для создания постоянного измерительного усилия.
8 Каково назначение нониуса?
А - для считывания числа целых миллиметров;
Б - для получения результата измерения;
В - для точного отсчета части деления основной шкалы

1.                                                        

program raf105;

var a,sum:integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 sum+= a;

until a=0;

writeln('Сумма: ',sum);

end.

2.                                                        

program raf105;

var

s:string;

i,k,j:integer;

poli:boolean;

begin

poli:= true;

write('Введите слово: ');

readln(s);

s:= lowercase(s);

k:= length(s) div 2;

j:= k*2+1;

if (length(s) mod 2)<>0

 then j+= 1;

for i:=1 to k do

begin

 j-=1;

 if poli

   then poli:= s[i] = s[j];

end;

if poli

 then writeln('Слово - палиндром')

 else writeln('Слово - не палиндром');

end.

 

3.                                                        

program raf105;

var a:array[1..10] of integer;

x,i:integer;

begin

writeln('Вводите 10 чисел по очереди');

for i:=1 to 10 do

 readln(a[i]);

write('Введите искомое число: ');

readln(x);

write('Индексы совпадающих элементов: ');

for i:=1 to 10 do

 if a[i] = x

   then write(i,' ');

end.

4.                                                        

program raf105;

var a:integer;

begin

write('Введите номер дня недели: ');

readln(a);

case a of

 1: writeln('Это Понедельник');

 2: writeln('Это Вторник');

 3: writeln('Это Среда');

 4: writeln('Это Четверг');

 5: writeln('Это Пятница');

 6: writeln('Это Суббота');

 7: writeln('Это Воскресенье');

end;

end.

5.                                                        

program raf105;

var a:array[1..100] of integer;

i,o,x: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 o+= 1;

 readln(a[o]);

until a[o]=0;

o-= 1;

writeln('Введённые числа в обратном порядке:');

for i:=o downto 1 do

 writeln(a[i]);

end.

1.

program z1;

var a:array [1..10] of integer;

i,k:integer;

begin

write ('Введите элементы массива через пробел и нажмите Enter ');

for i:=1 to 10 do read (a[i]);

write ('Массив: ');

for i:=1 to 10 do write (a[i],'  ');

writeln;

write ('Номера элементов больше 5: ');

for i:=1 to 10 do if a[i] > 5 then

begin

write (i,'  ');

k:=k+1

end;

writeln;

writeln ('Элементов больше 5: ',k)

end.

2.

program z2;

var s:string;

begin

readln (s);

while pos('о',s)<>0 do delete(s,pos('о',s),1);

writeln(s)

end.

Объяснение:

Смотри картинки

2. Программа удаляет только строчные русские о