Информатика | 5 - 9 классы
Допишите программу : - поменяйте местами первый и последний столбики ; Вот программа : Program JHK ; const n = 5 ; var ns, a : real ; j, p, i, pr, nm : integer ; d : array[1.
N, 1.
N]of real ; m : array[1.
N] of real ; begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin d[i, j] : = sin(i + j) ; write(d[i, j] : 6 : 2) ; end ; writeln ; end ;
Где ошибка?
Где ошибка?
Const n = 10 ; type TMas = array[1.
N] of integer ; var mas1 : TMas ; procedure ImputMas1(var masTMas : integer) ; var i : integer ; begin for i : = 1 to 10 do begin mas1[i] : = random(n) ; Write(mas1[i] : 3) ; end ; end.
Что озночают эти строки (Паскаль) : const n = 8 ; Type is = array [1?
Что озночают эти строки (Паскаль) : const n = 8 ; Type is = array [1.
N] of integer ; var a : is ; begin .
End.
Помогите найти ошибку в программе?
Помогите найти ошибку в программе.
Умножение двумерного массива.
Pas(29) : Нельзя преобразовать тип integer к array [1.
100] of array [1.
100] of integer.
Вот сама программа : умножение матриц в обратном порядке, т.
Е первый элемент на последний, второй на предпоследний и.
Т. д.
Var x : integer ; a1 : array[1.
100, 1.
100] of integer ; a2 : array[1.
100, 1.
100] of integer ; a3 : array[1.
100, 1.
100] of integer ; i, j, m, n : integer ; begin writeln('Введите размер матрицы') ; readln(m, n) ; for i : = 1 to m do begin for j : = 1 to n do end ; begin writeln('Введите элементы первой матрицы') ; for i : = 1 to m do begin for j : = 1 to n do readln(a1[i, j]) ; end ; end ; begin writeln('Введите элементы второй матрицы') ; for i : = 1 to m do begin for j : = 1 to n do readln(a2[i, j]) ; end ; end ; begin a3 : = a1[i, j] * a2[x + 1 - i, x + 1 - j] ; for i : = 1 to m do begin for j : = 1 to n do readln(a3[i, j]) ; end ; writeln ; end ; readln ; end.
ЗАРАНЕЕ СПАСИБО!
Объяснить, что означает каждая строчка : Program sum_mas ; uses Crt ; Var i : integer ; sum : real ; M : array[1?
Объяснить, что означает каждая строчка : Program sum_mas ; uses Crt ; Var i : integer ; sum : real ; M : array[1.
5] of Real ; begin WriteLn('Введите число m[', i, '] = ') ; readln(m[i]) ; end ; Sum : = 0 ; For i : = 1 to 5 do Sum : = sum + m[i] ; Writeln('сумма = ', sum) ; readln ; end.
Помогите исправить код так, что бы массив А, заполнялся рандомно?
Помогите исправить код так, что бы массив А, заполнялся рандомно.
Пожалуйста.
Var a : array[1.
100, 1.
100] of integer ; c : array[1.
20, 1.
20] of real ; b : array[1.
20, 1.
20] of real ; i, j, n, k : integer ; t : real ; r : integer ; begin t : = 0 ; Writeln('Введите порядок матрицы : ') ; readln(n) ; for i : = 1 to n do for j : = 1 to n do begin Write('a[', i, ', ', j, '] = ') ; Readln(a[i, j]) ; end ; for i : = 1 to n do for j : = 1 to n do begin b[i, j] : = 1 / i + j - 1 ; end ; for i : = 1 to n do for j : = 1 to n do begin for k : = 1 to n do begin t : = t + a[i, k] * b[k, j] ; end ; c[i, j] : = t ; t : = 0 ; end ; for i : = 1 to n do begin for j : = 1 to n do begin write(' ', c[i, j] : 2 : 2) ; end ; Writeln ; end ; end.
Задан двухмерный массив?
Задан двухмерный массив.
Расположить все элементы матрицы в строку в порядке возрастания : ( в чем ошибка?
Программа не идет) : program niv ; const n = 2 ; m = 2 ; var i, j, d : integer ; c : real ; a : array[1.
M, 1.
N] of real ; begin for i : = 1 to n do ; begin a[i, j] : = random (10) - 5 ; a[i, j] : = random (10) - 5 ; writeln(a[i, j]) ; end ; for i : = 1 to m do begin for j : = 1 to n - 1 do begin for d : = 1 to n - j do begin if a[i, d]> ; a[i, d + 1]then begin c : = a[i, d] ; a[i, d] : = a[i, d + 1] ; a[i, d + 1] : = c ; end ; end ; end ; / / / / / end ; writeln('сортировка') ; for i : = 1 to m do begin for j : = 1 to n do begin writeln(a[i, j]) ; writeln(a[2, j]) ; end ; end ; end.
Паскаль выдаёт ошибку, помогите её исправить : Undefined FileName(0) : Нельзя преобразовать тип KeyValuePair к boolean Программа : const n = 50 ; var A : array [1?
Паскаль выдаёт ошибку, помогите её исправить : Undefined FileName(0) : Нельзя преобразовать тип KeyValuePair к boolean Программа : const n = 50 ; var A : array [1.
N] of integer ; S : real ; i : integer ; begin for i : = 1 to n do begin read (a[i]) ; If (A[i] = > ; 10) then S : = S + A[i] ; end ; writeln ('S = ', S) ; end.
Program TELESHOP ; var x : real ; begin writeln ('?
Program TELESHOP ; var x : real ; begin writeln ('.
') ; write ('.
') ; write ('.
') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.
') ; writeln ('.
') ; end else begin writeln ('.
') ; end ; * else begin writeln ('.
') ; end end.
* - место ошибки.
"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?
USES Crt ; const N = 10 ; VAR A : array[1?
USES Crt ; const N = 10 ; VAR A : array[1.
N] of integer ; k : integer ; Function FUN : integer ; Var i, M : integer ; Begin writeln('Введите число M = ') ; readln(M) ; k : = 0 ; for i : = 1 to N do if A[i] FUN : = k ; End ; Procedure SOSTMAS ; Var i : integer ; Begin for i : = 1 to N do begin A[i] : = Random(199) - 100 ; write(A[i] : 5) ; end ; Writeln ; end ; BEGIN SOSTMAS ; Writeln(FUN) ; что то неправильно говорят массив.
Найди ошибку в программе Program a1 ; Var a : integer ; b : real ; begin a : = 100 ; b : = 2, 5 ; writeln (a, b) ; a : = a + b / 3?
Найди ошибку в программе Program a1 ; Var a : integer ; b : real ; begin a : = 100 ; b : = 2, 5 ; writeln (a, b) ; a : = a + b / 3.
5 ; writeln (a) ; end.
На этой странице находится вопрос Допишите программу : - поменяйте местами первый и последний столбики ; Вот программа : Program JHK ; const n = 5 ; var ns, a : real ; j, p, i, pr, nm : integer ; d : array[1?, относящийся к категории Информатика. По уровню сложности данный вопрос соответствует знаниям учащихся 5 - 9 классов. Здесь вы найдете правильный ответ, сможете обсудить и сверить свой вариант ответа с мнениями пользователями сайта. С помощью автоматического поиска на этой же странице можно найти похожие вопросы и ответы на них в категории Информатика. Если ответы вызывают сомнение, сформулируйте вопрос иначе. Для этого нажмите кнопку вверху.
Если задача заключается в том, что нужно поменять местами два столбца матрицы, то в приведенном фрагменте много лишних переменных.
Программа :
Program JHK ;
const n = 5 ;
vard : array[1.
N, 1.
N]of real ;
i, j : integer ; a : real ;
begin
writeln('Исходный массив : ') ;
for i : = 1 to n do
begin
for j : = 1 to n do begin d[i, j] : = sin(i + j) ; write(d[i, j] : 6 : 2) ; end ;
writeln ;
end ;
for i : = 1 to n do
begin a : = d[i, 1] ; d[i, 1] : = d[i, n] ; d[i, n] : = a ; end ;
writeln('Измененный массив : ') ;
for i : = 1 to n do
begin
for j : = 1 to n do write(d[i, j] : 6 : 2) ;
writeln ;
end ;
end.
Результат :
Исходный массив : 0.
91 0.
14 - 0.
76 - 0.
96 - 0.
28 0.
14 - 0.
76 - 0.
96 - 0.
28 0.
66 - 0.
76 - 0.
96 - 0.
28 0.
66 0.
99 - 0.
96 - 0.
28 0.
66 0.
99 0.
41 - 0.
28 0.
66 0.
99 0.
41 - 0.
54
Измененный массив : - 0.
28 0.
14 - 0.
76 - 0.
96 0.
91 0.
66 - 0.
76 - 0.
96 - 0.
28 0.
14 0.
99 - 0.
96 - 0.
28 0.
66 - 0.
76 0.
41 - 0.
28 0.
66 0.
99 - 0.
96 - 0.
54 0.
66 0.
99 0.
41 - 0.
28.