|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.05.2014, 14:13 | #1 |
Пользователь
Регистрация: 25.04.2014
Сообщений: 11
|
Перевести из паскаля в Си
uses crt;
const nmax=20; var a:array[1..nmax,1..nmax] of integer; b,ab:array[1..nmax] of integer; m,n,i,j,k:byte; begin clrscr; randomize; repeat write('Размер матрицы и вектора от до ',nmax,' n='); readln(n); until n in [1..nmax]; writeln('Матрица A:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(9)+1; write(a[i,j]:3); end; writeln; end; writeln; writeln('Вектор столбец B:'); for i:=1 to n do begin b[i]:=random(9)+1; writeln(b[i]); end; writeln; writeln; for i:=1 to n do begin ab[i]:=0; for j:=1 to n do ab[i]:=ab[i]+a[i,j]*b[j]; end; writeln('Вектор Ab=А*B:'); for i:=1 to n do writeln(ab[i]); readln end. |
18.05.2014, 16:15 | #2 |
C/C++, Java
Участник клуба
Регистрация: 28.03.2012
Сообщений: 1,679
|
Должно быть что-то вроде этого, проверяйте..
Код:
"Keep it simple" - придерживайтесь простоты!
Уильям Оккам - "Не следует множить сущее без необходимости" Сложность - враг простоты и удобства! |
18.05.2014, 16:59 | #3 |
Пользователь
Регистрация: 25.04.2014
Сообщений: 11
|
А как сделать чтобы элементы вводить самому?
|
18.05.2014, 20:07 | #4 |
C/C++, Java
Участник клуба
Регистрация: 28.03.2012
Сообщений: 1,679
|
Код:
"Keep it simple" - придерживайтесь простоты!
Уильям Оккам - "Не следует множить сущее без необходимости" Сложность - враг простоты и удобства! |
19.05.2014, 12:08 | #5 |
Пользователь
Регистрация: 25.04.2014
Сообщений: 11
|
и для вектора?
|
19.05.2014, 12:30 | #6 |
Пользователь
Регистрация: 25.04.2014
Сообщений: 11
|
Всё спасибо разобрался,а не могли бы подсказать строки для считывания суммы положительных элементов в конце?
|
19.05.2014, 13:07 | #7 |
C/C++, Java
Участник клуба
Регистрация: 28.03.2012
Сообщений: 1,679
|
Вы сами то пытались что-нибудь сделать?
"Keep it simple" - придерживайтесь простоты!
Уильям Оккам - "Не следует множить сущее без необходимости" Сложность - враг простоты и удобства! |
19.05.2014, 14:29 | #8 |
C/C++, Java
Участник клуба
Регистрация: 28.03.2012
Сообщений: 1,679
|
Код:
"Keep it simple" - придерживайтесь простоты!
Уильям Оккам - "Не следует множить сущее без необходимости" Сложность - враг простоты и удобства! |
19.05.2014, 18:42 | #9 |
Пользователь
Регистрация: 25.04.2014
Сообщений: 11
|
Уже сделал) но все равно большое спасибо!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевести с Паскаля на Си | lyubov17 | Помощь студентам | 0 | 10.12.2013 21:11 |
Перевести из паскаля на делфи | serega55 | Помощь студентам | 3 | 13.05.2012 21:22 |
перевести из паскаля на с++ | екатерина новикова | Общие вопросы C/C++ | 1 | 19.12.2011 19:21 |
перевести из паскаля в си++ | екатерина новикова | Помощь студентам | 0 | 19.12.2011 19:02 |