Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 25.03.2014
Сообщений: 2

Перевод из Pascal на C++

25.03.2014, 10:27. Показов 1953. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите перевести программу из Pascal на С++

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
program lab;
const N=30;
var A:array[1..N] of real;
i,k:integer;
S:real;
begin
 
writeln('...:');
for i := 1 to N do
    read(A[i]);    
 
k := 0;
S := 0;
for i := 1 to N do
begin
    if A[i] < 0 then
        inc(k);
    S := S + A[i];
end;    
 
writeln('...: ', S:2:2);
writeln('...: ', k);
 
 
end.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
25.03.2014, 10:27
Ответы с готовыми решениями:

Перевод с Pascal на C++
Вечер добрый. Перевожу с pascal на c++. Подскажите или отредактируйте код, что не так? program z1; var a,b:real; begin; ...

Cформировать массив, в котором каждому элементу будет присвоено значение справа соседнего с ним (Pascal -> C++)
В файле W задан массив из девяти элементов. В новом файле WW сформировать массив, в котором каждому элементу будет присвоено значение...

Перевод с Pascal на С++
Type predpr=Array of longint; rasp=Array of longint; На языке С++, как это будет выглядеть?

2
10 / 10 / 1
Регистрация: 25.03.2014
Сообщений: 19
25.03.2014, 10:36
Лучший ответ Сообщение было отмечено ZZZombeee как решение

Решение

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
#include <cstdlib>
#include <iostream>
 
using namespace std;
 
int main(int argc, char *argv[])
{
    const int N=30;
    float A[N];
    int i;
    int k;
    float S;
    Console.WriteLine("....");
    for (int i = 0; i < N; i++) {
            cout << "[" << i + 1 << "]" << ": ";
            cin >> A[i];
        }
    k=0;
    S=0;
    for (int i = 0; i < N; i++) 
    {
        if(A[i]<0)
        {
                  k++;
        }
        S=S+A[i];
    }
    return EXIT_SUCCESS;
}
0
Программист
 Аватар для Arigato
307 / 182 / 176
Регистрация: 05.12.2013
Сообщений: 685
Записей в блоге: 5
25.03.2014, 11:27
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>
 
using namespace std;
 
void main()
{
    const int N=30; //const N=30;
    float A[N]; //var A:array[1..N] of real;
    int i,k; //i,k:integer;
    float S; //S:real;
    cout<<"...:"<<endl; //writeln('...:');
    for(i=0;i<N;i++) //for i := 1 to N do
    cin>>A[i]; //read(A[i]);    
    k=0; //k := 0;
    S=0; //S := 0;
    for(i=0;i<N;i++) //for i := 1 to N do
    { //begin
        if(A[i]<0) //if A[i] < 0 then
            k++; //inc(k);
        S+=A[i]; //S := S + A[i];
    } //end;    
    cout<<"...:"<<S<<endl; //writeln('...: ', S:2:2);
    cout<<"...:"<<k<<endl; //writeln('...: ', k);
} // end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
25.03.2014, 11:27
Помогаю со студенческими работами здесь

Вычислить значение суммы с помощью рекурсии (Pascal -> С++)
Для заданного целого N вычислить значение суммы(с помощью рекурсии) const n = 4; function f(const lvl : integer; sum : integer) :...

Перевод из Pascal в C++
Помогите,пожалуйста, с переводом программы из паскаля в C++ uses crt; function F(x:real):real; begin F:=1+x-x*x*x; ...

Перевод с pascal на c++
привет всем , помогите ПОЖАЛУЙСТА перевести с pascal на c++. пытался перевести, но с++ сложноват , на изучение языка времени...

перевод с Pascal на C++
Const Max=1000; Eps=0.00001; Type Para=record X: integer;

Перевод с Pascal на С++
Будьте добры, кто понимает, кому не сложно, очень нужна помощь в переводе. program z2; var a,b,s : integer; begin ...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru