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

Описать процедуру RectPS - C++

Восстановить пароль Регистрация
 
сержи
6 / 6 / 0
Регистрация: 03.07.2010
Сообщений: 222
19.05.2011, 23:55     Описать процедуру RectPS #1
Привет всем!!!Помогите перевести с паскаля на С++

Описать процедуру RectPS(x1, y1, x2, y2, S), вычисляющую площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1, y1, x2, y2 — входные, S — выходные параметры вещественного типа). С помощью этой процедуры найти периметры и площади трех прямоугольников с данными противоположными вершинами.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
procedure RectPS(x1,y1,x2,y2:integer;var S:integer);
begin
    S:=abs(x1-x2)*abs(y1-y2);
    writeln('площадь=',S);
end;
var i:byte;
    x1,y1,x2,y2,s:integer;
begin
for i:=1 to 3 do
 begin
  repeat
  writeln('Введите координаты противоположных вершин прямоугольника ',i);
  read(x1,y1,x2,y2);
  if(x1=x2)or(y1=y2) then writeln('Это не прямоугольник, повторите ввод.');
  until(x1<>x2)and(y1<>y2);
  RectPS(x1,y1,x2,y2,s);
 end;
end.
Добавлено через 1 час 46 минут
Привет всем!!!Помогите перевести с паскаля на С++

Описать процедуру RectPS(x1, y1, x2, y2, S), вычисляющую площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1, y1, x2, y2 — входные, S — выходные параметры вещественного типа). С помощью этой процедуры найти периметры и площади трех прямоугольников с данными противоположными вершинами.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
procedure RectPS(x1,y1,x2,y2:integer;var S:integer);
begin
    S:=abs(x1-x2)*abs(y1-y2);
    writeln('площадь=',S);
end;
var i:byte;
    x1,y1,x2,y2,s:integer;
begin
for i:=1 to 3 do
 begin
  repeat
  writeln('Введите координаты противоположных вершин прямоугольника ',i);
  read(x1,y1,x2,y2);
  if(x1=x2)or(y1=y2) then writeln('Это не прямоугольник, повторите ввод.');
  until(x1<>x2)and(y1<>y2);
  RectPS(x1,y1,x2,y2,s);
 end;
end.
Если есть минутка, то переведите в С++

Добавлено через 1 час 36 минут
Плизз!!!помогите , если есть минутка

Добавлено через 2 часа 5 минут
Плизз!!!помогите , если есть минутка
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.05.2011, 23:55     Описать процедуру RectPS
Посмотрите здесь:

Описать процедуру, меняющую содержимое переменных X и Y C++
C++ Описать процедуру в С
Описать процедуру TrianglePS(a, P), вычисляющую C++
C++ Описать процедуру RectPS(x1, y1, x2, y2, P), вычисляющую периметр P прямоугольника со сторонами, параллельными осям координат, по координатам...
Описать процедуру, удаляющую в строке конечные символы C++
Описать процедуру ArrayToMatrRow C++
C++ Описать процедуру сравнения двух слов
Описать процедуру, вычисляющую периметр и площадь прямоугольника C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Onishare
30 / 30 / 5
Регистрация: 07.05.2011
Сообщений: 50
20.05.2011, 00:11     Описать процедуру 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
#include <iostream>
#include <stdlib.h>
 
using namespace std;
 
void RectPS(int x1, int y1, int x2, int y2, int& s) {
  s = abs(x1-x2) * abs(y1-y2);
  cout <<"площадь = " << s << endl;
}
 
int main() {
  for (int i = 1; i < 4; ++i) {
    do {
      cout << "Введите координаты противоположных вершин прямоугольника " << i <<": ";
      int x1, y1, x2, y2;
      cin >> x1 >> y1 >> x2 >> y2;
      if (x1==x2 || y1==y2) cout << "Это не прямоугольник, повторите ввод." << endl;
    } while (x1==x2 || y1==y2)
    int s;
    RectPS(x1, y1, x2, y2, s);
  }
  system("pause");
  return 0;
}
Yandex
Объявления
20.05.2011, 00:11     Описать процедуру RectPS
Ответ Создать тему
Опции темы

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