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

Перевод с Pascal - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Почему не меняется цвет? http://www.cyberforum.ru/cpp-beginners/thread203710.html
Подскажите ну совсем новичку, почему во время цикла не меняется цвет? Отнеситесь к ошибке снисходительно, я действительно совсем новичок. #include "TXLib.h" void DrawCircle (int x, int y, int r); void MoveCircle (int x, int y, int r, int v); void ChangeColor (COLORREF fillcolor); int main() {
C++ Вывод рисунка Подскажите как в СИ открыть и вывести на экран рисунок (картинку)? http://www.cyberforum.ru/cpp-beginners/thread203708.html
STL C++
Всем привет :) Задача следующая - Нужно считать из файла строки, запихнуть их в стек и вывести на экран, чтобы перед ними был номер (использовать возможности стандартной библиотеки шаблонов (STL)) #include <fstream> #include <iostream> #include <stack> #include <vector> using namespace std;
C++ Заменить строку матрицы, имеющую наименьшую сумму, на элементы главной диагонали
Дана прямоугольная матрица. Заменить строку, имеющую наименьшую сумму, на элементы главной диагонали.
C++ Заменить строку матрицы, имеющую наименьшую сумму, на элементы главной диагонали http://www.cyberforum.ru/cpp-beginners/thread203690.html
Дана прямоугольная матрица. Заменить строку, имеющую наименьшую сумму, на элементы главной диагонали.
C++ Как записать число в строку? дано ЛЮБОЕ вещественное число (double) например, double r= 246.1245 мне нужно его вставить(записать) в строку string temp; без помощи каких либо блокнотов, только функциями внутри кода=) помогите плз подробнее

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

Перевод с Pascal - C++

05.12.2010, 12:59. Просмотров 237. Ответов 0
Метки (Все метки)

Нужно перевести код программы с паскаля на с++ .
Есть блок-схема http://www.takepic.ru/show-image.php...812e756b213a23

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
 program a1;
 uses WinCrt;
 var A:array[0..7] of integer;
s, i, n, k, j : integer;
 begin
     A[0]:=6; A[1]:=1;A[2]:=2;A[3]:=2;
      A[4]:=0;A[5]:=-1;A[6]:=2; n:=6; k:=3;i:=1;
      While i<=n do Begin
              If A[k]<>A[i] then  Begin
                                         A[k]:=A[i];
                                          s:=A[k];
end
else Begin
                                          A[i]:=A[k];
                                           k:=i;
end;
              For j:=1 to n do Write(a[j]:3);Writeln;
              i:=i+1;
End;
    For I:=1 to n do begin
                          s:=s+A[i]+A[k];
                         Writeln(s:3,' ',i:1);
End;
End.
То, что у меня получилось..
C++
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
#include<iostream.h>
#include<stdio.h>
#include<conio.h>
#include<math.h>
void main()
{
    int a[7]={6,1,2,2,0,-1,2};
    int s,i,n,k,j;
    n=6; k=3; i=1;
                           While (i<=n)
                           if A[k]!=A[i]
                           A[k]=A[i];
                           s=A[k];
                      else
                           A[i]=A[k];
                           k=i; 
 
   for (j=1; j<n; j++)
   cout<<a[j];
   endl;
   i=i+1; 
         for (i=1; i<n; i++)
         s=s+A[i]+A[k];
         cout<<s<<" "<<i;
}
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru