сделать задания по информатике. С РЕШЕНИЯМИ. 1.Выберите фрагмент программы, в котором ищется произведение 123 4 5: a)p:=0; i:=1; while i<=5 do i:=i+1; p:=pti; б)р:=1; i:=1; while i<6 do i:=i+1; p:=pi;
в)p:=1; i:=1; while i<6 do begin p:=pi; i:=i+1
end;
г)p:=1; i:=1; while i>5 do begin p:=p*i; i:=i+1
end;
2.Определите значения переменных s и і после выполнения фрагмента программы:
s:=0; i:=5;
while i>0 do
begin
s: =s+i;
i:=i-1;
end;
a) s = 0, i = - 1
б) s= 5, i= 0
в) s = 15, i= 5
г) s= 15, i= 0
3.Цикл в фрагменте программы
a: =1;
b:=1; while a+b<8 do begin
a:=a+1;
b:=b+2
end; выполнится:
a) 0 раз б) 2 раза
b) 3 раза г) бесконечное число раз

Показать ответ

Ответ:

tinapai

27.03.2020 02:51

Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра..
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
$\displaystyle S_1=a^2 \to a=\sqrt{S_1}; \ d=a \sqrt{2}= \sqrt{2S_1} \\ S_2=\frac{\pi D^2}{4} \to D=\sqrt{\frac{4S_2}{\pi}}; \\ d\ \textless \ D \to \sqrt{2S_1}\ \textless \ \sqrt{\frac{4S_2}{\pi}}; \ 2S_1\ \textless \ \frac{4S_2}{\pi} \ \to \ \boxed{\pi s_1\ \textless \ 2S_2}$
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.

Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге

0,0(0 оценок)

Ответ:

Маруся203

29.05.2020 16:09

1. Современный эффективный код

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var (x,y):=ReadInteger2('Введите через пробел два числа:');
if (x<0) or (y<0) then Writeln('Ввод отрицательных чисел недопустим')
else begin
    while y>0 do (x,y):=(y,x mod y);
    Writeln('НОД=',x)
    end
end.

Примеры
Введите через пробел два числа: 14 -2
Ввод отрицательных чисел недопустим

Введите через пробел два числа: 32 76
НОД=4

2. Традиционный "школьный" код

var
x,y,t:integer;

begin
Write('Введите через пробел два числа: ');
Read(x,y);
if (x<0) or (y<0) then Writeln('Ввод отрицательных чисел недопустим')
else begin
    while y>0 do begin
      x:=x mod y;
      t:=x; x:=y; y:=t
      end;
    Writeln('НОД=',x)
    end
end.

0,0(0 оценок)

Популярные вопросы: Информатика