из паскаля в си

[zxzxz]

помогите пожалуйста в C переделать

program ex;
uses crt;
const n=3;
const m=5;
var A:array [1..n,1..m] of integer;
var i,j,t,ch: integer;
var f:text;
var filename: string [200];
procedure printarray;
var i,j: integer;
begin
for i:=1 to n do
begin
for j:=1 to m do write(A[i,j]:5);
writeln;
end;
end;
procedure printsum;
var i,j,sum: integer;
begin
sum:=0;
for i:=1 to n do
for j:=1 to m do sum:=sum+A[i,j];
write ('сумма=: ');writeln(sum);
end;
begin
writeln('имя файла');
readln(filename);
assign(f,filename);
reset(f);
for i:=1 to n do
begin
for j:=1 to m do
begin
read (f,A[i,j]);
end;
writeln;
end;
close (f);
ch:=0;
while (ch<>3) do
begin
writeln ('1-вывод из массива, 2-сумма элементов, 3-выход.выбор:');
readln(ch);
if (ch=1) then printarray;
if (ch=2) then printsum;
end;
end.

[Sciv]

Давай договоримся - ты сначала в паскале в нормальный удобочитаемый вид переделаешь, а потом уже я тебе в С переделаю. Ок?

[ччч1]

В смысле удобочитаемый?

[zxzxz]

А Почему так не правильно?Как учили так и сделала

[Utkin]

А Почему так не правильно?Как учили так и сделала

Структурируй через отступы.

[Serge_Bliznykov]

помогу топикстартеру..
вот форматированный код на Паскаль

program ex;
uses crt;
const n = 3;
const m = 5;
var 
  A: array[1..n, 1..m] of integer;
  i, j, t, ch: integer;
  f: text;
  filename: string[200];

procedure printarray;
var i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do write(A[i, j]: 5);
    writeln;
  end;
end;

procedure printsum;
var i, j, sum: integer;
begin
  sum := 0;
  for i := 1 to n do
    for j := 1 to m do sum := sum + A[i, j];
  write('сумма=: '); writeln(sum);
end;

begin
  writeln('имя файла');
  readln(filename);
  assign(f, filename);
  reset(f);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      read(f, A[i, j]);
    end;
    writeln;
  end;
  close(f);
  ch := 0;
  while (ch <> 3) do
  begin
    writeln('1-вывод из массива, 2-сумма элементов, 3-выход.выбор:');
    readln(ch);
    if (ch = 1) then printarray;
    if (ch = 2) then printsum;
  end;
end.

[zxzxz]

А поняла Как с отступами..спасибо

[zxzxz]

помогите мне с си пожалуйста

[rrrFer]

помогите мне с си пожалуйста

но если тока пожалсто... Но ниже решение на С++, на Си кто-нибудь другой переправит может быть.

#include <iostream>
#include <fstream>

void printarray(int **a, const int n, const int m);
void printsum(int **a, const int n, const int m);

int main() {
  const int n = 3, m = 5;
  int **a;
  int i, j, t;
  char ch;
  std::ifstream ifst;
  char fname[255];
  
  std::cout << "filename: ";
  std::cin >> fname;
  ifst.open(fname);
  
  if (0 == ifst) {
    std::cout << "can't open file\n";
    return -1;
  }
  
  a = new int*[n];
  for (int i = 0; i < n; ++i)
    a[i] = new int[m];
  
  for (int i = 0; i < n; ++i) 
    for (int j = 0; j < m; ++j)
      ifst >> a[i][j];
  ifst.close();
  
  while (true) {
    std::cout << "\t1 - out arr\n\t2 - out sum\n\t3 - exit\n: ";
    std::cin >> ch;
 
    if ('3' == ch)
      break;
    
    switch (ch) {
      case '1': printarray(a, n, m); break;
      case '2': printsum(a, n, m); break;
      default: std::cout << "input error" << std::endl;
    }
  }
  
  for (int i = 0; i < n; ++i)
    delete []a[i];
  delete []a;
}

void printarray(int **a, const int n, const int m) {
  for (int i = 0; i < n; ++i) {
    for (int j = 0; j < m; ++j) 
      std::cout << a[i][j];
    std::cout << std::endl;
  }
}

void printsum(int **a, const int n, const int m) {
  int sum = 0;
  for (int i = 0; i < n; ++i)
    for (int j = 0; j < m; ++j) 
      sum += a[i][j];
  std::cout << "sum: " << sum << std::endl;
}

[Sciv]

Вот же ж... а я только в инет вылез, весь вечер добраться не мог... Теперь получается, что я того... наобещал и не сделал.

Беда.

rrrFer, спасибо, сделал мою работу.