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

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

Войти
Регистрация
Восстановить пароль
 
QremQ
4 / 4 / 0
Регистрация: 23.08.2009
Сообщений: 32
#1

Нужно перевести программу из Паскаля в С++ - C++

22.01.2012, 15:14. Просмотров 471. Ответов 2
Метки нет (Все метки)

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
Var
a,b,c,x: real;
Begin
clrscr;
Write('Введите первое число =');ReadLn(a);
Write('Введите вотрое число =');ReadLn(b);
Write('Введите третье число =');ReadLn(c);
if a>b then
   begin
     x:=a;a:=b;b:=x;
   end;
if b>c then
   begin
     x:=c;c:=b;b:=x;
   end;
if a>b then
   begin
     x:=a;a:=b;b:=x;
   end;
Writeln('1-',a:0:2,'  2-',b:0:2,'  3-',c:0:2);
readkey;
end.
С++ ???
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.01.2012, 15:14
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Нужно перевести программу из Паскаля в С++ (C++):

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

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

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

Нужно перевести коды программ с паскаля, в С++! - C++
Если целое число M делится нацело на целое число N, то вывести на экран частное от деления, в противном случае - сообщение ''M на N нацело...

Нужно перевести из паскаля в Си. Определить сумму положительных элементов - 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++
Помогите пожалуйста переписать этот код на язык Си++. Я просто не понимаю как его переписать. program Z2; const mx=1000; var a,b:...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 214
Регистрация: 23.11.2010
Сообщений: 3,378
Записей в блоге: 1
22.01.2012, 15:19 #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include <iostream>
#include <algorithm>
 
int main()
{
    int arr[3];
    for(int i = 0; i < 3; i++)
        std::cin>>arr[i];
    std::sort(arr, arr+3);
    for(int i = 0; i < 3; i++)
        std::cout<<arr[i]<<std::endl;
    system("pause");
    return 0;
}
0
QremQ
4 / 4 / 0
Регистрация: 23.08.2009
Сообщений: 32
22.01.2012, 16:54  [ТС] #3
Цитата Сообщение от Dekio Посмотреть сообщение
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include <iostream>
#include <algorithm>
 
int main()
{
    int arr[3];
    for(int i = 0; i < 3; i++)
        std::cin>>arr[i];
    std::sort(arr, arr+3);
    for(int i = 0; i < 3; i++)
        std::cout<<arr[i]<<std::endl;
    system("pause");
    return 0;
}
Спасибо огромное, но нужно именно использовать ввод переменных а не массив и для сортировки условие if

Добавлено через 1 час 29 минут
Долго ждал и сделал сам

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <iostream.h>
#include <conio.h>
#include <stdio.h>
int main()
{
clrscr();
float a,b,c,x;
printf("\nВведите первое число = "); scanf("%f",&a);
printf("\nВведите второе число = "); scanf("%f",&b);
printf("\nВведите третье число = "); scanf("%f",&c);
 
if(a>b) {x=a; a=b; b=x;}
if(b>c) {x=c; c=b; b=x;}
if(a>b) {x=a; a=b; b=x;}
printf("\nЧисла по возрастанию:");
printf("%3.2f  %3.2f  %3.2f",a,b,c);
cin.get();
return 0;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2012, 16:54
Привет! Вот еще темы с ответами:

Перевести программу с Паскаля на Си++ - C++
Помогите пожалуйста переписать этот код на язык Си++, не знаю как также объявляется массив :( const a=3; b=4; var x,y,u:array...

Помогите перевести программу с Паскаля на С++ - C++
function IsPowerN(K: integer; N: byte): boolean; var i: byte; res: integer; begin res := 1; //начальное значение степеня...

Перевести эту программу на С++ с паскаля - C++
Кто может перевести эту программу на С++ вот задание 1 определит колличество строк без нуле 2 сложить характеристические ряды (это...

помогите перевести программу с паскаля на С++ - C++
Ребят , помогите перевести программу с паскаля на С++ , или подскажите как написать нечто подобное. Заранее благодарен. Вот задание : ...


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

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

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