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

27.12.2012, 03:46. Показов 441. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

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;
}

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

27.12.2012, 03:46

Ответы с готовыми решениями:

Переведите код с Паскаля на Си
Переведите код с Паскаля на Си var s: string; i, back: integer; begin readln(s); i := 1; while i <= length(s)...

переведите код с паскаля на с++
Дан массив A размера N и целое число K(1<=k<=N).Вывести элементы массива с порядковыми номерами, кратными K: AK, A2·K, A3·K, … . ...

Переведите код с паскаля на си
Program LR_N1; Uses crt; Var x,c,a,b,k,w:real; begin clrscr; write(‘Введите значение x: ‘); readln(x); ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

27.12.2012, 03:46

Помогаю со студенческими работами здесь

переведите, пожалуйста, код паскаля в с++
Вот, добрые люди, само задание: заданной и действительной квадратной матрицы порядка n найти сумму элементов строки, в которой расположен...

Переведите пожалуйста код с Паскаля на СИ++
Помогите перенести код на СИ++... До этого не приходилось работать с паскалем( program pokrytie; type pa = array of integer; var ...

переведите с Паскаля на си++
uses crt; const nmax=100; var a:array of integer; n,i,j,i1,i2:byte; mn:integer; begin repeat write('Размер массива до...

Переведите с паскаля в С++
if (str='А') or (str='A') then j:=j+1; if (str='а') or (str='a') then k:=k+1;

переведите с Паскаля на си++
на паскале получается...а вот на си++ не о чем(( Program MinMax17; const N=10; TheArr:array of integer = (10,20,1,4,5,-6,7,8,9,10);...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

Наверх