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

переведите код из паскаля в с++ - C++

Восстановить пароль Регистрация
 
krion
0 / 0 / 0
Регистрация: 13.11.2012
Сообщений: 6
27.12.2012, 03:46     переведите код из паскаля в с++ #1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const n = 50;
var
    arr: array[1..n] of real;
    max: real;
    i,j,k: byte;
begin
    randomize;
    max := 0;
    for i:=1 to n do begin
        arr[i] := random()-0.50;
        write(arr[i]:7:2);
        if abs(arr[i]) > abs(max) then
            max := arr[i]
    end;
    writeln;
    writeln(max:7:2);
 
readln;
end.
Добавлено через 48 минут
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
#include <iostream>
#include <time.h>
#include <cmath>
using namespace std;
const int n = 50;
 
int main()
{
    int arr[n];
    int max;
    srand(time(NULL));
    max = 0;
    for (int i = 0; i < n; i++)
    {
        arr[i] = (rand() % 10) - 9;
        cout << arr[i] << endl;
        if (abs(arr[i]) > abs(max))
            max = arr[i];
    }
    cout << endl;
    cout << "Max: " << max << endl;
 
    return 0;
}
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2012, 03:46     переведите код из паскаля в с++
Посмотрите здесь:

переведите на С++ из паскаля C++
Переведите с Паскаля C++
C++ переведите с Паскаля на си++
C++ переведите с Паскаля на си++
переведите код с паскаля на с++ C++
C++ Ребята переведите с Паскаля на си++ п л с
переведите, пожалуйста, код паскаля в с++ C++
C++ Переведите код с Паскаля на Си
C++ Переведите из Паскаля в С++
Переведите код с паскаля на си C++
Переведите с паскаля в С++ C++
Переведите пожалуйста с паскаля на с++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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