В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия

Перевести формулу на язык Паскаль.


Перевести формулу на язык Паскаль.

Показать ответ
Ответ:
sofkabovs199
sofkabovs199
18.10.2022 06:39

Информатика – очень современная область знаний. Мы изучаем ее в школе, как предмет, но не только. Зачем нужна информатика? В современном мире мы каждый день сталкиваемся с новейшими технологиями. У меня дома есть компьютер, подключенный к Интернету. Когда я ищу что-нибудь в Интернете или пишу другу сообщение, то использую достижения информатики.

Вокруг нас – море информации, а наука информатика как раз решает вопросы, как управлять этим морем. Поэтому она и носит такое название. Без достижений информатики не существовало бы компьютеров, Интернета и других новых технологий, которые уже стали для нас привычны. Не было бы даже вычислительных машин, которые могут производить сложные расчеты за доли секунды. А расчеты нужны везде: на производстве, в банках, на линиях транспорта. Жизнь была бы намного сложнее, если бы информатика не развилась до такого уровня, как сейчас.

Не было бы поисковых систем, с которых сейчас можно отыскать нужны информацию. Я не говорю, что можно найти любую информацию о любом человеке, потому что в мире всегда остаются тайны и секреты. Но большинство информации, полезной в учебе и повседневной жизни, найти можно. Ну, и море всякого интересного тоже. Еще лет двадцать назад для этого пришлось бы идти в библиотеку и рыться там полдня.

Возникает вопрос, зачем изучать информатику всем школьникам? Ведь далеко не все станут программистами, системными администраторами, веб-дизайнерами? Наверное, смысл этого в том, чтобы все понимали, с чем они сталкиваются каждый день, как это действует. Ведь не зря наше время называется информационной эпохой.

0,0(0 оценок)
Ответ:
dreakalex
dreakalex
16.04.2021 03:05
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

type
  Exams=record
    fam:string;
    nam:string;
    ball:=new integer[4];
  end;
    
begin
  var Ls:=new List<Exams>;
  var b:Exams; // буфер
  ReadLines('marks.csv')
      .Foreach(t->begin
          var a:=t.ToWords(',');
          (b.fam,b.nam):=(a[0],a[1]);
          b.ball:=a[2:].Select(q->q.ToInteger).ToArray;
          Ls.Add(b)
          end);
  var n:=Ls.Count;
  // а
  var m:=Arr(0,0,0,0);
  var c:=Ls.Select(t->t.Ball);
  foreach var d in c do
    for var i:=0 to 3 do m[i]+=d[i];
  Writeln('Средние по предметам: ', m[0]/n:0:1,', ',m[1]/n:0:1,
      ', ',m[2]/n:0:1,', ',m[3]/n:0:1);
  // б
  var max:=Ls.Select(t->t.Ball.Sum).Max;
  Writeln(NewLine,'Максимальная сумма ',max);
  // в
  Writeln(NewLine,'Учащиеся, набравшие максимальную сумму :');
  Ls.Where(t->t.Ball.Sum=max).Select(t->t.fam+' '+t.nam)
      .OrderBy(t->t).Println(NewLine);
  // г
  Writeln(NewLine,'Получили хотя бы одну двойку:');
  Ls.Where(t->t.Ball.Any(t->t=2)).Select(t->t.fam+' '+t.nam)
      .OrderBy(t->t).Println(NewLine)
end.

Пример:
Средние по предметам: 3.3, 3.3, 4.0, 2.0

Максимальная сумма 13

Учащиеся, набравшие максимальную сумму :
Алескеров Имран
Бармин Владимир

Получили хотя бы одну двойку:
Александрова Маргарита
Алескеров Имран
Бармин Владимир

Замечание:
В PascalABC.NET 3.3 динамические массивы реализованы с списков, поэтому было принято решение использовать именно список, позволяющий не знать заранее размера массива и добавлять элементы по мере необходимости. Если возникнет причуда иметь данные именно в массиве, перед end. добавьте строку var x:=Ls.ToArray; - она создаст из списка массив х.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота