Информатика 11 класс ! Задание (скриншот экрана с каждым заданием вышлите учителю)

1.Запустить на исполнение Microsoft Access.

2.Создать базу данных «Компьютерная школа».

3.Установить режим работы «Таблица». Создать таблицу «Ученик»(текст таблицы в

учебнике на стр. 173).

4.Перейти в режим работы с формами (Вкладка «Формы»→Мастер форм→Форма для

просмотра и ввода данных).

5.Через открывшуюся форму просмотреть последовательность записей. (покажите

кнопки перехода к следующим записям)

6.Добавить в конец таблицы (в режиме формы) еще одну запись о новом ученике: 21,

Валеев, Александр, 6, 8, 2, Б. (покажите в режиме формы)

7.Закройте форму, сохранив введенную информацию.

8.Отсортируйте таблицу по фамилиям учеников в алфавитном порядке.

9.Отсортируйте таблицу по двум ключам: «Школа» и «Фамилия» в порядке возрастания.

10.С фильтра отобрать всех учеников из 5 школы.
11.Выбрать всех учеников восьмиклассник

Информатика 11 класс ! Задание (скриншот экрана с каждым заданием вышлите учителю) 1.Запустить на ис

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

Ответ:

ivanova7nastya1

31.08.2022 03:49

Const
destinations = 'СЗЮВСЗЮВСЗЮВ'; {Предварительно сформированная строка ориентаций}
var
C : char;
N1, N2, Position : integer;
begin
write('Исходная ориентация локатора: ');
readln(C);
write('Первая команда поворота: ');
readln(N1);
write('Вторая команда поворота: ');
readln(N2);
Position := Pos(C, destinations) + 4; {Устанавливаем позицию на положение заданного направления}
Position := Position + N1; {Направление после первого поворота (Определяется destinations[Pos])}
Position := Position + N2; {Направление после второго поворота (Определяется destinations[Pos])}
writeln('Конечная ориентация: ', destinations[Position]);
end.

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

Ответ:

acherevachanna

10.06.2022 04:10

Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и объявить массивы можно как целые. Но это мелочи, не обязательные.
var
a, b: array[1..20]of integer;
i, s,n: integer;
begin
writeln('Массив А:');
randomize;
for i := 1 to 20 do
   begin
a[i] := random(100) - 50;
write(a[i],' ');
if (a[i] > 0) and (i mod 2 = 0) then
  begin
n:=n+1;
b[n]:= a[i];
s := s + b[n] * b[n];
end;
end;
writeln();
writeln('Массив В:');
for i:=1 to n do write(b[n]);
writeln;
writeln('S = ', s);
end.

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

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