Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.04.2014, 15:17   #1
Sting95
Пользователь
 
Регистрация: 13.08.2013
Сообщений: 23
По умолчанию Перевести код с Паскаля на Си.

Нужно перевести вот этот код:
Код:
uses crt;
const m=3;
      n=4;
type mtr=array [1..m,1..n] of integer;
procedure print(a:mtr;s:string);
var i,j:integer;
begin
writeln(s);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
end;
procedure min(a:mtr;var mn,imn:integer);
var i,j,sm:integer;
begin
for i:=1 to m do
 begin
  sm:=0;
  for j:=1 to n do
  sm:=sm+a[i,j];
  if i=1 then
   begin
    mn:=sm;
    imn:=1
   end
  else if sm<mn then
   begin
    mn:=sm;
    imn:=i
   end;
 end;
writeln('Минимальная сумма в строке ',imn,'=',mn)
end;
procedure sort(var a:mtr;imn:integer);
var i,j,x:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[imn,i]>a[imn,j] then
 begin
  x:=a[imn,i];
  a[imn,i]:=a[imn,j];
  a[imn,j]:=x
 end;
end;
var i,j,mn,imn:integer;
    L:char;
    a:mtr;
begin
clrscr;
repeat
clrscr;
writeln('Как заполнить массив?');
writeln('1.Как константу');
writeln('2.Случайные числа');
writeln('3.Вручную');
writeln('Другое выход');
readln(L);
Case L of
'1':begin
    clrscr;
    a[1,1]:=12;a[1,2]:=3; a[1,3]:=15;a[1,4]:=7;
    a[2,1]:=22;a[2,2]:=14;a[2,3]:=6; a[2,4]:=5;
    a[3,1]:=17;a[3,2]:=5; a[3,3]:=20;a[3,4]:=9;
    print(a,'Исходный массив:');
    min(a,mn,imn);
    sort(a,imn);
    print(a,'Отсортированный массив:');
    readln
    end;
'2':begin
    clrscr;
    randomize;
    for i:=1 to m do
    for j:=1 to n do
    a[i,j]:=random(100);
    print(a,'Исходный массив:');
    min(a,mn,imn);
    sort(a,imn);
    print(a,'Отсортированный массив:');
    readln
    end;
 '3':begin
     clrscr;
     writeln('Введите элементы массива, целые числа');
     for i:=1 to m do
     for j:=1 to n do
      begin
       write('a[',i,',',j,']=');
       readln(a[i,j]);
      end;
     clrscr;
     print(a,'Исходный массив:');
    min(a,mn,imn);
    sort(a,imn);
    print(a,'Отсортированный массив:');
    readln
    end;
else exit
end;
until not(L in ['1'..'3'])
end.

Последний раз редактировалось Sting95; 28.04.2014 в 15:29.
Sting95 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Надо перевести код с Паскаля в код Lazarus Ляйсан9517 Помощь студентам 7 06.04.2014 22:44
перевести код с Паскаля на С++ Arman107 Паскаль, Turbo Pascal, PascalABC.NET 0 29.05.2013 09:13
Перевести код с Паскаля на Си majuw Помощь студентам 0 20.04.2013 13:50
Перевести код из Паскаля в С++. cristianoman Помощь студентам 4 26.03.2013 00:15