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

Перевод с С++ на Паскаль - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Вызов функции по указателю из класса http://www.cyberforum.ru/cpp-beginners/thread1004484.html
Такой расклад. Допустим имеем код: #include <iostream> using namespace std; template <class _Tp> class my_mem_fun_t { private: void (_Tp::*_M_f)(); public:
C++ Составить блок-схему по коду Подскажите пожалуйста, я правильно в нужном месте поставил параллелограмм, где должен считываться массив? Вот задание: Одномерный массив Х(15) считать из файла *.txt (файл создать самим). Найти максимальный из отрицательных элементов и поменять его местами с последним. http://www.cyberforum.ru/cpp-beginners/thread1004471.html
C++ где ошибка
у меня такая программа для создание матриц. но условие if(j==i-1) {} не выполняется. не знаю почему. помогите разобраться #include <iostream> using namespace std; int n=5,m; int main(){ m=4*n; double Array; float G=1,H=2,C=3,A1=4; for (int i=1;i<m+1;i++)
C++ Объясните код
Пожалуйста объясните что да как в этом коде #define MAXLEN sizeof(int) * CHAR_BIT int bintoi(char *s) { int n, sign; for ( ; isspace(*s); s++) ; sign = (*s == '-') ? -1 : 1;
C++ Нахождение наибольшего общего делителя http://www.cyberforum.ru/cpp-beginners/thread1004394.html
Borland C++ Найти наибольший общий делитель двух натуральных чисел a и b.
C++ Беда с оператором DELETE Здравствуйте! Помогите плиз с проблемой.В моем классе-шаблоне(CMyClass) есть метод template<class T> void set(T t) { T* tmp = new T; for(int i = 0; i < n; i++) { tmp = mass; } delete mass; tmp = t; подробнее

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

Перевод с С++ на Паскаль - C++

11.11.2013, 16:15. Просмотров 277. Ответов 5
Метки (Все метки)

Нужно написать программу на C++, но мне удалось найти только вариант на паскале, его мы не изучали, помогите перевести.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a,b:real;
begin
writeln('Enter price: ');
readln(a);
b:=10;
b:=a/b;
if (a>1000) then
begin
writeln('Discount 10%');
a:=a-b;
write('Price with discount: ',a:2:2);
readln;
end
else
begin
write('Price: ',a:2:2);
readln;
end;
end.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru