1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.

Задача на pascal

Тема в разделе "В помощь учащимся", создана пользователем ZoRG, 25.05.05.

  1. ZoRG

    ZoRG Активный участник

    1.287
    0
    Народ,помогите пожалуйста отредактировать лабу!!!Очень сроччно нужно!!!
    Задание:Создать матрицу В(5,5) целых чисел. Записать в файл а сумму первого и последнего элементов
    в каждой строчке матрицы. Найти наименьшее значение компонетны файла. Если минимум > 0, записать его
    вместо каждй второй компоненты. Файл распечатать


    Program laba;
    Uses crt;
    Type
    ftype=file of integer;
    matrica=array[1..5,1..5] of integer;
    Var
    f:ftype;
    B:matrica;
    N:byte;
    min:integer;
    Procedure FormMatr(var B:matrica; Nx:byte; c:char);
    Var
    i,j:byte;
    Begin
    for i:=1 to Nx do
    for j:=1 to Nx do
    begin
    write('C[',i,',',j,']=');
    readln (B[i,j]);
    end;
    end;
    Procedure Summa(var f:ftype; B:matrica; N:byte);
    Var
    i:byte;
    s:integer;
    Begin
    rewrite(f);
    reset(f);
    for i:=1 to 5 do
    begin
    S:=0;
    S:=B[i,1]+B[i,5];
    write (f,s);
    end;
    close(f);
    end;
    Procedure PoiskMin(var f:ftype;var min:integer);
    Var
    a:integer;
    Begin
    reset(f);
    read(f,min);
    while not eof (f) do
    begin
    read (f,a);
    if a < min then
    min:=a;
    end;
    close(f);
    end;
    Procedure Preobrazovanie(var f:ftype; min:integer);
    Begin
    reset(f);
    if min > 0 then
    while not eof(f) do
    begin
    seek(f,filepos(f)+2);
    write(f,min);
    end;
    close(f);
    end;
    Procedure PrintFile(var f:ftype);
    Var
    a:integer;
    Begin
    reset(f);
    while not eof(f) do
    begin
    read(f,a);
    write(a:1,'');
    end;
    close(f);
    end;
    BEGIN
    clrscr;
    assign(f,'f.dat');
    Writeln('Vvedite matricy ');
    FormMatr(B,N,'B');
    Summa(f,B,N);
    PoiskMin(f,min);
    Preobrazovanie(f,min);
    PrintFile(f);
    readkey;
    End.
     
  2. ZoRG

    ZoRG Активный участник

    1.287
    0
    Тема закрыта.