Напишите программу формирования и вывода массива…

Тема в разделе "Информатика", создана пользователем Lerosa, 12 янв 2016.

  1. Lerosa

    Lerosa Школьник

    Регистрация:
    17 июл 2015
    Сообщения:
    0
    Симпатии:
    0
    Напишите программу формирования и вывода массива размером 6*3, каждые три последовательных элемента в строке которого составлены по следующемуправилу: 1-й ― равен квадрату суммы текущих индексов, увеличенному на 52-й — равен целой части квадратного корня из предыдущего элемента; 3-й ― равен целой части частного от деления двух предыдущих элемента.
     
  2. Nertera

    Nertera Школьник

    Регистрация:
    25 мар 2012
    Сообщения:
    0
    Симпатии:
    0
    1) var a: array[1… 100,1… 100] of Real; i,j: integer; n,m: integer; beginwrite ('Rows='); readln (n); write ('Cols='); readln (m); for i: =1 to n dobeginfor j: =1 to 2 do beginwrite ('[',i,',',j,']='); readln (a[i,j]); end; For j: =3 to m doa[i,j]: =a[i,j-1]+a[i,j-2]; end; For i: =1 to n do beginfor j: =1 to m dowrite (a[i,j]: 8:3); writeln; end; readln; end.2) var a: array[1… 6,1… 3] of Real; i,j: integer; beginRandomize; for i: =1 to 6 dobeginj: =1; a[i,1]: =sqr (i+j); a[i,2]: =random (18) -9; a[i,3]: =a[i,1]/2+a[i,2]/2; For j: =1 to 3 dowrite (a[i,j]: 8:1); writeln; end; readln; end. Но это на языке паскаль я фиг знает какой тебе нада тут два варианта
     

Поделиться этой страницей