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

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

Войти
Регистрация
Восстановить пароль
 
Bekarys
0 / 0 / 0
Регистрация: 20.10.2014
Сообщений: 11
#1

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

25.11.2014, 08:35. Просмотров 244. Ответов 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++ C++
Перевести с паскаля C++
C++ Перевести с Паскаля на С++
Перевести с Паскаля на C++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
demmax2004
58 / 136 / 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     Перевести с Паскаля на С++
Ответ Создать тему
Опции темы

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