Pascal
1) была у меня задача на двумерные массивы.
Вычеркнуть K строку и m столбец содержащие минимальное значение матрицы
A[1..N,1..M], записать в новую матрицу B[1..n-1,1..m-1]. Ниже код программы.
А как сделать то же самое используя только массив A?
program Z_25;
const n=3;m=5;
var a:array[1..n,1..m] of integer;
b:array[1..n-1,1..m-1] of integer;
i,j:integer;
procedure vvod;
begin
writeln('vvedite matrizu ',n,'*',m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(a[i,j]);
end;
end;
end;
procedure obrabotka;
var min,Xi,Xj,Si,Sj:integer;
begin
min:=a[1,1];
Xi:=1;
Xj:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
begin
Xi:=i;
Xj:=j;
min:=a[i,j];
end;
si:=0;
sj:=0;
for i:=1 to n do
begin
if Xi<>i then
for j:=1 to m do
if j<>Xj then b[i-si,j-sj]:=a[i,j]
else sj:=1
else si:=1;
sj:=0;
end;
end;
procedure vivod;
begin
for i:=1 to n-1 do
begin
writeln;
for j:=1 to m-1 do write(b[i,j]:3);
end;
end;
begin
vvod;
obrabotka;
vivod;
readln;
readln;
end.
2) Напечатать все натуральные четырехзначные числа, в десятичной записи
которых нет одинаковых цифр.
А как ее переделать чтоб она любое число проверяла на четырехзначность?
Как эту строку сделать через множества -
(r1<>r2)and(r1<>r3)and(r1<>r4)and(r2<>r3)and(r2<>r4)and(r3<>r4) then
writeln(a[i])?
program Z_54;
const n=10;
var a:array[1..n] of integer;
i,j:integer;
procedure vvod;
begin
writeln('введите ',n,' чисел:');
for i:=1 to n do readln(a[i]);
end;
procedure obrabotka;
var r4,r3,r2,r1:integer; begin
for i:=1 to n do
begin
if (999<a[i])and(a[i]<9999) then
begin
r4:=a[i] div 1000;
r3:=(a[i]-r4*1000) div 100;
r2:=(a[i]-r4*1000-r3*100) div 10;
r1:=(a[i]-r4*1000-r3*100-r2*10);
if (r1<>r2)and(r1<>r3)and(r1<>r4)and(r2<>r3)and(r2<>r4)and(r3<>r4)
then writeln(a[i]);
end;
end;
end;
begin
vvod;
writeln;
writeln('rezultat:');
obrabotka;
readln;
end.
3) Как выделять по очередно из текстового файла все слова и проверять стоит
ли у них на первой позиции 'А' или 'а'?
Как подсчитать количество предложений через множества?
4) Дан файл целых чисел. Выбрать те, которые имеют единицы в 3 и 6 двоичных
разрядах и сформировать из них последовательность элементов, упорядоченную
по возрастанию.
Записать ее в новый файл.
Заранее благодарен. Еще больше буду благодарен за объяснения и код.
Номер выпуска : 3851
Возраст листа : 436 (дней)
Количество подписчиков : 511
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/273237
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Подписан адрес:
Код этой рассылки: comp.soft.prog.prog
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru?subject=comp.soft.prog.prog
http://subscribe.ru/ http://subscribe.ru/feedback
