Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Bekarys
0 / 0 / 0
Регистрация: 20.10.2014
Сообщений: 11
1

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

25.11.2014, 08:35. Просмотров 894. Ответов 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;
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2014, 08:35
Ответы с готовыми решениями:

Перевести из паскаля в C++
Перегнать из паскаля в C++. Заранее благодарю. условие: Вводится последовательность...

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

Перевести с паскаля на С++
Var s,s1:string; i,k:byte; Begin write('Введите строку: ');readln(s); k:=0;s1:='';...

Перевести из паскаля в С
Условие: Постройте массив p=2,p,...,p, где p=2, p=3, ..., p - n-е простое число uses crt; ...

Перевести из паскаля на c++
Program laba2; var d, m: integer; begin writeln('Введіть день'); readln (d); ...

1
demmax2004
117 / 139 / 46
Регистрация: 31.10.2014
Сообщений: 721
Записей в блоге: 1
25.11.2014, 09:24 2
Лучший ответ Сообщение было отмечено Bekarys как решение

Решение

[i,k] заменяй на [i],[k]
begin заменяй на {
end заменяй на }
:= заменяй на =
then заменяй на {.......}
writeln, wriye заменяй на printf
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2014, 09:24

Перевести из паскаля на c++
program laba2; var x,y: real; begin writeln ('введіть координати точки: '); read(x,y); if...

перевести на c++ с паскаля
переведите пожалуйста как написать эти строчки на с++ for i:=1 to Length(s) do for...

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


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

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

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