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

Перевести с Паскаля на С++ - C++

Восстановить пароль Регистрация
 
Bekarys
0 / 0 / 0
Регистрация: 20.10.2014
Сообщений: 11
25.11.2014, 08:35     Перевести с Паскаля на С++ #1
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
const
  n=10;
var
  a,b: array[1..n,1..n] of integer;
  i,j,k,km: byte;
begin
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  k:=0;
  for j:=1 to n do
    if a[1,j]>0 then inc(k);
  km:=k;
  
  for i:=1 to n do
  begin
    k:=0;
    for j:=1 to n do
      if a[i,j]>0 then 
      begin
        inc(k);
        b[i,k]:=a[i,j];
      end;
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2014, 08:35     Перевести с Паскаля на С++
Посмотрите здесь:

C++ Перевести с Паскаля на С++
перевести с Паскаля в с++ C++
Перевести с паскаля на С++ C++
Перевести из Паскаля на С++ C++
Перевести из паскаля на c++ C++
Перевести из паскаля на c++ C++
C++ Перевести из паскаля на с++
C++ Перевести с Паскаля на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
demmax2004
57 / 135 / 35
Регистрация: 31.10.2014
Сообщений: 721
Записей в блоге: 1
25.11.2014, 09:24     Перевести с Паскаля на С++ #2
Сообщение было отмечено автором темы, экспертом или модератором как ответ
[i,k] заменяй на [i],[k]
begin заменяй на {
end заменяй на }
:= заменяй на =
then заменяй на {.......}
writeln, wriye заменяй на printf
Yandex
Объявления
25.11.2014, 09:24     Перевести с Паскаля на С++
Ответ Создать тему
Опции темы

Текущее время: 18:11. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru