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

Нужно перевести коды программ с паскаля, в С++! - C++

Восстановить пароль Регистрация
 
RaphaelGreen
0 / 0 / 0
Регистрация: 16.04.2013
Сообщений: 8
16.04.2013, 08:42     Нужно перевести коды программ с паскаля, в С++! #1
Если целое число M делится нацело на целое число N, то вывести на экран частное от деления, в противном случае - сообщение ''M на N нацело не делится''.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
  uses
  SysUtils;
  var b,c,a:integer;
 
begin
  writeln ('Ввести 2 числа');
  readln (b,c);
  writeln;
  if m mod c=0 then
  writeln (b div c)
  else writeln ('B на C без остатка не делится');
  readln;
end.
Найти количество положительных (отрицательных) чисел среди четырех целых чисел A, B, C и D
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,b,c,d,e:integer;
begin
writeln('Введите числа:');
readln(a,b,c,d);
if a>0 then inc(e);
if b>0 then inc(e);
if c>0 then inc(e);
if d>0 then inc(e);
writeln('Количество положительных: ',e);
readln;
end.
Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program kvadr;
var
mas: array[1..3] of real;
a: integer;
 
begin
writeln('Введите 3 числа');
for a:=1 to 3 do readln(mas[a]);
for a:=1 to 3 do begin
                 if mas[a]>0 then mas[a]:=sqr(mas[a])*mas[a];
                 if mas[a]<0 then mas[a]:=sqr(mas[a]);
                 end;
for a:=1 to 3 do writeln(a,'-ое число: ',mas[a]);
end.
Прошу помогите перевести это в с++! Я только начал учиться этому языку программирования, и я плохо знаю его синтаксис!

Добавлено через 17 минут
Если целое число M делится нацело на целое число N, то вывести на экран частное от деления, в противном случае - сообщение ''M на N нацело не делится''.
C++
1
2
3
4
5
6
7
8
#include<iostream>
int main()
{
int m,n;
std::cin >> m >> n;
if(m%n)std::cout << "Ne delitsa" << endl;
else std::cout << m/n << endl;
}
Вроде бы перевёл, но я не знаю, на сколько я правильно сделал..Если не прав, подскажите?

Добавлено через 7 минут
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//---------------------------------------------------------------------------
#include<iostream>
#include<windows.h>
#include <vcl.h>
#pragma hdrstop
 
//---------------------------------------------------------------------------
 
#pragma argsused
int main(int argc, char* argv[])
{ SetConsoleOutputCP(1251);
SetConsoleCP(1251);
  int m,n;
  cout<<"Введите число M\n";
  cin >> m ;
  cout<<"Введите число N\n";
  cin>>n;
if(m%n>0)cout << "Не делится" << endl;
else cout<<"Делитель " << m/n << endl;
  system("pause");
      return 0;
}
//---------------------------------------------------------------------------
Хотя вот так вот, точно работает! ^^
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2013, 08:42     Нужно перевести коды программ с паскаля, в С++!
Посмотрите здесь:

Коды программ ... C++
Перевести коды из Pas в C++ C++
нужно перевести с Паскаля на С++ C++
Нужно перевести программу из Паскаля в С++ C++
нужно перевести с паскаля на с++ C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
SatanaXIII
Супер-модератор
Эксперт С++
 Аватар для SatanaXIII
5437 / 2561 / 233
Регистрация: 01.11.2011
Сообщений: 6,330
Завершенные тесты: 1
16.04.2013, 09:33     Нужно перевести коды программ с паскаля, в С++! #2
третье

C++
1
2
3
4
5
6
7
8
9
10
11
float mas[3];
int a;
cout << "Vvedite 3 chisla" << endl;
for(a=0; a<3; a++) cin >> mas[a];
for(a=0; a<3; a++)
  {
  if(mas[a]>0) mas[a]=mas[a]*mas[a]*mas[a];
  if(mas[a]<0) mas[a]=mas[a]*mas[a];
  }
for(a=0; a<3; a++) cout << a+1 << ",-oe chislo: " << mas[a] << endl;
cin.ignore();
RaphaelGreen
0 / 0 / 0
Регистрация: 16.04.2013
Сообщений: 8
16.11.2013, 15:37  [ТС]     Нужно перевести коды программ с паскаля, в С++! #3
Цитата Сообщение от SatanaXIII Посмотреть сообщение
третье

C++
1
2
3
4
5
6
7
8
9
10
11
float mas[3];
int a;
cout << "Vvedite 3 chisla" << endl;
for(a=0; a<3; a++) cin >> mas[a];
for(a=0; a<3; a++)
  {
  if(mas[a]>0) mas[a]=mas[a]*mas[a]*mas[a];
  if(mas[a]<0) mas[a]=mas[a]*mas[a];
  }
for(a=0; a<3; a++) cout << a+1 << ",-oe chislo: " << mas[a] << endl;
cin.ignore();
Спасибо вам большое, простите, что так запоздало, но тогда почему то забыл
WebMacTep
 Аватар для WebMacTep
21 / 21 / 1
Регистрация: 03.10.2013
Сообщений: 128
16.11.2013, 15:57     Нужно перевести коды программ с паскаля, в С++! #4
RaphaelGreen, вот вторая задача:
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
#include <iostream>
 
using namespace std;
 
int main()
{
    setlocale(LC_ALL, "Russian"); // добавляем русский язык в консоль
 
    int a, b, c, d, e = 0;
 
    cout << "Введите числа:" << endl;
 
    cin >> a >> b >> c >> d;
 
    if (a > 0)
    {
        e++;
    }
    if (b > 0)
    {
        e++;
    }
    if (c > 0)
    {
        e++;
    }
    if (d > 0)
    {
        e++;
    }
 
    cout << "Количество положительных: " << e;
 
    return 0;
}

RaphaelGreen, а вот и первая:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include <iostream>
 
using namespace std;
 
int main()
{
    setlocale (LC_ALL, "Russian");
 
    int a, b;
 
    cout << "Введите два числа:" << endl;
 
    cin >> a >> b;
 
    if (a % b == 0)
    {
        cout << a / b;
    }
    else
    {
        cout << "B на C без остатка не делится!";
    }
}
Yandex
Объявления
16.11.2013, 15:57     Нужно перевести коды программ с паскаля, в С++!
Ответ Создать тему
Опции темы

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