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

Учебник информатики был сохранён в pdf формате и в docx формате . Укажите формат файла каторый имеет больший размер

Показать ответ
Ответ:
arkasha27
arkasha27
23.01.2022 23:29
Паскаль АВС

Program LoctarUgar;
uses crt;
const
  eps=0.001;

function fact(n : integer) : longint;
  begin
    if n <= 1
         then  fact := 1
         else   fact := n * fact(n - 1);
  end;

var
  t,s:real;
  i:integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет частичную сумму ряда с заданной точностью');
  writeln('  Общий член ряда:  an = ((3^n)*n! )/ (2n)!');
  writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
  writeln();
  s:=0;   i:=1;   t:=1;
  while t>eps do
    begin
      t:=(power(3,i)*fact(i))/(2*fact(2*i));
      s:=s+t;
      writeln('a(',i,')=',t:0:6,'  S=',s:0:6);
      i:=i+1;
     end;
  writeln();
  writeln('Сумма ряда равна',s:0:6);
end.
0,0(0 оценок)
Ответ:
aarianna
aarianna
04.03.2020 02:42
Const n = 15;
type ArrayOfInteger = array [1..n+2] of integer;

procedure ArrayOutput(A: ArrayOfInteger; a_length: integer);
var i: integer;
begin
  for i := 1 to a_length do
    write(A[i]:4, ' ');
  writeln;
end;

procedure ArraySort(var A: ArrayOfInteger; a_length: integer);
var i, j, temp: integer;
begin
  for i := 1 to a_length-1 do
    for j := i+1 to a_length do
      if A[i]>A[j] then begin
        temp:=A[i];
        A[i]:=A[j];
        A[j]:=temp;
      end;
end;

var
  mass:ArrayOfInteger;
  i:integer;
begin
  writeln('Программа упорядочивает массив по возрастанию ');
  writeln('и вставляет числа -2 и 5, не нарушая упорядоченности.');
{Создаём массив}
  randomize;
  for i := 1 to n do
    mass[i] := random(100)-50;

  writeln('Начальный массив: ');
  ArrayOutput(mass, n);

  ArraySort(mass, n);
  writeln('Отсортированный массив: ');
  ArrayOutput(mass, n);
{Добавляем к массиву числа -2 и 5 и сортируем полученный массив}
  mass[n+1]:=-2;
  mass[n+2]:=5;
  ArraySort(mass, n+2);
{Выводим итоговый массив}
  writeln('Упорядоченный массив: ');
  ArrayOutput(mass, n+2);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота