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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.12.2015, 18:56   #1
Mat686
 
Регистрация: 10.12.2015
Сообщений: 4
По умолчанию Перевод из pascal на c++

Помогите пожалуйста перевести, время до зачета в обрез
Код:
uses CRT;
Const
Nmax=12;
var
B,C:array[1..Nmax,1..Nmax] of integer;
i,j,m,n,y:integer;
 
procedure Vvod_B;
 
begin
 
 writeln('Vvedite kol-vo strok v matrice B ');readln(m);
 writeln('Vvedite kol-vo stolbcov v matrice B ');readln(n);
 writeln;
 
 var
 i,j :integer;
 
  for i:=1 to m do
 for j:=1 to n do
 begin
 write('B[',i,',',j,']: ');readln(B[i,j]);
 end;
 
 writeln;
 writeln(' matrica B :');
 writeln;
 
 for i:=1 to m do
 begin
 for j:=1 to n do write(B[i,j]:5,' ');
   writeln;
 end;
 read;
end;
 
 
procedure Pere;
 
begin
y:= 0;
var
 i,j :integer;
     
               begin
                if (B[i,j]<>0) and (B[i,j]<i*j/3) then
                begin
          for i:=1 to m do
          begin
               for j:=1 to n do
               
                begin
                    if B[i,j]<>0 then
                    begin
                         y:=y+1;
                         c[y,1]:=B[i,j];
                         c[y,2]:=i;
                         c[y,3]:=j;
 
 
                    end;
               end;
          end;
          read;
     end;
 
end;
end;
 
procedure Vivod_C;
 
 begin
 writeln;
 writeln('Matrica C :');
 writeln;
 var
 i,j :integer;
 
  for i:=1 to y do
   begin
    for j:=1 to 3 do
     write(C[i,j]:5,' ');
     writeln;
   end;
   readln;
 end;
 
 
 
 
begin
 clrscr;
 Vvod_B;
 Pere;
 Vivod_C;
end.

Последний раз редактировалось Stilet; 10.12.2015 в 20:18.
Mat686 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод из Pascal в C++ CryNet Помощь студентам 1 12.09.2013 21:42
перевод в C++ из Pascal =IS= Помощь студентам 1 24.05.2012 00:37
Перевод с PasCal на Си bodya00728 Помощь студентам 0 16.05.2012 15:03
Перевод (Pascal - C++) spinogryz_ua Помощь студентам 5 02.04.2012 08:21
Перевод кода из Pascal в Object Pascal zemskov77 Общие вопросы Delphi 1 03.01.2009 09:37