задача на паскале.матрица (другая), про абсциссу и ординаты в матрицы ,строка и столбец Опции

[Roman1]

помогите пожалуйста:
Считать из текстового файла Beg.txt матрицу Р(2,10). Элементы столбцов соответственно абсцисса и ордината одной из десяти точек плоскости. Если нет ни одной пары точек, расстояние между которыми меньше заданной величины R, заменить на нуль в матрице Р все отрицательные абсциссы точек, увеличив ординаты этих точек на R. Результат записать в файл Rez.txt.
Если получится, то сегодня

[Bokul]

uses crt;
const r=-10;
type
    main=array[1..10,1..2]of integer;


procedure read_array(s:string; var mas:main);
var f: file of main;
begin
     assign(f,s);
     reset(f);
     read(f,mas);
     close(f);
end;

procedure write_array(s:string; mas:main);
var f:file of main;
begin
     assign(f,s);
     rewrite(f);
     write(f,mas);
     close(f);
end;

procedure print_array(mas:main);
var i,j:byte;
begin
for i:=1 to 10 do
    begin
         for j:=1 to 2 do
             write(mas[i,j],' ');
         writeln;
    end;
end;

var mas:main; i,j:integer; b:boolean;
begin
clrscr;
read_array('d:\input.ini',mas);
print_array(mas);
b:=false;
for i:=1 to 9 do
    for j:=i to 10 do
        if sqrt(sqr(mas[i,1]-mas[j,1])+sqr(mas[i,2]-mas[j,2]))<r then
           b:=true;
writeln;
writeln;
if b=false then
   begin
        for i:=1 to 10 do
            begin
                 if mas[i,1]<0 then
                    mas[i,1]:=0;
                 inc(mas[i,2],r);
                 writeln(mas[i,1],' ',mas[i,2]);
            end;
   end;

write_array('d:\output.ini',mas);
readln;
end.

Сообщение отредактировано: volvo - 3.11.2006 20:14