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

Переделать с Паскаля на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Движение окружности в прямоугольнике http://www.cyberforum.ru/cpp-beginners/thread1214136.html
Здравствуйте, уважаемые форумчане! Помогите пожалуйста с задачей на графику. Нужно написать программу движения окружности в прямоугольнике. Движение происходит под некоторым углом с «отражением от...
C++ Если в последовательности из 3-х чисел есть число 7, вычислить произведение этих чисел; иначе - сумму Задача: Составить программу, в которой пользователь вводит с клавиатуры 3 числа. Если в последовательности из 3-х чисел есть число 7, то вычислить произведение этих чисел. В противном случае –... http://www.cyberforum.ru/cpp-beginners/thread1214135.html
C++ Считывание строки из потока, не удаляя символ-ограничитель
Есть ли какая-либо стандартная функция? P.S. Символ-ограничитель задается самостоятельно
Уменьшение количества циклов C++
Здрастье всем. Вопрос такой. Есть 5 вложенных циклов и тело цикла. for() for() for() for() for() {тело цикла}
C++ Граф в виде матрицы смежности и количества вершин http://www.cyberforum.ru/cpp-beginners/thread1214086.html
Переписывайте тексты в тело сообщения!!!! Всем здравствуйте. Помогите доделать код программы. Задание: Дан граф в виде матрицы смежности и количества вершин. Описать функцию выводя для каждой...
C++ Почему рандом не выходит? Уже столько примеров просмотрел здесь и все равно не доходит. Ну что здесь не так? #include <iostream> #include <cstdlib> #include <ctime> using namespace std; int row=5, col=5, tmprow,... подробнее

Показать сообщение отдельно
blond_blond
1 / 1 / 0
Регистрация: 31.03.2014
Сообщений: 43

Переделать с Паскаля на С++ - C++

22.06.2014, 00:23. Просмотров 239. Ответов 3
Метки (Все метки)

Составить неразветвленную программу на языке Turbo Pascal.

Текст программы:
Pascal
1
2
3
4
5
6
7
8
Program lab_1;
Var x ,y : real;
Begin
write( 'X = ' ) ; readln (x ) ;
y := ln (abs (( x* x )/ ( 2 *x ))) + exp (1 / 3 *ln (abs ( exp ( -1 + x) / ( sqr (tan ( x *x )) + 1 )))) ;
writeln ('y = ' ,y : 0: 2 );
readln ;
End .
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru