сервис вопросов и ответовVar a:array [1..100,1..100] of real;
10-11 класс|
|
b:array [1..100,1..100] of real;
i,m,n,c:integer;
begin
readln(n);
readln(c);
for i:=1 to n do
for m:=1 to c do readln(a[i,m]);
for i:=1 to n do
for m:=1 to c do
b[i,m]:=a[i,m]/8;
for i:=1 to n do
for m:=1 to c do writeln(b[i,m]);
end.
можете написать обозначение каждого символа
Yujana
17 июня 2013 г., 18:22:13 (10 лет назад)
Ninchik911
17 июня 2013 г., 19:30:24 (10 лет назад)
описательная часть: все что находится в Var'e
var
a:array [1..100,1..100] of real; - описание двумерного масива
b:array [1..100,1..100] of real; - аналогично
i,m,n,c:integer; - описание переменных целого типа, тип это integer
i
Medi95
17 июня 2013 г., 20:33:53 (10 лет назад)
var a,b:array [1..100,1..100] of real;
current_row,current_column,rows,columns:integer;
begin
readln(rows);
readln(columns);
for current_row := 1 to rows do begin
writeln();
for current_column := 1 to columns do begin
read(a[current_row,current_column]);
b[current_row,current_column] :=a [current_row,current_column] / 8;
end;
end;
for current_row := 1 to rows do begin
writeln();
for current_column := 1 to columns do
write(b[current_row,current_column]:4, ' ');
end;
end.
Ответить
Другие вопросы из категории
Как исправить for на цикл while?????
var n,k,i,t:integer; f:text;
begin
assign(f,'f1.txt');
rewrite(f);
readln (n);
for i:=2 to n do begin
t:=0;
for k:=2 to n do
if i mod k=0 then t:=t+1;
if t=1 then write(f,i:3);
end;
close(f);
end.
Можно ли уместить на одну дискету книгу, имеющую 432 страницы, причем на каждой странице этой книги 46 строк, а в каждой строке 62 символа (объем дискеты
равен 1.44 мб, мощность алфавита 256 символов)?
Читайте также
Если в прямоугольной матрице меньше половины столбцов содержит отрицательные элементы, то все элементы с нечетными номерами столбцов умножить на 10. В
противном случае все отрицательные элементы матрицы возвести в квадрат.
У меня получилось вот что:
program s455;
uses crt;
const
m=10;
n=12;
Var
A: array[1..m,1..n] of integer;
i, j, k, s: integer;
Begin
writeln('Enter size');
readln;
s:=0;
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
end;
begin
if a<0 then begin
k:=1;
end;
if k=1 then s:=s+1;
end;
begin;
if k<0
then a[i, j]:=a[i, j*2-1]*10;
else a[i, j]:=a[i, j]*c [i, j]
end;
writeln
Не могу понять в чем ошибка
Нужно написать блок схему для следуйщей программы: Program Example1;
Const n=6;m=4;
Var A:array[1..n,1..m] of integer;
i,j,k:byte;
Begin
For i:=1 to n do
Begin
For j:=1 to m do
Begin
A[i,j]:=random(31)-15;
write(A[i,j]:4);
End;
writeln;
End;
write('Строки в которых один нулевой элемент: ');
For i:=1 to n do
Begin
k:=0;
For j:=1 to m do
if A[i,j]=0 then inc(k);
if k=1 then write(i:2);
End;
readln;
End.
Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [10;10] и вывести ее на экран.
Удвоить все элементы матрицы и вывести ее на экран.
Найти минимальные и максимальные элементы в матрице, указать номера.
Просто матрица и удвоенная есть. Теперь нужно найти мин. и макс. значения
program ff;
uses crt;
const n=8;
m= 5;
var a:array [1..n, 1..m] of integer;
i,j:integer;
begin
writeln ('Матрица:');
for i:=1 to 8 do begin
for j:=1 to 5 do begin a[i,j]:=-10+random(21);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to 8 do
for j:=1 to 5 do
a[i,j]:=a[i,j]*2;
writeln ('Удвоенная матрица:');
for i:=1 to 8 do begin
for j:=1 to 5 dowrite(a[i,j]:4);
writeln;
end;
end.
задача на Паскале. Подскажите, где ошибка?
Var A:array[1..6,1..6] of integer;
X:array[1..6] of byte;
i,j,n:byte;
sum:longint;
Begin
write('Введите кол-во строк N: ');
readln(n);
sum:=0;
For i:=1 to n do
Begin
For j:=1 to n do
Begin
write (vvedite matricy A[i,j]: ') ;
write(A[i,j]:4);
sum:=sum+A[i,j];
End;
if (A[i,i])>(A[i,j]) then x[i]:=0
else x[i]:=1;
writeln;
End;
writeln ('Полученный массив');
For i:=1 to n do
write(X[i]:2);
writeln;
writeln('сумма матрицы = ', sum);
readln;
End.
В задаче на двумерный массив сделать файловый вывод. Вот само решение задачи.
var a:array[1..12,1..10] of integer;
i,j:integer;
begin
for i:=1 to 10 do
a[1,i]:=i*12;
for i:=2 to 12 do
for j:=1 to 10 do
a[i,j]:=a[i-1,j]-1;
for i:=1 to 12 do begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln;
end;
end.
Вы находитесь на странице вопроса "Var a:array [1..100,1..100] of real;", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.