|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.05.2010, 00:30 | #1 |
Новичок
Джуниор
Регистрация: 18.05.2010
Сообщений: 2
|
Функции. Из Паскаля в С++
Составить функцию вычисления среднего арифметического элементов вектора. Используя её, преобразовать квадратную матрицу следующим образом: диагональные элементы матрицы заменить средними арифметическими значениями соответствующих строк.
пожалуйста, помогите переделать из Паскаля в С++ на обычный НЕ ООП язык Код HTML:
uses crt; type vekt=array[1..20] of real; matr=array[1..20] of vekt; function Sred(v:vekt;x:byte):real; var i:byte; s:real; begin s:=0; for i:=1 to x do s:=s+v[i]; Sred:=s/x; end; var a:matr; n,i,j:byte; begin clrscr; repeat write('Размер матрицы от 2 до 20 n='); readln(n); until n in [2..20]; writeln('Введите ',n*n,' элементов матрицы:'); for i:=1 to n do for j:=1 to n do begin write('a[',i,',',j,']='); readln(a[i,j]); end; clrscr; writeln('Исходная матрица:'); for i:=1 to n do begin { for j:=1 to n do write(a[i,j]:5:1); writeln; end writeln; for i:=1 to n do a[i,i]:=Sred(a[i],n); writeln('Результат:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:5:1); writeln; end; readln end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
С Паскаля на Си++ | Svetlanka_ya | Помощь студентам | 0 | 16.05.2010 12:17 |
С паскаля на c++ | Sparky | Помощь студентам | 1 | 09.03.2010 16:56 |
от паскаля к с++ | WOLFak | Обсуждение статей | 11 | 27.01.2010 00:18 |
из Паскаля в С++ | Lees27 | Общие вопросы C/C++ | 1 | 14.09.2009 23:29 |
Сканнер Паскаля | nusik | Общие вопросы C/C++ | 4 | 24.04.2009 23:04 |