№ 1-тапсырма
SketchUp программасының құралдарын пайдаланып,
параллелепипед құрастырыңдар.
1. Программаны іске қосыңдар.
2. Тиісті шаблонды таңдаңдар. Шаблондар ішінен шаблон-метры» таңдалады.
3. Программа терезесі ашылғаннан кейін «Прямоугольник»
батырмасын басамыз. Жұмыс алаңындағы «Сүйеніп тұрған
адам» координаталық сызықтардың басына меңзердің ұшын
қойып, тіктөртбұрыш сызамыз.
4. Тяни /Толкай батырмасын басып, тіктөртбұрышты созу
арқылы, 5.14- суреттегі көлемді фигураны саламыз.
2. «Окно-Материалы (Терезе-Материалдар)» командасының
көмегімен модульді іске қосамыз. Пайда болған диалогтік
терезе арқылы параллелепипед қабырғаларын кірпішпен
қаптаймыз.
араллелепипед төбесін «Кровля» бөліміндегі «Черепицамен»
қаптаймыз (5.15-сурет
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
var (s,d,e):=(n div 100, (n div 10) mod 10, n mod 10);
Writeln('Cотни ',s,', десятки ',d,', единицы ',e);
Writeln('Сумма цифр ',s+d+e,', их произведение ',s*d*e);
Writeln('Справа налево: ',100*e+10*d+s);
Writeln('Перестановка сотен в конец: ',100*d+10*e+s)
end.
Пример
328
Cотни 3, десятки 2, единицы 8
Сумма цифр 13, их произведение 48
Справа налево: 823
Перестановка сотен в конец: 283
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Укажите n>11:');
var c:=ArrRandom(n,-50,50); c.Println;
var a:=new integer[n];
for var i:=0 to n-1 do
if i.Between(2,11) then a[i]:=Sqr(c[i]) else a[i]:=c[i]-1;
a.Println;
var imax:=a.IndexMax;
a[imax]:=-a[imax];
Writeln('Максимальный элемент заменен на ',a[imax]);
var imin:integer;
(imin,imax):=(a.IndexMin,a.IndexMax);
if imin>imax then Swap(imin,imax);
for var i:=imin+1 to imax-1 do a[i]:=0;
a.Println
end.
Пример
Укажите n>11: 15
-47 11 -42 23 29 12 3 -24 -20 11 -4 38 42 -26 -28
-48 10 1764 529 841 144 9 576 400 121 16 1444 41 -27 -29
Максимальный элемент заменен на -1764
-48 10 -1764 0 0 0 0 0 0 0 0 1444 41 -27 -29