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

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

Войти
Регистрация
Восстановить пароль
 
mrsniper
2 / 2 / 0
Регистрация: 13.11.2012
Сообщений: 15
#1

Перегнать с паскаля в С++ - C++

13.11.2012, 19:16. Просмотров 372. Ответов 10
Метки нет (Все метки)

здравствуйте, мне нужно перегнать с Паскаля в C++.

Код Pascal:

program ss;
var
x, y, z, a: intraer;
begin
readln (x,y,z);
while not (x < y and y < z) do
begin
if x>y then
begin
a : = x;
x := y;
y := a;
end;
if y>z then
begin
a : =y;
y := z;
z := a;
end;
end;
writeln (x,y,z);
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
David Sylva
1285 / 947 / 51
Регистрация: 17.05.2012
Сообщений: 2,687
13.11.2012, 19:20     Перегнать с паскаля в С++ #2
Какое задание?
Mgauk
27 / 27 / 1
Регистрация: 03.01.2011
Сообщений: 85
13.11.2012, 19:21     Перегнать с паскаля в С++ #3
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <stdio.h>
 
int main() {
    int x, y, z, a;
    scanf("%i %i %i",x,y,z);
    while(!(x < y and y < z)) {
        if(x > y) {
            a = x;
            x = y;
            y = a;
        }
        if(y > z) {
            a = y;
            y = z;
            z = a;
        }
    }
    printf("%i %i %i",x,y,z);
}
BumerangSP
4284 / 1406 / 121
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
13.11.2012, 19:24     Перегнать с паскаля в С++ #4
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>
int main()
{
 int x, y, z, a;
 std::cin>>x>>y>>z;
 while (! ((x < y) && (y < z)))
 {
  if (x>y)
  {
   a = x;
   x = y;
   y = a;
  }
  if (y>z)
  {
   a =y;
   y = z;
   z = a;
  }
 }
std::cout<<x<<y<<z;
return 0;
}
ZaMaZaN4iK
Мой лучший друг-отладчик!
163 / 163 / 9
Регистрация: 24.06.2012
Сообщений: 662
Записей в блоге: 5
Завершенные тесты: 1
13.11.2012, 19:25     Перегнать с паскаля в С++ #5
вот так будет
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>
 
int main()
{
int x,y,z,a;
std::cin>>x>>y>>z;
while(!(x<y && y<z))
{
if(x>y)
{
a=x;
y=z;
z=a;
}
if (y>z)
{
a =y;
y = z;
z = a;
}
}
std::cout<<x<<' '<<y<<' '<<z<<std::endl;
system("pause");
}
Somebody
2781 / 1595 / 143
Регистрация: 03.12.2007
Сообщений: 4,179
Завершенные тесты: 1
13.11.2012, 19:27     Перегнать с паскаля в С++ #6
Вообще так тут и цикл ни к чему.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#include <algorithm>
#include <iostream>
 
int main()
{
    int x, y, z;
    std::cin >> x >> y >> z;
    if (x > y)
        std::swap(x, y);
    if (y > z)
        std::swap(y, z);
    if (x > y)
        std::swap(x, y);
    std::cout << x << y << z << std::endl;
}
mrsniper
2 / 2 / 0
Регистрация: 13.11.2012
Сообщений: 15
13.11.2012, 19:27  [ТС]     Перегнать с паскаля в С++ #7
Вот задание:
Значения переменных X, Y, Z поменять местами так, чтобы они оказались упорядоченными по убыванию.
David Sylva
1285 / 947 / 51
Регистрация: 17.05.2012
Сообщений: 2,687
13.11.2012, 19:28     Перегнать с паскаля в С++ #8
Цитата Сообщение от mrsniper Посмотреть сообщение
Вот задание:
Значения переменных X, Y, Z поменять местами так, чтобы они оказались упорядоченными по убыванию.
Поздно парни уже всё сделали.
Kastaneda
Форумчанин
Эксперт С++
4470 / 2832 / 224
Регистрация: 12.12.2009
Сообщений: 7,202
Записей в блоге: 1
Завершенные тесты: 1
13.11.2012, 19:40     Перегнать с паскаля в С++ #9
Есть же такие вещи. Зачем руками перегонять?
Somebody
2781 / 1595 / 143
Регистрация: 03.12.2007
Сообщений: 4,179
Завершенные тесты: 1
13.11.2012, 20:37     Перегнать с паскаля в С++ #10
Цитата Сообщение от Kastaneda Посмотреть сообщение
Есть же такие вещи. Зачем руками перегонять?
Такие вещи, даже если они работают, не исправят "intraer" и расстановку скобок в "not (x < y and y < z)".
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.11.2012, 20:43     Перегнать с паскаля в С++
Еще ссылки по теме:

С паскаля на с++ C++
С паскаля в С++ C++
C++ С Паскаля на С++
C++ Перегнать с Pascal на C++
Как звуковую волну перегнать из аудиофайла в массив? C++

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

Или воспользуйтесь поиском по форуму:
Kastaneda
Форумчанин
Эксперт С++
4470 / 2832 / 224
Регистрация: 12.12.2009
Сообщений: 7,202
Записей в блоге: 1
Завершенные тесты: 1
13.11.2012, 20:43     Перегнать с паскаля в С++ #11
Да разработчики вроде пишут, что работает

Цитата Сообщение от Somebody Посмотреть сообщение
не исправят "intraer" и расстановку скобок в "not (x < y and y < z)".
Паскаля не знаю, поэтому ни чего сказать не могу.
Yandex
Объявления
13.11.2012, 20:43     Перегнать с паскаля в С++
Ответ Создать тему
Опции темы

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