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

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

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

процедура RectPS (перевести с паскаля) - C++

09.12.2013, 13:22. Просмотров 406. Ответов 1
Метки нет (Все метки)

Привет всем!!!Помогите перевести с паскаля на С++
rectPS(x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1, y1, x2, y2 — входные, P и S — выходные параметры). В качестве результирующего значения функция должна возвращать истину, если прямоугольник не является вырожденным (т.е. одна из его сторон имеет нулевую длину) и ложь – в противном случае. С помощью этой процедуры найти периметры и площади трех прямоугольников с данными противоположными вершинами.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program Prog5;
 var P, S, x1, y1, x2, y2:real;
 Procedure RectPS(x1, y1, x2, y2:real; var P, S:real); 
begin P:=(abs(x1-x2)+abs(y1-y2))*2; 
S:=abs(x1-x2)*abs(y1-y2); 
end; /////// основная программа /////////////  
begin Writeln('Введите координаты 1 прямоугольника (x1,y1,x2,y2)');
 Read(X1);Read(Y2);Read(X2);Read(Y2); 
RectPS(x1,y1,x2,y2,P,S);
 Writeln('Периметр и площадь 1 прямоугольника ',P,' ',S); 
 Writeln('Введите координаты 2 прямоугольника (x1,y1,x2,y2)'); 
Read(X1);Read(Y2);Read(X2);Read(Y2); RectPS(x1,y1,x2,y2,P,S);
 Writeln('Периметр и площадь 2 прямоугольника ',P,' ',S);  
Writeln('Введите координаты 3 прямоугольника (x1,y1,x2,y2)'); 
Read(X1);
Read(Y2);
Read(X2);
Read(Y2); RectPS(x1,y1,x2,y2,P,S); 
Writeln('Периметр и площадь 3 прямоугольника ',P,' ',S); 
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2013, 13:22     процедура RectPS (перевести с паскаля)
Посмотрите здесь:

Перевести из Паскаля в с++ C++
C++ Перевести с паскаля на Си++
C++ Перевести с Паскаля на Си
C++ Перевести с Паскаля на С++
Перевести с паскаля на С++ C++
Перевести из Паскаля на С++ C++
Перевести из паскаля на c++ C++
Перевести из паскаля на c++ C++
C++ Перевести из паскаля на с++
Перевести с паскаля C++
C++ Перевести с паскаля на C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Bino321
2 / 2 / 0
Регистрация: 22.11.2013
Сообщений: 31
09.12.2013, 17:48     процедура RectPS (перевести с паскаля) #2
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
#include <iostream>
#include <math.h>
using namespace std;
void RectPS(double x1, double y1, double x2, double y2, double& P, double& S);
int main()
{
    double P, S, x1, y1, x2, y2; //непомню real целый или дробный тип (если дробный то double, если целый то int писать
 //надo вместо double)
cout<<"Введите координаты 1 прямоугольника (x1,y1,x2,y2)";
cin>>x1>>y1>>x2>>y2;
RectPS(x1,y1,x2,y2,P,S);
cout<<"Периметр и площадь 1 прямоугольника "<<P<<" "<<S<<endl;
cout<<"Введите координаты 2 прямоугольника (x1,y1,x2,y2)";
cin>>x1>>y1>>x2>>y2;
RectPS(x1,y1,x2,y2,P,S);
cout<<"Периметр и площадь 2 прямоугольника "<<P<<" "<<S<<endl;
cout<<"Введите координаты 3 прямоугольника (x1,y1,x2,y2)";
cin>>x1>>y1>>x2>>y2;
RectPS(x1,y1,x2,y2,P,S);
cout<<"Периметр и площадь 3 прямоугольника "<<P<<" "<<S<<endl;
return 0;
}
 
void RectPS(double x1, double y1, double x2, double y2, double& P, double& S)
{
P=(fabs(x1-x2)+fabs(y1-y2))*2;
S=fabs(x1-x2)*fabs(y1-y2);
}
Както так, но я ее не тестил, просто скомпилировал - запустилось.
P.S. условие задачи не читал, просто перевел код)
Yandex
Объявления
09.12.2013, 17:48     процедура RectPS (перевести с паскаля)
Ответ Создать тему
Опции темы

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