Пример алгоритма:
1) список продуктов
2) кулинарный рецепт
3) записка «Купить продукты»
4) перечень ингредиентов
2. Алгоритм может быть представлен в виде:
1) схемы с дугами (стрелками)
2) круговой диаграммы
3) неориентированного графа
4) схемы понятий
3. Формальный исполнитель:
1) преподаватель
2) робот
3) ученик
4) животное
4. Компьютер работает в режиме:
1) непосредственного управления
2) формального управления
3) программного управления
4) неформального управления
5. Основные отличия алгоритма от задачи:
1) решается автоматически
2) описывается процесс последовательности действий
3) не требуется плана действий
4) описываются отдельные действия, без их взаимосвязи
5) составляется план действий
6. Установите соответствие.
1) Формальный исполнитель
2) Неформальный исполнитель
А) собака
Б) магнитофон
В) робот-манипулятор
Г) артист театра
Д) театральный режиссер
function FS(a,b:real):=0.5*a*b;
begin
var a,b:real;
Write('Катеты первого треугольника: '); Read(a,b);
var S1:=FS(a,b);
Write('Катеты второго треугольника: '); Read(a,b);
var S2:=FS(a,b);
if S1>S2 then Writeln('Площадь первого треугольника больше')
else
if S1<S2 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.
Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(10,10,20); a.Println;
Writeln('Сумма кубов ',a.Select(x->x*x*x).Sum);
a.Transform(x->x-5); a.Println
end.
Тестовое решение
14 17 12 17 20 11 13 18 19 20
Сумма кубов 46517
9 12 7 12 15 6 8 13 14 15
2. "Школьный вариант"
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
a:array[1..10] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to 10 do begin
a[i]:=Random(11)+10;
Write(a[i],' ');
s:=s+a[i]*sqr(a[i])
end;
Writeln;
Writeln('Сумма кубов ',s);
for i:=1 to 10 do begin
a[i]:=a[i]-5;
Write(a[i],' ')
end;
Writeln
end.