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

Из паскаля в c++ с небольшим изменением - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Сортировка матрицы http://www.cyberforum.ru/cpp-beginners/thread1311957.html
Вот алгоритм Сверху-вниз-влево, с конца главной диагонали
C++ Объясните в чем ошибка Помогите найти ошибку в программе... Определить корень третьей степени от Z по итерационной формуле, пока |Wn+1 - Wn| < e Wn+1 = Wn +(1/3)(Z/ Wn2- Wn) начальное значение Z/3 , если Z >= 0... http://www.cyberforum.ru/cpp-beginners/thread1311952.html
Определить функцию, позволяющую распознавать наличие вещественных корней в квадратном уравнении C++
Даны три квадратных уравнения ax^2+bx+с, bx^2+ax+с, cx^2+ax+b. Сколько из них имеют вещественные корни. (определить функцию, позволяющую распознавать наличие вещественных корней в квадратном...
C++ Функция, позволяющая распознавать наличие вещественных корней в квадратном уравнении
Даны три квадратных уравнения ax^2+bx+с, bx^2+ax+с, cx^2+ax+b. Сколько из них имеют вещественные корни. (определить функцию, позволяющую распознавать наличие вещественных корней в квадратном...
C++ Меню(Шаблон) http://www.cyberforum.ru/cpp-beginners/thread1311938.html
Подскажите как сделать меню на С++ 1. Запуск программы один 2. Запуск программы два 3. Выход Чтобы допусти при выборе программы 1 у нас запускалась программа которая считает сумму нечетных...
C++ Как можно оптимизировать? Как можно оптимизировать программу,чтобы она работала до 1 секунды? #include<iostream> #include<cstring> using namespace std; int sdvig(char a,char b,int m,int s) { int t; for (int... подробнее

Показать сообщение отдельно
Dream2
0 / 0 / 0
Регистрация: 16.06.2013
Сообщений: 78

Из паскаля в c++ с небольшим изменением - C++

26.11.2014, 20:50. Просмотров 195. Ответов 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
50
51
52
Var
  Mas1,Mas2:array[1..10] of Integer;
  i,j,k:Byte;
  SumP,SumO:Integer;
begin
  Randomize;
  For i:=1 to 10 do
  Begin
    Mas1[i]:=-20+Random(40);
    Write(Mas1[i]:4)
  End;
  Writeln;
  i:=1;
  j:=1;
  SumO:=0; 
  SumP:=0;  
  While i <= 10 do
  Begin
    If Mas1[i] > 0 then 
    Begin
      SumP:=0;
      While (Mas1[i] > 0) and (i <= 10) do   
      Begin
        SumP:=SumP+Mas1[i];  
        inc(i)            
      End;
      Mas2[j]:=SumP;     
      inc(j)
    End;
    If Mas1[i] < 0 then  
    Begin
      SumO:=0;
      While (Mas1[i] < 0) and ( i <= 10) do
      Begin
        SumO:=SumO+Mas1[i];                
        Inc(i)
      End;
      Mas2[j]:=SumO;    
      inc(j)
    End
    Else
    If Mas1[i] = 0 then    
    Begin
      Mas2[j]:=0;         
      inc(j);
      While (Mas1[i] = 0) and ( i <= 10) do Inc(i)      
    End;
  End;
  For i:=1 to j-1 do
  Write(Mas2[i]:4);
  Readln
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru