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

перевод с паскаля на с++ - C++

Восстановить пароль Регистрация
 
wsa
0 / 0 / 0
Регистрация: 20.05.2013
Сообщений: 202
04.06.2013, 21:00     перевод с паскаля на с++ #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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Program prog525;
Uses Crt;
{Массив А- вводимый массив
Массив В-текущий массив
Массив С-массив для последовательности с наибольшим количеством положит. эл.
Массив В- массив для очистки}
Var
  A,B,C,D:Array[1..100] of integer;
  N,i,k,S:integer;
 
Begin
 
  repeat
    Writeln('Vvedite N-razmernost massiva. Ne bolee 100');
    Readln(N);
  Until (N in [1..100]);
  Randomize;
  For i:=1 to N do
    A[i]:=Random(50)-25;
  For i:=1 to N do
    Write(A[i]:4);
  S:=0;
  k:=0;
  i:=1;
  While (i<=N) do
    begin
    If (A[i]>0) Then
      begin
      inc(k);
      B[k]:=A[i];
      If k>S Then
        begin
        C:=B;
        Inc(S);
        end;
      end
    Else
      begin
      k:=0;
      B:=D;
      end;
    inc(i);
    end;
  Writeln;
  Writeln('Elementov= ',S,'.   ');
  For i:=1 to S do
    Write(C[i]:4);
  Repeat Until KeyPressed;
End.
Помогите пожалуйста)))
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.06.2013, 21:00     перевод с паскаля на с++
Посмотрите здесь:

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

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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