musaaysu17
24.07.2020 19:52

с экселем
1 Установить размер бумаги - А4, начальный номер страницы - 10,

горизонтальное и вертикальное центрирование, в верхнем колонтитуле -

свою фамилию (по центру), в нижнем - номер группы (по центру) и номер

страницы (слева).

2 Установить размер шрифта 14 пунктов.

3 Создать таблицу «ЭКЗАМЕНАЦИОННАЯ ВЕДОМОСТЬ» со

следующими столбцами: Фамилия и инициалы студента, Анатомия,

Биохимия, Информационные технологии в ФКиС, Плавание и МП,

Дата окончания сессии.

4 Ввести условия для проверки вводимых данных (данные в количестве 10):

ФИО – не больше 20 символов, оценки – в пределах от 4 до 10, дата

окончания сессии – не раньше 1июня и не позже 1 июля текущего года.

Предусмотреть контекстную диагностику при вводе некорректных

данных, например, при вводе длинной фамилии и инициалов – «Фамилия

и инициалы превышают 20 символов» и т.д.

5 Ввести исходные данные для 10 студентов.

6 Назвать лист «Ведомость».

7 Перейти к адресации ячеек R1C1.

8 Перейти к алфавитно-цифровой адресации ячеек.

9 Использовать разные цвета фона и символов при создании таблицы.

Центрировать заголовок по ширине таблицы и выделить его шрифт.

10.Ввести графу «Номер по порядку» в качестве первого столбца таблицы.

Задать первому элементу таблицы номер 1, а остальные сформировать с

шагом 1, используя прием формирования арифметических прогрессий.

11.Подогнать ширину всех столбцов под введенные в них данные. При этом

длины строки заголовка графы и данных в ней должны быть соизмеримы.

В противном случае разделить заголовки на несколько строк. Добиться

того, чтобы таблица помещалась на листе формата А4 при шрифте 14

единиц.

12.Выполнить размещение символьных данных по центру соответствующих

столбцов, а числовых - по левому краю.

13.Ввести произвольные значения оценок по предметам.

14.Выполнить защиту от модификации столбцов с оценками.

15 В настройке строки состояния сделать видимыми среднее значение,

сумму, максимальное и минимальное значения.

16.Ввести рамки для всех ячеек таблицы.

17.Удалить сетку.

18.Скрыть каждую вторую строку таблицы.

19 Восстановить исходную таблицу.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Nika7854
18.10.2022 15:08
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var k:=0;
  var Terminate:boolean;
  repeat
    Terminate:=True;
    var n:=ReadInteger('Введите номер месяца:');
    case n of
    1,3,5,7,8,10,12:Writeln('31 день');
    4,6,9,11:Writeln('30 дней');
    2:Writeln('28 дней в обычном году и 29- в високосном')
    else begin
      Writeln('Вы ошиблись, номер должен быть от 1 до 12');
      Inc(k);
      Terminate:=False
      end
    end
  until Terminate;
  if k>0 then Writeln('Вы ошиблись ',k,' раз(а).')
end.

Тестовое решение:
Введите номер месяца: 18
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 0
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 5
31 день
Вы ошиблись 2 раз(а).
0,0(0 оценок)
Ответ:
guskovzahar2011
06.03.2023 02:19
Const n=10; m=5;
var a:array[1..n,1..m+1] of integer;
i,j,k,sp,s:integer;
begin
Randomize;
writeln('  Результаты соревнований');
for i:=1 to n do
 begin
 s:=0;
 for j:=1 to m do
  begin
  a[i,j]:=random(50)+50;
  write(a[i,j]:4);
  s:=s+a[i,j];
  end;
  a[i,m+1]:=s;
  writeln(s:5);
 end;
write('k='); readln(k);
sp:=0;
for i:=1 to n do
 if a[i,m+1]>=k then sp:=sp+1;
writeln('sp=',sp);
end.

Пример:
  Результаты соревнований
  69  52  91  62  65  339
  70  53  96  56  97  372
  78  98  94  61  62  393
  62  86  50  58  95  351
  82  98  53  56  81  370
  75  64  56  85  54  334
  69  99  53  72  97  390
  55  75  66  59  61  316
  99  71  83  75  51  379
  91  73  53  88  79  384
k=350
sp=7
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота