0 / 0 / 0
Регистрация: 18.05.2015
Сообщений: 18
1

Переписать программу из паскаля в с++

20.05.2015, 21:07. Показов 1246. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program laba52;
uses crt;
VAR a:array [1..10]of real;
s:real;
i:integer;
 
begin
s:=1;
randomize;
for i:=1 to 10 do
begin
a[i]:=random(50)-25;
writeln('a[',i,']=',a[i]);
if a[i]<0 then
s:=s*a[i]
end;
writeln('S=',s);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2015, 21:07
Ответы с готовыми решениями:

Переписать программу из паскаля на с++
const n = 15; var a:array of integer; i,j,x:integer; begin randomize;...

Переписать программу из паскаля в с++
Уважаемые форумчане!! Помогите пожалуйста переписать программу из паскаля в с++. uses crt; Var...

Переписать программу из паскаля в с++
Program L5Z1; var K:array of real; i:real; c:integer; begin writeln('Зформовані масиви:...

Переписать программу с Паскаля на С++
Есть программа, реализующая метод закрашивания Гуро, но написана она на Паскале+opengl. Мне же...

1
15 / 15 / 21
Регистрация: 18.04.2015
Сообщений: 73
20.05.2015, 21:23 2
Лучший ответ Сообщение было отмечено slientme как решение

Решение

s считает произведение отрицательных элементов?
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
#include <iostream>
#include <ctime>
#include <cstdlib>
#define size 10
using namespace std;
int main()
{
    srand(time(0));
    int i,choice;
    double s = 1,a[size];
    do
    {
        for (i = 0; i < size; i++)
        {
            a[i] = rand() % 50 - 25;
            cout<<"a["<<i+1<<"] = "<<a[i]<<endl;
            if (a[i] < 0) s *= a[i];
        }
        cout<<endl<<"S = "<<s<<endl<<endl;
        cout<<"1. Repeat\n"
            <<"0. Exit\n"
            <<"-> ";
        cin>>choice;
    }while (choice);
}
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2015, 21:23
Помогаю со студенческими работами здесь

Переписать программу с паскаля на си
unit DrawTreeUnit; interface uses Windows, Messages, SysUtils, Variants, Classes,...

Переписать программу с Паскаля на С++
Всем привет! Возникла задача написать код на C++, но данный язык я вообще не знаю. Зато знаю pascal...

Переписать программу из Паскаля в C
Люди добрые, помогите. Нужна эта же программа, но в Си (C). Код Pascal program pr1_9; uses...

Переписать программу с Паскаля на QBasic.
var S : string = 'This text con tains thr ee let ter wo rds.'; I, P, NewP : Integer; ...

Переписать программу с паскаля на Делфи
Помогите пожалуйста, после запуска и ввода значений указывает на эту строку, как быть? что править...

Нужно переписать программу с Паскаля на С++
Я написал программу на Pascal, не могу её реализовать на языке С++ const nmax=20; var a:...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru