Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
C++ После ввода с клавиатуры произвольного строки выдать на экран протокол о количестве вхождений каждого символа. В протоколе символы расположить по алфа После ввода с клавиатуры произвольного строки выдать на экран протокол о количестве вхождений каждого символа. В протоколе символы расположить по алфавиту, отдельными группами для различных алфавитов, другие символы расположить последними; символы не повторять. На С++. Помогите пожалуйста сделать. Вообще не могу понять как ее делать. Заранее спасибо. https://www.cyberforum.ru/ cpp-beginners/ thread1034250.html C++ Классы, наследование
Доброго времени суток! Объясните пожалуйста, как работает операция "::" на примере этой программы. И работу конструкции Time::Time() : TimeBase() main.cpp #include <stdio.h> #include <stdlib.h> #include <locale.h> #include <iostream>
C++ Определить пересекается ли парабола и прямая https://www.cyberforum.ru/ cpp-beginners/ thread1034235.html
Определите, пересекается ли парабола y=cx^2+dx+f и прямая y=ax+b . При положительном ответе найти точки пересечения. Заранее благодарен.
C++ И что делать дальше?Поделитесь опытом Итак вопрос немного необычного характера. Дела обстоят так: 1) В университете нам вообще не преподают нормально програмирование 2)Я уже выучила хорошо синтаксис С++ 3)Но синтаксис этот не применение. Из этого вытекает вопрос...как развивать свои умения програмировать на этом языке? Задания вроде "создайте иерархию классов линия - прямоугольник- куб" и " напишите программу которая добавляет... https://www.cyberforum.ru/ cpp-beginners/ thread1034234.html
Вычислить сумму положительных чисел, кратных 3 и не кратных 5 C++
Не могу сделать прогу на c++,можете,пожалуйста,сделать ее для меня? Вводится последовательность чисел признак окончания 0,вычеслить сумму полож. чисел кратных 3 и не кратных 5.
C++ задачка на декодирование адреса 3 портов) вообщем есть 3 порта, у них может быть 3 состояния, G P U - соответственно: земля, питание и unconnect, соответственно надо привести это к след виду, т.е. преобразовать... GGG 0x70 GGU 0x72 GUG 0x74 GUU 0x76 итд вот я с таким заданием сталкиваюсь впервые, как это сделать лучше мб кто подскажет или хотя бы в каком направлении копать.. https://www.cyberforum.ru/ cpp-beginners/ thread1034208.html
C++ Отредактировать заданное предложение, удаляя из него те слова, которые встречаются в предложении заданное число раз https://www.cyberforum.ru/ cpp-beginners/ thread1034207.html
Отредактировать заданное предложение, удаляя из него те слова, которые встречаются в предложении заданное число раз.
C++ Сформаировать вектор из номеров строк матрицы
Вот задача Для каждой из заданных прямоугольных матриц размера N*M сформировать вектор из номеров тех строк, которые не имеют нулевых элементов . Результат вывести на экран . ........Не знаю как решать задачу Помогите пожалуйста.
C++ задача про графы Написать программу отыскания кратчайших путей между всеми парами вершин ориентированного графа по его списковому представлению https://www.cyberforum.ru/ cpp-beginners/ thread1034196.html C++ Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а https://www.cyberforum.ru/ cpp-beginners/ thread1034191.html
Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а. Помогите пожалуйста сделать. Заранее спасибо
C++ Арифметическая прогрессия
Помогите, пожалуйста, решить задачку. Дан бинарный файл, содержащий числа а1, b1, a2, b2... . Каждая пара чисел a и b определяет числитель и знаменатель натуральной дроби a/b. Проверить, образуют ли дроби арифметическую прогрессию. По результатам проверки вывести на экран соответствующее сообщение. Спасибо. :)
C++ Работа с классами. Замена отрицательных элементов на 0 Доброго времени суток, буду признателен за помощь. Есть готовое решение, но без использования классов, помогите доработать задачу. Составить программу замены всех отрицательных элементов массива на ноль с использованием классов. #include <iostream> #include <stdlib.h> #include <iomanip> #include <ctime> #include <conio.h> #define n 10 https://www.cyberforum.ru/ cpp-beginners/ thread1034160.html
0 / 0 / 1
Регистрация: 22.09.2013
Сообщений: 48
0

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

09.12.2013, 13:22. Показов 1762. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Привет всем!!!Помогите перевести с паскаля на С++
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.


Вернуться к обсуждению:
процедура RectPS (перевести с паскаля) C++
0
Лучшие ответы (1)
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2013, 13:22
Готовые ответы и решения:

Перевести с паскаля на C++
помогите перевести с паскаля на C++ , очень надо.:) var n,i,j,k,l:longint; begin readln(n);...

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

Перевести с Паскаля на С++
Помогите, пожалуйста! Переведите код с Паскаля на С++!! Срочно!! program ghost; uses ...

перевести в си++ из паскаля
var n:longint; i,c:integer; s:string; A:array of boolean; begin write('Введите N:...

1
09.12.2013, 13:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2013, 13:22
Помогаю со студенческими работами здесь

Перевести с Паскаля на C++
как заменить этот же код на С++ ?? const nmax = 100; type arr = array of real; var a:arr;...

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

Перевести с Паскаля на С++
Здравствуйте! Можете помочь, мне надо перевести код с Паскаля на С++ (код паскаля на фото). Вот...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru