Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
bizoga
7 / 7 / 0
Регистрация: 11.01.2013
Сообщений: 101
#1

эта программа сделанная на Паскале, а мне надо на С++ - C++

14.03.2013, 20:03. Просмотров 319. Ответов 1
Метки нет (Все метки)

Выходные данные: массиве К действительных чисел размером m  n, где m = 2, n = 3.
В массиве все элементы разделить на наибольший элемент соответствующей строки.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
const m=2;
      n=3;
var k:array[1..m,1..n] of real;
    i,j:byte;
    mx:real;
begin
clrscr;
writeln('Введите элементы массива, действительные числа');
for i:=1 to m do
for j:=1 to n do
 begin
  write('k[',i,',',j,']=');
  readln(k[i,j]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(k[i,j]:5:1);
  writeln;
 end;
for i:=1 to m do
 begin
  mx:=k[i,1];
  for j:=2 to n do
  if k[i,j]>mx then mx:=k[i,j];
  for j:=1 to n do
  k[i,j]:=k[i,j]/mx;
 end;
writeln('Измененный массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(k[i,j]:5:1);
  writeln;
 end;
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2013, 20:03
Здравствуйте! Я подобрал для вас темы с ответами на вопрос эта программа сделанная на Паскале, а мне надо на С++ (C++):

Мне надо чтобы увеличивался счетчик к. - C++
Мне надо чтобы увеличивался счетчик к,после каждого просмотра. # include <iostream.h> # include <conio.h> int main () { clrscr...

Вывести строку из файла которую мне надо! - C++
Как вывести строку из файла которую мне надо. Например: Есть файл.У файле текст ааааа бббббб ввввв гггггг ееееее жжжж ззззз...

Эта программа безвредна? - C++
Есть один человек, который утверждает, что данная программа не делает ничего, кроме как автоперехода по ссылкам, указанным в файле url.txt....

Как будет выглядеть эта программа в паскале - Turbo Pascal
if( x*x + y*y < 1 ) return false; if( x*x + y*y > 4 ) return false; if( x >= 0 && y < -x ) return false; if( x < 0 && y < x ) return...

мне надо какая нить программа которая меняла бы пароль на файл - MS Word
РЕбята у меня такой вопрос !! мне надо какая нить программа которая меняла бы пароль на файл при каждом его открытии !! ну что бы пароля...

Программа Дерево решений. Уже написана на Delphi. А мне надо на PascalABC. Что делать с модулями? - PascalABC.NET
program DoP_777; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, Math; Type

1
rangerx
1940 / 1549 / 141
Регистрация: 31.05.2009
Сообщений: 2,913
14.03.2013, 21:40 #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
#include <cstddef>
#include <iostream>
 
using namespace std;
 
int main()
{
    cout.precision(1);
    cout.setf(ios::fixed);
 
    const size_t m = 2;
    const size_t n = 3;
 
    double k[m][n];
 
    cout << "Введите элементы массива, действительные числа\n";
    for(size_t i = 0; i < m; ++i)
    {
        for(size_t j = 0; j < n; ++j)
        {
            cout << "k[" << i + 1 << "," << j + 1 << "] = ";
            cin >> k[i][j];
        }
    }
 
    cout << "Исходный массив:\n";
    for(size_t i = 0; i < m; ++i)
    {
        for(size_t j = 0; j < n; ++j)
        {
            cout.width(5);
            cout << k[i][j];
        }
        cout << '\n';
    }
 
    for(size_t i = 0; i < m; ++i)
    {
        double mx = k[i][0];
        for(size_t j = 1; j < n; ++j)
            if(k[i][j] > mx) mx = k[i][j];
 
        if(mx != 0)
            for(size_t j = 0; j < n; ++j)
                k[i][j] /= mx;
    }
 
    cout << "Измененный массив:\n";
    for(size_t i = 0; i < m; ++i)
    {
        for(size_t j = 0; j < n; ++j)
        {
            cout.width(5);
            cout << k[i][j];
        }
        cout << '\n';
    }
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.03.2013, 21:40
Привет! Вот еще темы с ответами:

Сделанная программа не работает на других комьютерах - Visual Basic .NET
Столкнулся с такой проблемой: Сделал программу в VB. NET 2008, скомпилировал ее в .exe. На моем компьютере программа работает. Скинул двум...

Мне нужно написать коды к этим задачам.( Все пишут в Паскале). Но если можете мне в Бейсике. Пожалуйста - C#
Мне нужно написать коды к этим задачам.( Все пишут в Паскале). Но если можете в Бейсике. Пожалуйста, спасите меня

Пойдет ли мне эта видеокарта? - Рабочая станция
Пойдет ли эта видеокарта на мою конфигурацию? Видеокарта Asus PCI-Ex Radeon R7 250 1024MB GDDR5 (128bit) (1000/4600) (DVI, VGA, HDMI)...

Подойдет ли мне эта видеокарта? - Видеокарты
Доброго времени суток, обитатели этого форума! Хочу вам задать вопрос : можно ли поставить на мой комп видеокарту NVidia GTX 760 ? Точная...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru