Некоторый объект выполнять определенный набор команд - это: Запишите ответ.
Задание #2
Вопрос:
Для каждого формального исполнителя можно указать:
Выберите несколько из 9 вариантов ответа:
1) Информационную модель.
2) Круг решаемых задач.
3) Среду.
4) Схему работы.
5) Систему команд.
6) Цикл команд.
7) Систему отказов.
8) Режимы работы.
9) Режимы задач.
Задание #3
Вопрос:
Укажите истинные высказывания:
Выберите несколько из 6 вариантов ответа:
1) Компьютер разрабатывает алгоритмы.
2) Компьютер управляет работой связанных с ним технических устройств по выполнению алгоритмов.
3) Исполнитель разрабатывает алгоритмы.
4) Исполнитель четко и безошибочно выполняет алгоритмы, составленные из команд, входящих СКИ.
5) Человек разрабатывает алгоритмы.
6) Человек может являться исполнителем алгоритма.
Задание #4
Вопрос:
Универсальный исполнитель, устройство для работы с информацией - это:
Запишите ответ:
Задание #5
Вопрос:
Исполнитель, всегда выполняющий одну и ту же команду одинаково - это:
Составьте слово из букв:
ЫАЛНООЬЙПРЛНМ ЕФТСИЛЬИ ->
4. Мотивация учебной деятельности
Перед ознакомлением с данной темой предлагаю вам отгадать несколько математических загадок. Предлагаю наши ответы записывать в тетрадь.
Загадка 1
Треугольник с полукругом
Круг дразнили «толстым другом».
Круг, расстроившись до слез,
Уже стал и вверх подрос.
Кто же угадает тут,
Как теперь его зовут.
Загадка 2
Хоть стороны мои попарно и равны, и параллельны
Всё ж я в печали, что не равны мои диагонали
Да и углы они не делят пополам.
Но всё ж скажи, дружок, кто я?
Загадка 3
Встал квадрат на уголок –
Ткнулся носом в потолок.
Вверх он рос еще дней пять.
Как теперь его назвать?
Загадка 4
Два квадрата-близнеца –
Половинки их отца.
Сторонами приложи,
Имя их отца скажи.
Вы можете спросить для чего нам необходимы эти фигуры, ведь мы с вами на уроке информатике. Мы с вами уже неоднократно сталкивались с тем. Что уроки информатики и математики переплетаются между собою.
Следующие ваше задание состоит в том, чтобы начертить все эти фигуры в тетрадь.
ОВАЛ
ПАРАЛЛЕЛОГРАММ
РОМБ
ПРЯМОУГОЛЬНИК
var a:array [1..4, 1..4] of integer; i, j, max: integer;
Begin
for i := 1 to 4 do
begin
for j := 1 to 4 do
read(a[i][j]);
readln;
end;
max := a[1][1];
for i := 2 to 4 do
if max < a[i][i] then max := a[i][i];
writeln(max);
End.
2.
var a:array [1..5, 1..5] of integer; i, j, m, sum: integer;
Begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
read(a[i][j]);
readln;
end;
readln(m);
sum := 0;
for i := 1 to 5 do
if (m - i > 0) and (m - i < 6) then
sum := sum + a[i][m - i];
writeln(sum);
End.
3.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, max: integer;
Begin
for i := 1 to N do
begin
for j := 1 to N do
read(a[i][j]);
readln;
end;
max := a[1][N];
for i := 2 to N do
if (max < a[i][N + 1 - i]) then
max := a[i][N + 1 - i];
writeln(max);
End.
4.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, count: integer; sum: real;
Begin
for i := 1 to N do
begin
for j := 1 to N do
read(a[i][j]);
readln;
end;
sum := 0;
count := 0;
for i := 1 to N do
if (a[5][i] mod 2 = 1) then
begin
sum := sum + a[5][i];
inc(count);
end;
sum := sum / count;
writeln(sum);
End.
5.
var a:array [1..4, 1..4] of integer; i, j, upper_sum, lower_sum: integer;
Begin
for i := 1 to 4 do
begin
for j := 1 to 4 do
read(a[i][j]);
readln;
end;
upper_sum := 0;
lower_sum := 0;
for i := 1 to 4 do
begin
for j := i + 1 to 4 do
upper_sum := upper_sum + a[i][j];
for j := 1 to i - 1 do
lower_sum := lower_sum + a[i][j];
end;
writeln(upper_sum);
writeln(lower_sum);
End.
// PascalABC.Net 3.0, сборка 1064
const
k = 100;
var
s, wd: string;
i, j, m, n, pt, step: integer;
Words, WordsSort: array[1..k] of string;
InOrder: boolean;
begin
Write('Введите строку: '); Readln(s);
n := Length(s); pt := 1; m := 0;
repeat
// Пропускаем все символы до первого непробельного
while pt <= n do
if Ord(s[pt]) <= 32 then Inc(pt) else break;
if pt <= n then begin
// Выделяем очередное слово
wd := '';
while pt <= n do
if Ord(s[pt]) > 32 then begin wd := wd + s[pt];Inc(pt) end
else break;
if wd <> '' then begin Inc(m);Words[m] := wd end
end
until pt > n;
// Теперь Words содержит все m слов.
// Отсортируем их в массиве WordsSort методом Шелла
for i := 1 to m do WordsSort[i] := Words[i];
step := m div 2;
while step > 0 do begin
for j := m - step downto 1 do begin
i := j;
while i <= m - step do begin
if WordsSort[i] > WordsSort[i + step] then begin
wd := WordsSort[i];
WordsSort[i] := WordsSort[i + 1];
WordsSort[i + 1] := wd
end;
i := i + step
end
end;
step := step div 2
end;
// Осталось поэлементно сравнить оба массива
InOrder := true; i := 1;
while InOrder and (i <= m) do
begin InOrder := (Words[i] = WordsSort[i]); Inc(i) end;
if m = 0 then Writeln('Строка не содержит слов')
else
if InOrder then Writeln('Cлова упорядочены')
else Writeln('Cлова не упорядочены')
end.
Тестовое решение:
Введите строку: слово1 слово2 слово3 слово4 слово5
Cлова упорядочены
Введите строку: слово1 слово2 слово4 слово3 слово5
Cлова не упорядочены
"Современный" вариант решения на Паскале:
// PascalABC.Net 3.0, сборка 1064
var
s:string;
begin
Write('Введите строку: '); Readln(s);
var Delim:=Range(0,32).Select(x->Chr(x)).ToArray;
var Words:=s.Split(Delim).Where(x->x<>'');
var WordsSort:=Words.Sorted;
if Words.SequenceEqual(WordsSort) then Writeln('Cлова упорядочены')
else Writeln('Cлова не упорядочены')
end.
Тестовое решение совпадает с вышеприведенным.