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

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

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

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

09.12.2013, 13:22. Просмотров 439. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2013, 13:22
Здравствуйте! Я подобрал для вас темы с ответами на вопрос процедура RectPS (перевести с паскаля) (C++):

Перевести с Паскаля на С++ - C++
const n=10; var a,b: array of integer; i,j,k,km: byte; begin writeln('Исходная матрица:'); for i:=1 to n do ...

Перевести из паскаля в C++ - C++
Перегнать из паскаля в C++. Заранее благодарю. условие: Вводится последовательность вещественных чисел, оканчивающаяся нулём, и...

перевести из паскаля в с++ - C++
program spektr; uses crt; type vect=arrayof integer; var f,g:vect; j,i,n:integer; BEGIN clrscr; write('n=');...

Перевести с паскаля на С++ - C++
Var s,s1:string; i,k:byte; Begin write('Введите строку: ');readln(s); k:=0;s1:=''; For i:=Length(s) downto 1 do ...

Перевести из паскаля в c++ - C++
собственно вот паскалевский код, тут через файлы. На с++ надо через ввод/вывод. var N:integer; E:integer; En1,En2:integer; ...

перевести с Паскаля в с++ - C++
Var s:string; i,k:integer; b:boolean; Begin write('Введите строку: ');readln(s); if Length(s) in then k:=1 else...

1
Bino321
2 / 2 / 0
Регистрация: 22.11.2013
Сообщений: 33
09.12.2013, 17:48 #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. условие задачи не читал, просто перевел код)
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2013, 17:48
Привет! Вот еще темы с ответами:

Перевести с Паскаля на С++ - C++
Program Proc; procedure MinMax(var A,B:real); var temp:real; begin if (A&gt;B)then begin temp:=A; A:=B; B:=Temp;

Перевести с паскаля на С++ - C++
Program p1; Var x,i,n:integer; Begin Write ('n= '); Read (n); x:=10; i:=0; repeat if (n div x) &lt;&gt; 0 then...

Перевести из Паскаля в с++ - C++
Народ помогите код переделать в с++ пожалуууууууууйста var i, j, k: integer; p: boolean; s1, s2: string; begin ...

Перевести с паскаля на си - C++
Здравствуйте,помогите пожалуйста перевести с паскаля на си var s: string; i: byte; sum,c,k,max: integer; begin sum:=0;...


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

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

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