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

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

Войти
Регистрация
Восстановить пароль
 
Людка
0 / 0 / 0
Регистрация: 07.12.2012
Сообщений: 25
#1

перевести с паскаля на с++ (заполнение матрицы) - C++

26.03.2013, 17:08. Просмотров 194. Ответов 1
Метки нет (Все метки)

Дана матрица A размерностью 5 x 5.
Заполнить ее следующим образом:
1 1 1 1 1
0 1 1 1 0
0 0 1 0 0
0 1 1 1 0
1 1 1 1 1
и вывести на экран.

Вариант решения
Code (Pascal):
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var A: array[1..5,1..5] of Byte;
    i, j: Integer;
 
begin
  for i := 1 to 5 do
    for j := 1 to 5 do
      if Abs (j - 3) <= Abs (i - 3) then A[i,j] := 1
                                    else A[i,j] := 0;
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      Write (A[i,j]:2);
    WriteLn;
  end; {for}
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2013, 17:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевести с паскаля на с++ (заполнение матрицы) (C++):

Перевести из паскаля в c++ - C++
собственно вот паскалевский код, тут через файлы. На с++ надо через ввод/вывод. var N:integer; E:integer; En1,En2:integer; ...

перевести с Паскаля в с++ - C++
Var s:string; i,k:integer; b:boolean; Begin write('Введите строку: ');readln(s); if Length(s) in then k:=1 else...

перевести в си++ из паскаля - C++
var n:longint; i,c:integer; s:string; A:array of boolean; begin write('Введите N: '); readln(n); str(n,s); ...

Перевести из Паскаля в с++ - C++
Народ помогите код переделать в с++ пожалуууууууууйста var i, j, k: integer; p: boolean; s1, s2: string; begin ...

Перевести из паскаля в с++ - C++
var a, i, b: integer; begin read(a); b := 0; for i := 1 to a do if a mod i = 0 then b := b + 1; ...

Перевести из Паскаля на С++ - C++
var d, m: integer; begin writeln('Введіть день'); readln (d); writeln('Введіть мiсяць'); readln (m); case m of 1, 3, 5, 7,...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
eocron
Кактус
66 / 66 / 6
Регистрация: 23.05.2012
Сообщений: 343
26.03.2013, 17:17 #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
#include <iostream>
 
using namespace std;
 
int main()
{
    int a[5][5];
    for(int i=0;i<5;i++)
    {
            for(int j=0;j<5;j++)
            {
                    if( abs(j-2) <= abs(i-2) ){a[i][j]=1;}
                    else{a[i][j]=0;}
            }
    }
    for(int i=0;i<5;i++)
    {
            for(int j=0;j<5;j++)
            {
                    cout<<a[i][j]<<' ';
            }
            cout<<'\n';
    }
    cin.get();
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.03.2013, 17:17
Привет! Вот еще темы с ответами:

Перевести с Паскаля на C++ - C++
как заменить этот же код на С++ ?? const nmax = 100; type arr = array of real; var a:arr; i,j,n,imax,jmax:integer; ...

Перевести с Паскаля на С++ - C++
Помогите, пожалуйста! Переведите код с Паскаля на С++!! Срочно!! program ghost; uses crt; type man = Record ...

Перевести с паскаля на С++ - C++
Program p1; Var x,i,n:integer; Begin Write ('n= '); Read (n); x:=10; i:=0; repeat if (n div x) &lt;&gt; 0 then...

Перевести с паскаля на C++ - C++
помогите перевести с паскаля на C++ , очень надо.:) var n,i,j,k,l:longint; begin readln(n); repeat i:=i+1; ...


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

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

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