Решение: Какой оператор цикла желательно использовать, если известно число повторений тела цикла? repeat <оператор1, …>until <условие> while <условие>do <оператор> for <параметр>:= <начальное значение>to<конечное значение> do<оператор> 2. Используется оператор for i:= -10 to 10 do… После завершения выполнения тела цикла i = 10 3. Цикл в фрагменте программы p:=1; repeat p:=p*0.1 until p>0.1; будет исполнен: 1 раз 2 раза бесконечное число раз 0 раз 3 раза 4. Цикл в фрагменте программы a:=1; b:=1; while a+b<8 do begin a:=a+1; b:=b+2 end; выполнится: 0 раз 3 раза 2 раза 1 раз бесконечное число раз
uses crt; var a,b,c,mn,mx,sr,p,s:real; begin clrscr; writeln('Введите 3 числа:'); readln(a,b,c); if(a<=abs(b-c))or(a>=b+c)then write('Это не треугольник!') else begin mn:=a; if b<mn then mn:=b; if c<mn then mn:=c; mx:=a; if b>mx then mx:=b; if c>mx then mx:=c; sr:=a+b+c-mn-mx; if(a=b)and(b=c) then writeln('Это равносторонний треугольник') else if((a=b)and(b<>c))or((a=c)and(b<>c))or((b=c)and(a<>b))then writeln('Это равнобедренный треугольник') else writeln('Это разноcторонний треугольник'); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('его площадь=',s:0:2); write('Стороны в порядке убывания: ',mx:0:2,' ',sr:0:2,' ',mn:0:2); end; readln end.
16 цветов кодируются 4 битами (2^4=16), т. е. при 256 Кб (килобит) может быть адресовано 256/16=16 К 16-цветных пикселей. Количество пикселей в экране будет В*Г (В - вертикальное разрешение, Г-горизонтальное) . При указанном соотношении 1,33 (4:3) будет верным равенство В*Г=(4/3)*В^2. Тогда В=Кв. Корень [(3/4)*16384/C] (16К=16384, С-количество страниц) . При С=1 выходит В=110.85... Ясное дело, вертикальное разрешение должно быть целым, т. е. это будет 110 или 111. Поскольку Г=В*4/3=147.8...,и горизонтальное разрешение тоже должно быть целым, выходит 147 или 148. Т. е. возможны разрешения 147*111 (всего 16317 пикселей из 16384 возможных) либо 148*110 (16280 пикселей) При С=2 выйдет В=78.38...,Г=104.51...,т. е. возможно разрешение 105*78 (всего 8190 пикселей из 8192 возможных) . Для разрешения 104*79 не хватит памяти, поскольку 8216>8192. При С=4 выйдет В=55.42...,Г=73.9...,т. е. возможны разрешения 74*55 (всего 4070 пикселей из 4096 возможных) или 73*56 (4088 из 4096).
Какой оператор цикла желательно использовать, если известно число повторений тела цикла?
repeat <оператор1, …>until <условие>
while <условие>do <оператор>
for <параметр>:= <начальное значение>to<конечное значение> do<оператор>
2. Используется оператор for i:= -10 to 10 do…
После завершения выполнения тела цикла i = 10
3. Цикл в фрагменте программы
p:=1;
repeat
p:=p*0.1
until p>0.1;
будет исполнен:
1 раз
2 раза
бесконечное число раз
0 раз
3 раза
4. Цикл в фрагменте программы
a:=1;
b:=1;
while a+b<8 do
begin
a:=a+1; b:=b+2
end;
выполнится:
0 раз
3 раза
2 раза
1 раз
бесконечное число раз