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

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

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

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

04.06.2013, 21:00. Просмотров 149. Ответов 0
Метки нет (Все метки)

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++
uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c:real; end; tch=record {точка с полями,...

Перевод с Паскаля в С++ - C++
uses crt; function rec(n:integer):real; var z:integer; begin z:=1; if n=0 then begin z:=1; rec:=1 end

Перевод с паскаля на С++ - C++
Даны два массива A и B одинакового размера N. Сформировать новый массив C того же размера, каждый элемент которого равен максимальному из...

перевод с паскаля на С++ - C++
Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию (см. задание 4). Если образуют,...

Перевод с Паскаля на с++ - C++
Пусть дан файл целых чисел. Создайте файл вещественных чисел, значениями которого будут средние арифметические значения каждой пятёрки...

Перевод из Паскаля в C++ - C++
Здравствуйте! Помогите перевести код из Паскаля в C++. Трансляторов смотрел в гугле, так и не разобрался. Вот задача Поменять местами...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2013, 21:00
Привет! Вот еще темы с ответами:

Перевод из Паскаля в C++ - C++
Переведите программу из Паскаля в С++, пожалусйта Вот код : const nmax=100; var a: array of integer; i,j,n,m,min:...

Перевод из паскаля в с ++ - C++
Ребят помогите перевести в с ++ var p:array of integer; c,c1:char; i,j,N,K:integer; name:string; time1,time2:integer; ...

Перевод из Паскаля в С++ - C++
Нужно переделать задачу из Паскаля в С++Builder. Поможете? Вот само задание:Описать функцию PowerA234(A), вычисляющую вторую, третью и...

Перевод с паскаля на с++ - C++
С Паскаля на С++ var n: Integer; d: Longint; begin repeat Write('Введите N : '); ReadLn(n); until n in ; n:=n div 2*2; ...


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

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

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