Много баллов! Задано естественные числа n и x. Вывести на экран
Много баллов! Задано естественные числа n и x. Вывести на экран таблицу размером n на n, где на основной диагонали стоит число x, а на других местах *.
Пример: n=4, x=3. Обязано выйти так :
3 * * *
* 3 * *
* * 3 *
* * * 3
Язык Pascal
Аделина Искандерян
На каком языке писать? Си или паскаль?
Артемий Шестерников
Паскаль
Maksim Zimjatov
Const n = 5; m = 5; n-строчка, m-столбецVar A: array [1..n, 1..m] of real; i, j: integer;Begin for i := 1 to n do for j := 1 to m do begin Write('A[', i, ', ', j, '] = '); ReadLn(A[i,j]) end; WriteLn('Начальный массив:'); for i := 1 to n do begin for j := 1 to m do Write(A[i,j]:10:2); WriteLn end; Writeln('Главная диагональ массива А:'); for i :=1 to n do Write(A[i, i]:10:2); WriteLn; ReadLn;END.
1 ответ
Alla Luchovkina
Ввод матрицы в ручную
Const n = 5;
m = 5; n-строка, m-столбец
Var A: array [1..n, 1..m] of real;
i, j: integer;
Begin
for i := 1 to n do
for j := 1 to m do
begin
Write('A[', i, ', ', j, '] = ');
ReadLn(A[i,j])
end;
WriteLn('Начальный массив:');
for i := 1 to n do
begin
for j := 1 to m do
Write(A[i,j]:10:2);
WriteLn end;
Writeln('Главная диагональ массива А:');
for i :=1 to n do
Write(A[i, i]:10:2);
WriteLn;
ReadLn;
END.
Const n = 5;
m = 5; n-строка, m-столбец
Var A: array [1..n, 1..m] of real;
i, j: integer;
Begin
for i := 1 to n do
for j := 1 to m do
begin
Write('A[', i, ', ', j, '] = ');
ReadLn(A[i,j])
end;
WriteLn('Начальный массив:');
for i := 1 to n do
begin
for j := 1 to m do
Write(A[i,j]:10:2);
WriteLn end;
Writeln('Главная диагональ массива А:');
for i :=1 to n do
Write(A[i, i]:10:2);
WriteLn;
ReadLn;
END.
Кира Грассман
А можно как то по проще? У нас нет такового "A[i,j]:10:2, array [1..n, 1..m] и главной диагонали массива"
Аринка
var i,j, m,n,x:integer;beginreadln(m,n,x);for j:=1 to n dobeginfor i:=1 to m doend;if m=n thenbeginwrite ('x ');writeln();end;elsebeginwrite('* ');writeln();end;end.
Diman
Тут у меня ошибка. Не могу отыскать
Эльвира Задорожнова
A[i,j]:10:2 - вывод матрицы которую ты записываешь 10 - это целое число, 2 - это числа после запятой
Ваня Кутимский
array [1..n, 1..m] - записывается массив для матрицы. Проще даже не знаю как написать
Karina Limar
Вот в этом и проблема
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов