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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ После ввода с клавиатуры произвольного строки выдать на экран протокол о количестве вхождений каждого символа. В протоколе символы расположить по алфа http://www.cyberforum.ru/cpp-beginners/thread1034250.html
После ввода с клавиатуры произвольного строки выдать на экран протокол о количестве вхождений каждого символа. В протоколе символы расположить по алфавиту, отдельными группами для различных алфавитов, другие символы расположить последними; символы не повторять. На С++. Помогите пожалуйста сделать. Вообще не могу понять как ее делать. Заранее спасибо.
C++ Классы, наследование Доброго времени суток! Объясните пожалуйста, как работает операция "::" на примере этой программы. И работу конструкции Time::Time() : TimeBase() main.cpp #include <stdio.h> #include <stdlib.h> #include <locale.h> #include <iostream> http://www.cyberforum.ru/cpp-beginners/thread1034240.html
Определить пересекается ли парабола и прямая C++
Определите, пересекается ли парабола y=cx^2+dx+f и прямая y=ax+b . При положительном ответе найти точки пересечения. Заранее благодарен.
C++ И что делать дальше?Поделитесь опытом
Итак вопрос немного необычного характера. Дела обстоят так: 1) В университете нам вообще не преподают нормально програмирование 2)Я уже выучила хорошо синтаксис С++ 3)Но синтаксис этот не применение. Из этого вытекает вопрос...как развивать свои умения програмировать на этом языке? Задания вроде "создайте иерархию классов линия - прямоугольник- куб" и " напишите программу которая добавляет...
C++ Вычислить сумму положительных чисел, кратных 3 и не кратных 5 http://www.cyberforum.ru/cpp-beginners/thread1034219.html
Не могу сделать прогу на c++,можете,пожалуйста,сделать ее для меня? Вводится последовательность чисел признак окончания 0,вычеслить сумму полож. чисел кратных 3 и не кратных 5.
C++ задачка на декодирование адреса 3 портов) вообщем есть 3 порта, у них может быть 3 состояния, G P U - соответственно: земля, питание и unconnect, соответственно надо привести это к след виду, т.е. преобразовать... GGG 0x70 GGU 0x72 GUG 0x74 GUU 0x76 итд вот я с таким заданием сталкиваюсь впервые, как это сделать лучше мб кто подскажет или хотя бы в каком направлении копать.. подробнее

Показать сообщение отдельно
dmitriykladov95
0 / 0 / 0
Регистрация: 22.09.2013
Сообщений: 48

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

09.12.2013, 13:22. Просмотров 422. Ответов 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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru