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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
RaphaelGreen
0 / 0 / 0
Регистрация: 16.04.2013
Сообщений: 8
#1

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

16.04.2013, 08:42. Просмотров 437. Ответов 3
Метки нет (Все метки)

Если целое число 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;
}
//---------------------------------------------------------------------------
Хотя вот так вот, точно работает! ^^
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2013, 08:42
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Нужно перевести коды программ с паскаля, в С++! (C++):

нужно перевести с Паскаля на С++ - C++
Найти в массиве: 1) сумму элементов с нечётными номерами 2) Сумму элементов между первым и последним отрицательными элементами 3) в...

нужно перевести с паскаля на с++ - C++
uses crt; var E,x,p,t:real; k:integer; { Возведение х в степень к } function step(x:real;k:integer):real; var i: integer; ...

Нужно перевести программу из Паскаля в С++ - C++
Помогите пожалуйста перевести. Из Паскаля в С++ Код программы Паскаля: program Hello; var i:integer; begin ...

Нужно перевести программу из Паскаля в С++ - C++
К сожалению С++ только начали изучать, а программ задали много Delphi знаю хорошо Задача 1.Составить программу упорядочения по...

Нужно перевести из паскаля в Си. Определить сумму положительных элементов - C++
uses crt; const nmax=20; var a:array of integer; b,ab:array of integer; m,n,i,j,k:byte; begin clrscr; randomize; ...

Коды программ ... - C++
Вопрос 1 ый , на windows 7 не ставится с++3,01 , сказали, что в 6 билдере можно где то включить , чтобы было как в c++ 3.01 И вот...

3
SatanaXIII
Супер-модератор
Эксперт С++
5616 / 2651 / 246
Регистрация: 01.11.2011
Сообщений: 6,535
Завершенные тесты: 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();
1
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();
Спасибо вам большое, простите, что так запоздало, но тогда почему то забыл
0
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 без остатка не делится!";
    }
}
1
16.11.2013, 15:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.11.2013, 15:57
Привет! Вот еще темы с ответами:

Дополнить коды программ (шифры) - C++
Всем доброго времени суток!!! Передо мной стояли две задачи, написать программы, которые выполняют подстановочный и перестановочный...

Перевести коды из Pas в C++ - C++
{осуществить циклический сдвиг элементов массива, на k позиций вправо } program li; uses crt; var a:array of integer; ...

перевести коды символов - C++
Добрый день. Имеется набор кодов символов формата Подскажите, как их перевести в символы? Спасибо.

Перевести с Паскаля на С++ - C++
Помогите, пожалуйста! Переведите код с Паскаля на С++!! Срочно!! program ghost; uses crt; type man = Record ...


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

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

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