Есть ответ 👍

Практическое занятие по информатике сделать Создайте таблицу с такими столбцами:
Номер, Фамилия, Имя, отчество, Вычислительная техника, Физика, Математика,
История, Иностранный язык, Украинский язык, Мировая литература, Физкультура, Средний бал курсанта, стипендия, размер стипендии.
2. Введите в таблицу 15 своих одногруппников.
3. С функции RAND заполните оценки по предметам (оценки должны быть от 3 до ).
4. Столбец Средний курсанта заполните с функции AVERAGE.
5. Аналогично сделайте средний по каждому предмету (под таблицей).
6. Столбец Стипендия заполните с функции IF (в этом столбце у каждого курсанта должно быть слово "да", если его выше 6,5 и слово "нет" в другом случае).
7. Столбец Размер стипендии также заполните с функции IF. При условии, что курсант получает стипендию, в этом столбце должно быть число, рассчитанное по формуле: средний * 50.
8. В столбце Размер стипендии, внизу суммируйте всю стипендию и округлите ее с функции ROUND.
9. Оформите таблицу:
Ячейки с оценками – светло-серый фон, обычный шрифт, выравнивание посередине.
Клеточки из Ф.И.О. - белый фон, выравнивание по левому краю.
Средние оценки – жирный шрифт, черный фон, белые буквы, выравнивание по правому краю.
Размер стипендии – жирный шрифт, темно-серый цвет, белые буквы.
Шапка таблицы – жирный шрифт, серый цвет, толстая линия обрамления.
Все остальные клеточки-тонкое обрамление.
10. Создайте график средних оценок по всем предметам.

194
473
Посмотреть ответы 1

Ответы на вопрос:

mm0528018
4,4(75 оценок)

1)     var   a: array[1..100]of real;   n,p,q,q1: real;   i: integer;     begin       for i: =1 to 100 do         begin           read(a[i]);           if a[i]> =0 then             begin               p: =p+a[i];               q: =q+1;             end;           if a[i]< 0 then           begin             n: =n+a[i];             q1: =q1+1;           end;       end;     writeln('positive: ',p/q);     writeln('negative: ',n/q1);   end. 2)           uses crt; var n: real; i: integer;   begin   n: =0.5;   write('  pounds','            kg');   writeln;     for i: =1 to 20 do       begin       write ('      ',n,'            ', n*0.4);       n: =n+0.5;       writeln;       end;       end. 3)   uses crt; var x: integer;   begin   write(' x','              y');   writeln;     for x: =-5 to 5 do     begin           write(x,'            ');           write(5*(x**x)+1);           writeln;     end;     end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

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

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS