Регистрация
nik20554888
10.08.2021 14:44
Информатика
Есть ответ 👍

Составить программу формирующую двухмерный массив 10^10 заполненный нулями,затем вывести на экран,затем преобразовать таким образом чтобы элементы главной диагонали были равны 1

270
425
Посмотреть ответы 2

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

shuius
shuius
4,4(27 оценок)
Program array var i,j: integer; a: array [1..10, 1..10] of integer;   begin for i: =1 to 10 do begin for j: =1 to 10 do begin a[i,j] = 0; writeln(a[i,j],"\t"); end; end; for i: =1 to 10 do begin for j: =1 to 10 do begin if (i = j) then a[i,j] = 1; writeln(a[i,j],"\t"); end; end; end;
shpep
shpep
4,6(3 оценок)

const

 eps = 1.0E-100;

var

 y, x, z: real;

begin

 writeln('Введите число: ');

 Read(x);

 y := 1.0;

 while abs(z - y) >= eps do

 begin

   z := y;

   y := (y + x / y) / 2;

 end;

 writeln('Метод Герона: ', y);

 Writeln('Обычный метод: ', Sqrt(x));

end.

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