Переведите с Pascal в C++

@Ол0лоша · Регистрация: 12.01.2015

Author24 — интернет-сервис помощи студентам

помогите пож с заданиями,очень нужно на завтра(
1) переведите пож в с ++ код

Pascal

var a1,b1,h1,p1,s1,a2,b2,h2,p2,s2,sp,ss:Real;
procedure Perimeter(x,y,z:Real; var p:Real);
begin
p:=x+y+2*sqrt(sqr((x-y)/2)+sqr(z));
end;
procedure Square(x,y,z:Real; var s:Real);
begin
s:=z*abs(x+y)/2;
end;
begin
Writeln('Введите два основания и высоту первой трапеции: ');
read(a1,b1,h1);
readln;
Writeln('Введите два основания и высоту второй трапеции: ');
read(a2,b2,h2);
readln;
Perimeter(a1,b1,h1,p1);
Perimeter(a2,b2,h2,p2);
Writeln('Сумма периметров = ',(p1+p2):0:2);
Square(a1,b1,h1,s1);
Square(a2,b2,h2,s2);
Writeln('Сумма площадей = ',(s1+s2):0:2);
readln;
end.

за ранее спасибо

@ir24 · 12.01.2015, 20:29

C++

# include <conio.h>
# include <stdio.h>
# include <math.h>
# include <iostream>
 
float perimetr(float x, float y, float z)
{
    float p;
    p = x + y + 2 * sqrt(((x - y) / 2)*((x - y) / 2) + z*z);
    return p;
}
 
float ploschad(float x, float y, float z)
{
    float s;
    s = z*((x + y) / 2);
    return s;
}
 
void main()
{
    setlocale(LC_ALL, "Russian");
    float a1, b1, h1, p1, s1, a2, b2, h2, p2, s2;
    
    printf("Введите два основания и высоту первой трапеции: ");
    scanf_s("%f %f %f", &a1, &b1, &h1);
    printf("Введите два основания и высоту второй трапеции: ");
    scanf_s("%f %f %f", &a2, &b2, &h2);
 
    p1=perimetr(a1, b1, h1);
    p2=perimetr(a2, b2, h2);
 
    printf("Сумма периметров = %f ", p1+p2);
 
    s1=ploschad(a1, b1, h1);
    s2=ploschad(a2, b2, h2);
 
    printf("Сумма площадей = %f ", s1 + s2);
 
    _getch();
}

@Ол0лоша · 12.01.2015, 20:52 **[ТС]**

ir24, спасибо ,но возникает ошибка "21 D:\***\main1.cpp `main' must return `int' ",после void main()

@ir24 · 12.01.2015, 20:56

У меня все работает. Попробуйте вместо void написать int

@Ол0лоша · 12.01.2015, 20:59 **[ТС]**

ir24, спасибо работает!

@Ол0лоша 2 / 2 / 0 Регистрация: 12.01.2015 Сообщений: 55
	12.01.2015, 20:52 [ТС]	3
	ir24, спасибо ,но возникает ошибка "21 D:\***\main1.cpp `main' must return `int' ",после void main() 0

@ir24 75 / 75 / 97 Регистрация: 21.12.2014 Сообщений: 185
	12.01.2015, 20:56	4
	У меня все работает. Попробуйте вместо void написать int 0

@Ол0лоша 2 / 2 / 0 Регистрация: 12.01.2015 Сообщений: 55
	12.01.2015, 20:59 [ТС]	5
	ir24, спасибо работает! 0

Переведите с Pascal в C++

Решение