Вопрос по информатике:
Pascal ABC
Написание программы
Заполнить двумерный массив А (MхN) элементов числами из текстового файла. Каждую строку массива А упорядочить по убыванию пересчетом в соответствующую строку массива В (MxN).
Пожаловаться
- 15.12.2017 12:30
- Информатика
- remove_red_eye 11284
- thumb_up 41
Ответы и объяснения 1
Uses crt;
const nmax=16;
var a:array[1..nmax,1..nmax] of char;
b:array[1..nmax] of char;
m,n,i,j:byte;
buf:char;
s:string;
f:text;
begin
clrscr;
assign(f,'input.txt');
reset(f);
read(f,m,n);
readln(f,s);
writeln('Исходная матрица:');
for i:=1 to m do
begin
readln(f,s);
for j:=1 to n do
begin
a[i,j]:=s[j];
write(a[i,j]:2);
end;
writeln;
END.
const nmax=16;
var a:array[1..nmax,1..nmax] of char;
b:array[1..nmax] of char;
m,n,i,j:byte;
buf:char;
s:string;
f:text;
begin
clrscr;
assign(f,'input.txt');
reset(f);
read(f,m,n);
readln(f,s);
writeln('Исходная матрица:');
for i:=1 to m do
begin
readln(f,s);
for j:=1 to n do
begin
a[i,j]:=s[j];
write(a[i,j]:2);
end;
writeln;
END.
Пожаловаться
- 16.12.2017 15:17
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы