Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 07.11.2014
Сообщений: 12
1

Переведите программу из Паскаля на С++

07.11.2014, 16:22. Показов 1148. Ответов 1
Метки нет (Все метки)

Задание: Даны два числа n и m. Создайте двумерный массив [n][m] и заполните его по следующим правилам: Числа, стоящие в строке 0 или в столбце 0 равны 1 (A[0][j]=1, A[i][0]=1). Для всех остальных элементов массива A[i][j]=A[i-1][j]+A[i][j-1], то есть каждый элемент равен сумме двух элементов, стоящих слева и сверху от него.

Программа получает на вход два числа n и m.

Ввод

4 6

Вывод

1 1 1 1 1 1
1 2 3 4 5 6
1 3 6 10 15 21
1 4 10 20 35 56

Программа на паскале:

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
uses crt;
const nmax=11;
var a:array[0..nmax,0..nmax] of longint;
    m,n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=0 to m-1 do
a[i,0]:=1;
for j:=0 to n-1 do
a[0,j]:=1;
for i:=1 to m-1 do
for j:=1 to n-1 do
a[i,j]:=a[i-1,j]+a[i,j-1];
writeln('Исходная матрица:');
for i:=0 to m-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:7);
  writeln;
 end;
readln
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2014, 16:22
Ответы с готовыми решениями:

Переведите с паскаля в С++
if (str='А') or (str='A') then j:=j+1; if (str='а') or (str='a') then k:=k+1;

Переведите из Паскаля в С++
uses crt; var x,y,z,t,max:real; BEGIN writeln('Введите длины сторон треугольника'); ...

Переведите с паскаля на C#
пожалуйста переведите с паскаля на си шарп program abc; uses crt; var a:array of integer; ...

переведите с Паскаля на си++
uses crt; const nmax=100; var a:array of integer; n,i,j,i1,i2:byte; mn:integer; begin...

__________________

Записывайтесь на профессиональные курсы C++ разработчиков
1
37 / 37 / 25
Регистрация: 30.10.2013
Сообщений: 211
07.11.2014, 17:05 2
Лучший ответ Сообщение было отмечено Falder24 как решение

Решение

Falder24,
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
#include <iostream>
#include <string>
#include <windows.h>
using namespace std;
int main()
{ 
int n,m;
cout<<"N=";
cin>>n;
cout<<endl;
cout<<"M=";
cin>>m;
cout<<endl;
int **A=new int* [n];
for(int i=0;i<n;i++)
    A[i]=new int[m];
for(int i=0;i<n;i++)
{
    A[i][0]=1;
}
for(int i=0;i<m;i++)
{
    A[0][i]=1;
}
for(int i=1;i<n;i++)
    {
    for(int j=1;j<m;j++)
    {
        A[i][j]=A[i-1][j]+A[i][j-1];
    }
}
for(int i=0;i<n;i++)
    {
    for(int j=0;j<m;j++)
    {
        cout<<A[i][j]<<" ";
    }
    cout<<endl;
}
    system("pause");
    return 0;
}
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2014, 17:05

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

переведите с Паскаля на си++
на паскале получается...а вот на си++ не о чем(( Program MinMax17; const N=10; TheArr:array of...

Переведите с Паскаля
Всем привет! Нарыл в инете прогу на Паскале (прога определяет день недели по дате). Нужно...

переведите на С++ из паскаля
помогите пожалуйста program zadacha_10; uses crt; type s=record f: string ; ...

Переведите с паскаля на с++
Const nmax=100; Var X,Y:array of integer; i,n,count,summa,a:integer; Begin Randomize; ...


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

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

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