1.выбери верный ответ. в данной конструкции не хватает: нц раз
1)параграф
2)
3)кц
4)нет верного ответа
2.циклами являются:
(фото внизу)
3.построй на экране с исполнителя чертёжник квадрат, длину его стороны введи с клавиатуры и рассчитай площадь этого квадрата.
диалогквадрат
{
int c;
вывод "введите длину стороны квадрата";
ввод (сюда) ;
квадрат ( c );
вывод "площадь квадрата со стороной ",c,
" равна ",(сюда) ;
}
квадрат ( int c)
{
опусти_перо;
вектор ( 0, c); вектор ( сюда , 0 );
вектор ( 0, - c ); вектор ( -c , 0 );
подними_перо;
}
4.определи вид цикла.
uses drawman;
var i: integer;
begin
task ( 'c1' );
topoint (1,3);
for i: =1 to 17 do
begin
pendown;
onvector (0,-1);
onvector (1,1);
end;
penup;
topoint (0,0);
end.
5.чертёжнику был дан для исполнения следующий алгоритм:
повтори 5 раз
сместиться на (−3,−2) сместиться на (2,2) сместиться на ( 3 ,5 )
конец
какую команду надо выполнить чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение?
ответ: сместиться на (x−сюда,y−сюда)
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// 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
Квадрат не умещается в круге
Купе Места
1 1-4,53,54
2 5-8,51,52
3 9-12,49,50
4 13-16,47,48
5 17-20,45,46
6 21-24,43,44
7 25-28,41,42
8 29-32,39,40
9 33-36,37,38
Установим связь номера места с номером купе. Предлагается следующий (конечно же, не единственный) вариант:
Здесь знаком ÷ обозначена операция целочисленного деления.
Теперь можно написать программу. Язык программирования в задании не указан, поэтому выбран язык свободно распространяемой для целей обучения системы программирования PascalABC.Net
var
n:integer;
begin
Write('Укажите номер места: '); Read(n);
Write('Место располагается в купе №');
if n<=36 then Write((n-1) div 4 + 1)
else Write((54-n) div 2 + 1)
end.
Тестовое решение:
Укажите номер места: 18
Место располагается в купе №5