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

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

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

с паскаля записать на с++ - C++

22.01.2014, 23:38. Просмотров 206. Ответов 4
Метки нет (Все метки)

Описать функцию Min3(A,B,C) вещественного типа, находящую минимальное из трех вещественных чисел A, B и C. С помощью этой функции найти минимальные из наборов (A,B,C), (A,B,D), (A,C,D), если даны числа A, B, C, D

это условие.
ниже решение на паскале.


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program min;
var a,b,c,d:real;
function min3(a,b,c:real):real;
var min:real;
begin
if a>b then min:=b else min:=a;
if min<c then min:=c;
min3:=min;
end;
begin
writeln('‚ўҐ¤ЁвҐ a,b,c,d');
readln(a,b,c,d);
writeln(min3(a,b,c));
writeln(min3(a,b,d));
writeln(min3(a,c,d));
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.01.2014, 23:38
Здравствуйте! Я подобрал для вас темы с ответами на вопрос с паскаля записать на с++ (C++):

из паскаля в с++ - C++
товарищи помогите плиз перевести код из паскаля в с++))) program fg; var A:array of integer; n,i,j:integer; procedure...

С паскаля на с++ - C++
Помогите переписать код с паскаля на с++. вот код: var a:array of longint; k, n, t, i:longint; begin readln (n); ...

из паскаля в C++ - C++
3)Даны два действитьельных числа. Заменить первое число нулем, если оно меньше или равно второму и оставить числа без изменения в противном...

С Паскаля на С++ - C++
program Matrix25; var MAx,Sum,num,j,i,M,N:integer; a: array of integer; begin // Ввод данных writeln('Введите числа M (M&lt;=10)...

С паскаля на с++ - C++
Приветствую всех! Я запустил с++ и мне на зачет нужна вроде простая программа, знаю ее на паскале: var f,g:file of...

Из Паскаля на СИ - C++
const c = 9; var a, b, x, y: real; begin write('Введите x: '); readln(x); b := x + c * c; a := exp(ln(abs(92))...

4
contedevel
57 / 55 / 8
Регистрация: 07.10.2012
Сообщений: 598
22.01.2014, 23:47 #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
double min3 (double a, double b, double c) {
double min;
if(a > b) {
min = b;
}
else {
min = a;
}
if(min < c) {
min = c;
}
return min;
}
1
cooller
565 / 533 / 120
Регистрация: 25.12.2013
Сообщений: 1,456
22.01.2014, 23:52 #3
Iren1,
Цитата Сообщение от Iren1 Посмотреть сообщение
Описать функцию Min3(A,B,C) вещественного типа, находящую минимальное из трех вещественных чисел A, B и C. С помощью этой функции найти минимальные из наборов (A,B,C), (A,B,D), (A,C,D), если даны числа A, B, C, D
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <iostream>
 
double Min3(double a,double b,double c)
{
    double min;
    min = a>b?b:a;
    if(c<min)
        min = c;
    return min;
}
int main()
{
    double a,b,c,d;
    std::cout<<"Enter a,b,c,d:";
    std::cin>>a>>b>>c>>d;
    std::cout<<Min3(a,b,c)<<std::endl;
    std::cout<<Min3(a,b,d)<<std::endl;
    std::cout<<Min3(a,c,d)<<std::endl;
 
    return 0;
}
Добавлено через 1 минуту
Iren1, contedevel, Насколько я понял код на паскале не верен.
Если нужно найти минимальный элемент среди 3х чисел, то вместо
Pascal
1
if min<c then min:=c;
нужно
Pascal
1
if min>c then min:=c;
1
contedevel
57 / 55 / 8
Регистрация: 07.10.2012
Сообщений: 598
22.01.2014, 23:55 #4
Да, вы правы, я не читал код, просто переписал дословно)
0
Iren1
0 / 0 / 0
Регистрация: 20.01.2014
Сообщений: 91
23.01.2014, 00:14  [ТС] #5
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include <stdio.h>
#include <iostream>
#define min2(a, b) (a) > (b)? (b) : (a)
#define min3(a, b, c) min2((a), min2((b), (c)))
int main()
{
    float a,b,c,d;
    printf("vvedite A=");
    scanf_s("%f",&a);
    printf("vvedite B=");
    scanf_s("%f",&b);
    printf("vvedite C=");
    scanf_s("%f",&c);
    printf("vvedite D=");
    scanf_s("%f",&d);
 
    printf("Nabor (A,B,C) Min: %.3f\n", min3(a, b, c));
    printf("Nabor (A,B,D) Min: %.3f\n", min3(a, b, d));
    printf("Nabor (A,C,D) Min: %.3f\n", min3(a, c, d));
    system("pause");
    return 0;
}
я так написала)

Добавлено через 15 минут
спасибо вам!
0
23.01.2014, 00:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.01.2014, 00:14
Привет! Вот еще темы с ответами:

C Паскаля на С++ - C++
помогите пожалуйста переделать это на С++ язык...очень нужно { На интервале (1000 ; 9999) найти все простые числа, каждое из...

Из паскаля в С++ - C++
Ребят, помогите, пожалуйста, перевести из паскаля в С++, буду благодарен за помощь. Заранее спасибо. program example1; var ...

Из Паскаля в С++ - C++
Здравствуйте. Помогите переписать этот код на C++. Сам пробовал, но не получается. var a,b:string; begin assign(input,'input.txt');...

Из паскаля в С++ - C++
Начал С++ недавно изучать. Школе писал на паскале. Вот исходник никак немогу перевести на С++. Через for &amp; while по провал не получается....


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

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

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