Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Помогите перевести с Паскаль в Си

Ответить
Настройки темы
C/C++ - Помогите перевести с Паскаль в Си

Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения
Автор: Drongo
Дата: 06-03-2013
Описание: tag code
Помогите пожалуйста перевксти с паскаля в Си работу , заранее большое спасибо

Дана матрица А [1:5; 1:5]. Если произведение элементов первой строки матрицы меньше суммы элементов последнего столбца, то все элементы матрицы пересчитать по правилу:
А(i,j)= A(i,j)•(i+j). Иначе удалить третью строку и третий столбец.

Код: Выделить весь код
uses crt;
const n=5;
var A:array[1..n,1..n] of integer;
    i,j,p,s:integer;
begin
     clrscr;
     randomize;
     writeln('Matrix:');
     for i:=1 to n do
     begin
          for j:=1 to n do
          begin
               A[i,j]:=random(10)-5;
               write(A[i,j]:3);
          end;
          writeln;
     end;
     p:=1;
     for j:=1 to n do
     p:=p*A[1,j];
     writeln('proizvedenie 1 stroki p=',p);

     for i:=1 to n do
     s:=s+A[i,n];
     writeln('summa poslednego stolbca s=',s);

     writeln;
     writeln('Result:');
     if p<s then
     begin
          writeln('p<s');
          for i:=1 to n do
          begin
               for j:=1 to n do
               begin
                    A[i,j]:=A[i,j]*(i+j);
                    write(A[i,j]:4);
               end;
               writeln;
               writeln;
          end;
     end else
     begin
          writeln('p>=s');
          for i:=3 to n-1 do
          for j:=1 to n do
          A[i,j]:=A[i+1,j];

          for j:=3 to n-1 do
          for i:=1 to n-1 do
          A[i,j]:=A[i,j+1];

          for i:=1 to n-1 do
          begin
               for j:=1 to n-1 do
               write(A[i,j]:3);
               writeln;
          end;
     end;
     readln;
end.

Отправлено: 04:29, 04-03-2013

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

KISA713, в чём сложность перевода? Или Вы просто не нашли готового решения указанной задачи на C?

Отправлено: 05:21, 04-03-2013 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать

Тему можно закрыть, уже перевела

Отправлено: 13:13, 04-03-2013 | #3


Аватара для lxa85

Необычный


Contributor


Сообщения: 4463
Благодарности: 994

Профиль | Сайт | Отправить PM | Цитировать

Цитата KISA713:
уже перевела »
Ну и молодец!

Отправлено: 13:22, 04-03-2013 | #4


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата KISA713:
Тему можно закрыть, уже перевела »
Перевела — молодец!

Отправлено: 19:47, 04-03-2013 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Помогите перевести с Паскаль в Си

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
C/C++ - [решено] Перевод с Паскаль в си ++ Юлианна_Спивак@fb Программирование и базы данных 4 22-03-2012 17:35
C/C++ - Помогите перевести прогу с паскаля на Си Lesha_dan Программирование и базы данных 6 14-12-2011 22:02
C/C++ - Паскаль-си Drago56 Программирование и базы данных 3 24-12-2010 19:09
Разное - Помогите решить задачи!! Паскаль. Дашка Программирование и базы данных 3 06-12-2010 06:27
Помогите перевести... Disconnect Выбор отдельных компонентов компьютера и конфигурации в целом 4 17-10-2009 17:57


« Предыдущая тема | Следующая тема »


 
Переход