Расположите символьные величины по убыванию интернет яндекс windows google linux

12.10.2021.
Тест. Информатика, 9 класс

Внимание! Все тесты в этом разделе разработаны пользователями сайта для собственного
использования.
Администрация сайта не
проверяет возможные ошибки,
которые могут встретиться в тестах.

Список вопросов теста

Вопрос 1

Главное предназначение … – это выбор данных на основании заданных условий

Вопрос 2

Расположите символьные величины по возрастанию:

Вопрос 3

Изменение порядка записей в таблице по какому-либо признаку называется…

Вопрос 4

При поиске по условию
ГОД  РОЖДЕНИЯ>1958 И ДОХОД<3500
будут найдены фамилии лиц:

Вопрос 5

Укажите истинные высказывания:

Вопрос 6

База данных содержит следующие записи:

Какие из записей поменяются местами при сортировке по возрастанию по полю Фамилия?

Вопрос 7

В командах СУБД условия выбора записывают в форме…

Вопрос 8

Вопрос 9

База данных «Страны» содержит следующие сведения о различных странах мира: название, площадь (км²), численность (млн. человек), год переписи, плотность населения (человек на км²).

После проведения сортировки сведения о Великобритании переместились на одну строку вверх. Как проводилась сортировка?

Вопрос 10

Предположим, что некоторая база данных содержит  поля   «ФАМИЛИЯ», «ГОД  РОЖДЕНИЯ», «ДОХОД».
Следующая запись этой БД будет найдена при поиске по условию
ГОД РОЖДЕНИЯ>1958 ИЛИ ДОХОД<3500

Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln(‘Введите строку ‘,n,’:’);
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   ‘[‘: k:=k+1;
   ‘]’: k:=k-1;
   end;
  end;
 if k=0 
 then writeln(‘В строке ‘,s,’ количество [ и ] одинаково’)
 else writeln(‘В строке ‘,s,’ количество [ и ] не одинаково’);
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ReadLines(‘m17.txt’).JoinIntoString.ToIntegers;
  a.Println;
  var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
    .Select(x->x.Item2).ToArray;
  if b.Count<>2 then
    Writeln(‘Количество отрицательных элементов не равно двум’)
  else begin
    a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
      .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
    a.Println
    end
end.

Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0

Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное — чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.