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

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

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

из паскаля в С++ - C++

01.05.2010, 16:35. Просмотров 428. Ответов 3
Метки нет (Все метки)

Здравствуйте! Помогите пожалуйста перевести код программы в паскале на С++:
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
Program Example;
uses crt;
Type mas=array [-100..50] of Integer;
var a,m: mas;
    n,s,k,mini: Integer;
Procedure Vvod(var a: mas);
var i: Integer;
begin
   Writeln('Введите количество элементов');
   Readln(k);
   Writeln('Введите элементы');
   For i:=1 to k do
   Readln(a[i]);
end;
 
Procedure Vivod(a: mas);
var i: Integer;
begin
   For i:=1 to k do
   Write(a[i]:3);
   Writeln;
end;
 
Function min(a:mas): Integer;
Var i, mini,nomer : Integer;
Begin
mini:=a[2];
FOR i:= 2 TO k  do
    begin
    IF (i MOD 2 = 0) AND   (a[i]<mini) THEN mini:= a[i];
    end;
  min:=mini;
End;
 
Begin
writeln('Начало программы');
writeln('Ввод целочисленного массива Х');
Vvod(a); {обращение к процедуре формирования}
Vivod(a);
s:=min(a);
writeln('минимальный чётный элемент массива = ', s);
writeln('Ввод целочисленного массив Y ');
Vvod(a); {обращение к процедуре формирования}
Vivod(a);
s:=min(a);
writeln('минимальный чётный элемент массива = ', s);
Readln;
End.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2010, 16:35     из паскаля в С++
Посмотрите здесь:

Из Паскаля в С++ - C++
Дана программа на Паскале: Program q; var a,b:byte; begin Writeln('Двузначные числа, удвоенная сумма цифр которых равна...

С Паскаля на С++ - C++
Дана целочисленная матрица размера M × N. Найти количество ее строк, все элементы которых различны. ...

с паскаля на Си++ - C++
uses crt; var a:array of integer; i,n,max,min:integer; c:char; begin ClrScr; repeat writeln('Выберите действие:');...

с паскаля на с++ - C++
Program z1; uses crt; const n=10; type matr = array of integer; var i,j,ks1,ks2,min:integer; a:matr;

из паскаля в си) - C++
Переведите мне пожалуйста прогу, написанную в паскале, в си))))) для меня это очень важно))))))) завтра последний срок) program...

С Паскаля на С++ - C++
program Matrix25; var MAx,Sum,num,j,i,M,N:integer; a: array of integer; begin // Ввод данных writeln('Введите числа M (M&lt;=10)...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
cibertronic
256 / 143 / 13
Регистрация: 27.12.2009
Сообщений: 893
01.05.2010, 16:45     из паскаля в С++ #2
можно не переводить, а прикрепить к проэкту и компилировать, если тебе конечно не нужен именно исходник на си
yanyk1n
4329 / 1460 / 152
Регистрация: 12.03.2009
Сообщений: 5,310
01.05.2010, 16:54     из паскаля в С++ #3
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
45
46
#include <iostream>
 
using namespace std;
 
void input(int*, int);
void print(int*, int);
int min(const int * a, int N);
 
int main()
{
    int N;
    cout << "Введите кол-во элементов -> ";
    cin >> N;
    int * a = new int[N];
    input(a, N);
    cout << "Минимальный чётный элемент массива - " << min(a, N) << endl;
    return 0;
}
 
void input(int * a, int N)
{
    cout << "Введите элементы" << endl;
    for (int i = 0; i < N; i++)
    {
        cin >> a[i];
    }
}
 
void print(int * a, int N)
{
    for (int i = 0; i < N; i++)
    {
        cout << a[i] << " ";
    }
    cout << endl;
}
 
int min(const int * a, int N)
{
    int m = 0;
    for (int i = 0; i < N; i++) if (i % 2 == 0 && a[i] < a[m])
    {
        m = i;
    }
    return m;
}
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.05.2010, 17:07     из паскаля в С++
Еще ссылки по теме:

Из паскаля в С++ - C++
Program lab5; Var a:array of integer; n,I,min,k:integer; P:longint; s:real; Begin Writeln('введите размерность массива'); ...

Из Паскаля на С++ - C++
Здравствуйте. Помогите переписать это решение на C++. uses crt; var a:integer; function del(n:integer):integer; var...

С паскаля на с++ - C++
Приветствую всех! Я запустил с++ и мне на зачет нужна вроде простая программа, знаю ее на паскале: var f,g:file of...

Из паскаля в С++ - C++
Ребят, помогите, пожалуйста, перевести из паскаля в С++, буду благодарен за помощь. Заранее спасибо. program example1; var ...


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

Или воспользуйтесь поиском по форуму:
LadyFlame
0 / 0 / 0
Регистрация: 28.04.2010
Сообщений: 14
01.05.2010, 17:07  [ТС]     из паскаля в С++ #4
Спасибо огромное, вы так меня выручаете!
Yandex
Объявления
01.05.2010, 17:07     из паскаля в С++
Ответ Создать тему
Опции темы

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