• 
  • 11 January 2021
  Информатика
  • Автор: nurr322

  

  Программа на паскале
  Заполнить линейный массив по формуле c[i]=16*x-i/9-7

• 
  • 11 January 2021
  • Ответ оставил: Giammy

  //PascalABC.NET
  //Версия 3.3, сборка 1611 (06.01.2018)
  
  begin
    var x:=ReadInteger('x=');
    var c:=ArrGen(ReadInteger('Введите размер массива->'), i->16*x-(i+1)/9-7); c.Println;
    end.
  
  Пример: 
  x= 3
  Введите размер массива-> 5
  40.8888888888889 40.7777777777778 40.6666666666667 40.5555555555556 40.4444444444444
  
  

  0
• 
  • 11 January 2021
  • Ответ оставил: smnoregrets

  PROGRAM A23;
  const
      max = 42;
  var
      с:array[1..max]of real;
      x:integer;
      i:byte;
  
  BEGIN
    writeln('Заполнить линейный массив по формуле c[i]=16*x-i/9-7');
    write('Введите x='); readln(x);
    writeln(' ');
  
    writeln('Массив' );
    for i:=1 to max do begin
      с[i]:=16*x - i/9 -7;
      write(с[i], ' ');
    end;
  END.
  

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (02.09.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы