Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2521797 Wed, 03 Mar 2010 05:09:55 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2521797
Добавлено
:D]]> SHeLLin Pascal https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2521245 Tue, 02 Mar 2010 15:39:36 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2521245 SHeLLin

Твой код только считает суммы элементов строк,
Попробуй этот код:

    Program zad9;
     
    Var
    F_in,F_out:Text;
    Matr : Array[1..50,1..40] of integer;
    Sum : Integer;
    str,stl : byte;
    i,j : byte;
    begin
     
    Assign(F_in,'Matr.txt');
    Reset(F_in);
    str:=0;
    stl:=0;
    i:=0;
    While Not Eof(F_in) Do
    begin
    inc(i);
    j:=0;
    While Not Eoln(F_in) Do
    begin
    inc(j);
    Read(F_in,Matr[i,j]);
    end;
    Readln(F_in);
    stl:=j;
    end;
    str:=i;
    Assign(F_out,'Sum.txt');
    Rewrite(F_out);
     
    for j:=1 to stl do
         begin
           for i:=1 to str do
                   write (F_out,matr[i,j],' ');
           writeln(F_out);
         end;
     
     
     
    Close(F_in);
    Close(F_out);
     
    End.
]]> Daiver Pascal https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2521141 Tue, 02 Mar 2010 13:57:36 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2521141 volvo877 Мне нужно из матрицы, которая будет в файле matr, сделать транспонированную, и записать в файл]]> SHeLLin Pascal https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2521015 Tue, 02 Mar 2010 12:51:00 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2521015 Цитата volvo877 @
Цитата (Daiver @ Сегодня, 15:41)
Этот код как раз и считает сумму столбцов,
Ничего подобного. Считает он построчно суммы, ничего более...


Ошибся... Ничего более :D

Добавлено
       for j:=1 to stl do
         begin
           for i:=1 to str do
                   write (F_out,matr[i,j],' ');
           writeln(F_out);
         end;


Попробуй так]]> Daiver Pascal https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520995 Tue, 02 Mar 2010 12:42:55 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520995 SHeLLin, ты кнопку видишь, на которой написано CODE=pas? Нажимать ее не пробовал? Или по-твоему, приводить код к нормальному виду, чтобы его можно было хотя бы читать, должен кто-то другой? Исправляй, в конце концов, сам. Первый раз я за тебя поправил, ты, как видно, внимания не обратил...

И вообще, перестань переливать из пустого в порожнее. Где задание? Делаешь что-то, а что - фиг знает. И зачем тоже непонятно...

Добавлено
Цитата Daiver @
Этот код как раз и считает сумму столбцов,
Ничего подобного. Считает он построчно суммы, ничего более...]]> volvo877 Pascal https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520990 Tue, 02 Mar 2010 12:41:33 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520990 Подсказка: Чтобы вывести матрицу в транспонированном виде, нужно во внешнем цикле проходить по столбцам, а во внутреннем - по строкам.]]> Vesper Pascal https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520989 Tue, 02 Mar 2010 12:41:32 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520989 Цитата SHeLLin @
Вот вроде без ошибок, но пытаюсь транспонировать матрицу, вместо суммы столбцов, и не могу


Цитата SHeLLin @

For i:=1 To str Do
begin
Sum:=0;
For j:=1 To stl Do
Sum:=Sum+Matr[i,j]; {Суммирует элементы строк}
Write(F_out,Sum:6);
Writeln('В строке i сумма=',Sum);
end;


Этот код как раз и считает сумму столбцов,

Транспонировать-в смысле поменять местами строки и столбцы?]]> Daiver Pascal https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520965 Tue, 02 Mar 2010 12:32:00 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520965
uses Crt;

Var
F_in,F_out:Text;
Matr : Array[1..50,1..40] of integer;
Sum : Integer;
str,stl : byte;
i,j : byte;
begin

Assign(F_in,'Matr.txt');
Reset(F_in);
str:=0;
stl:=0;
i:=0;
While Not Eof(F_in) Do
begin
inc(i);
j:=0;
While Not Eoln(F_in) Do
begin
inc(j);
Read(F_in,Matr[i,j]);
end;
Readln(F_in);
stl:=j;
end;
str:=i;
Writeln('Число строк=',str,'1=',stl);
Assign(F_out,'Sum.txt');
Rewrite(F_out);
For i:=1 To str Do
begin
Sum:=0;
For j:=1 To stl Do
Sum:=Sum+Matr[i,j]; {Суммирует элементы строк}
Write(F_out,Sum:6);
Writeln('В строке i сумма=',Sum);
end;
Close(F_in);
Close(F_out);

End.

Добавлено
Вот вроде без ошибок, но пытаюсь транспонировать матрицу, вместо суммы столбцов, и не могу :'(]]> SHeLLin Pascal https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520930 Tue, 02 Mar 2010 12:06:10 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520930 Daiver Pascal https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520917 Tue, 02 Mar 2010 11:58:34 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520917 Цитата Daiver @
Вот код без опечаток:
И что делает этот код?

Цитата Daiver @
{Тут наверно пропущен цикл}

Цитата Daiver @
{И еще один цикл}
, в результате код яйца выеденного не стоит...]]> volvo877 Pascal https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520915 Tue, 02 Mar 2010 11:56:30 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520915
Вот код без опечаток:

    Program zad9;
    uses Crt;
    Var
       F_in,F_out:Text;
       Matr    : Array[1..50,1..40] of integer;
       Sum     : Integer;
       str,stl : byte;
       i,j     : byte;
       begin
         clrscr;
         Assign(F_in,'Matr.txt');
         Reset(F_in);
         str:=0;
         stl:=0;
         i:=0;
         {Тут наверно пропущен цикл}
         begin
         {И еще один цикл}
         begin
            inc(j);
            Read(F_in,Matr[i,j]);
         end;
         Readln(F_in);
         stl:=j;
         end;
         str:=i;
         Writeln('Число строк=',str,'Число столбцов=',stl);
         Assign(F_out,'Sum.txt');
         Rewrite(F_out);
         For i:=1 To str Do
          begin
            Sum:=0;
            For j:=1 To stl Do
            Sum:=Sum+Matr[i,j];
            Write(F_out,Sum:6);
            Writeln('В строке ',i,'сумма=',Sum);
          end;
          Close(F_in);
          Close(F_out);
          readln();
        End.
]]> Daiver Pascal https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520831 Tue, 02 Mar 2010 10:51:24 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520831 R вместо UseS, во вторых пропущена точка с запятой, а в третьих, явно заголовок какого-то цикла, в котором ты увеличиваешь J и читаешь элемент Matr[i,j] пропущен.

Отформатируй программу как положено, "лесенкой", и увидишь, что Begin-ов меньше, чем End-ов... Исправляй...]]> volvo877 Pascal https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520808 Tue, 02 Mar 2010 10:38:59 +0000 Выдает ошибку error 36: begin expected" Хотя программа вроде верно составлена https://forum.sources.ru/index.php?showtopic=296435&view=findpost&p=2520808
    Program zad9;
    user Crt;
    Var
       F_in,F_out:Text;
       Matr    : Array[1..50,1..40] of integer;
       Sum     : Integer;
       str,stl : byte;
       i,j     : byte;
       begin
       clrscr
            Assign(F_in,'Matr.txt');
            Reset(F_in);
            str:=0;
            stl:=0;
            i:=0;
            begin
            inc(j);
            Read(F_in,Matr[i,j]);
            end;
            Readln(F_in);
            stl:=j;
            end;
            str:=i;
            Writeln('Число строк=','str,'Число столбцов=',stl);
            Assign(F_out,'Sum.txt');
            Rewrite(F_out);
            For i:=1 To str Do
            begin
            Som:=0;
            For j:=1 To stl Do
            Sum:=Sum+Matr[i,j];
            Write(F_out,Sum:6);
            Writeln('В строке 'i'сумма=',Sum);
            end;
            Close(F_in);
            Close(F_out);
            readln();
            End.


Теги...]]> SHeLLin Pascal