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

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

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

Перегнать с Pascal на C++ - C++

26.11.2013, 20:38. Просмотров 199. Ответов 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
uses crt;
const n=10;
var m:array[1..n]of integer;
i,j,k,min,max:integer;
 
begin
 clrscr;
 write('Массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 k:=0;
 for i:=1 to n do if m[i]<0 then k:=k+m[i];
 write('Сумма отрицательных элементов = ',k);
 min:=1;
 max:=2;
 for i:=1 to n do if m[i]<m[min] then min:=i else if m[i]>m[max] then max:=i;
 k:=1;
 if min>max then for i:=max+1 to min-1 do k:=k*m[i] else
 for i:=max+1 downto min-1 do k:=k*m[i];
 writeln('Произведение элементов между MIN и MAX = ',k); 
  
 for i:=1 to n do
 for j:=1 to n-1 do
 if m[j]>m[j+1] then
 begin
  k:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=k;
 end;
 writeln('Отсортированный массив');
 for i:=1 to n do write(m[i],' ');
 readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2013, 20:38
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перегнать с Pascal на C++ (C++):

перегнать с C++ на C# - C++
имеется int CMyPaintDC::AreaLines(int x,int y,int dir,int d,int PrevXL, int PrevXR,COLORREF col_g,COLORREF col_f) { int...

Перегнать с паскаля в С++ - C++
здравствуйте, мне нужно перегнать с Паскаля в C++. Код Pascal: program ss; var x, y, z, a: intraer; begin readln (x,y,z);...

Перегнать из паскаля на С(чистый) - C++
Нужно перегнать эту програму в чистый С 1) Определить и записать в файл g сумму отрицательное чисел 2) Переписать в файл d числа,...

Перегнать с паскаля на чистый С - C++
Вот эту програму нужно пергнать с паскаля на чистый С program pr_19; uses CRT; var f,g,d:file of integer; a,s,h,n,i:integer; ...

Перегнать с паскаля в С (небольшая програмам) - C++
Здравствуйте мне нужно перегнать вот эту програму из паскаля в чистый С(Borland C) program test; uses crt; var b:array of integer; ...

Как звуковую волну перегнать из аудиофайла в массив? - C++
Всем привет! У меня такая задачка( не знаю с чего начать): Есть аудиозапись с речью. Нужно отделить слова(самые громкие звуки) и как то...

1
Alex566
240 / 152 / 18
Регистрация: 03.04.2013
Сообщений: 317
26.11.2013, 21:01 #2
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#include <iostream>
#define n 10
using namespace std;
 
int main()
{
    setlocale(0,"");
    int m[n],k,min,max;
    cout<<"Массив -> ";
    for(int i=0;i<n;i++)
        cin>>m[i];
    system("pause");
    k=0;
    for(int i=0;i<n;i++)
        if (m[i]<0) k+=m[i];
    cout<<"Сумма отрицательных элементов = "<<k<<endl;
    min=1;
    max=2;
    for(int i=0;i<n;i++)
    {
        if (m[i]<m[min]) min=i; 
        else if(m[i]>m[max]) max=i;
    }
    k=1;
    if(min>max) 
        for(int i=max+1;i<min;i++) k*=m[i]; 
    else
        for(int i=max+1;i>min;i--) k*=m[i];
    cout<<"Произведение элементов между MIN и MAX = "<<k<<endl;
    for(int i=0;i<n;i++)
        for(int j=0;j<n-1;j++)
            if (m[j]>m[j+1])
            {
                k=m[j];
                m[j]=m[j+1];
                m[j+1]=k;
            }
    cout<<"Отсортированный массив: ";
    for (int i=0;i<n;i++)
        cout<<m[i]<<" ";
    cout<<endl;
    system("pause");
    return 0;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.11.2013, 21:01
Привет! Вот еще темы с ответами:

"Перегнать" код из С в С++ (через fstream) - C++
Добрый день. Нужна помощь &quot;перегнать&quot; код из С на С++ через fstream. Задание таково: Описать функцию TextSize(Name) целого типа,...

Перегнать с С на Паскаля - Turbo Pascal
#include&lt;stdio.h&gt; #include&lt;math.h&gt; #include&lt;conio.h&gt; float f1(float x); void main() { float x0,e0,e,xk,xk1,y; int i; ...

RTF перегнать в html - C#
Есть ли какая-нибудь бесплатная библиотека для конвертации rtf в html ? Возможно ли её сделать самому (хотябы какой-нибудь примитив) ?

Перегнать строку в массив - PHP
Добрый вечер. Есть такая задачка : сгенерировать строку из рандомного количества слов рандомной длины. Если среди слов есть те, для которых...


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

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

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