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

Перевод из Pascal в C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Вывести каждое слово из файла на экран http://www.cyberforum.ru/cpp-beginners/thread1063103.html
Имеется файл со следующим содержимым: 1 Иван Петров 2 Оля Семенова 3 Илья Петушко 4 Наталья Близер ........ Мне нужно считать эти данные и вывести на экран, но так, чтобы не целой строкой, а...
C++ Несистематическая ошибка на этапе компиляции #pragma hdrstop #pragma argsused #include <iostream.h> void main() { double a; int index,i_max,i_min; double max,min,sum,sum2,x; sum=sum2=0; //------------------------------------- http://www.cyberforum.ru/cpp-beginners/thread1063096.html
Сортировка массива по убыванию C++
Добрый вечер. Нужно отсортировать массив по убыванию. В гугле что то нашёл, но так как я ещё начинающий, то чужой код понимаю с трудом, тем более без комментариев. Нужно отсортировать второй массив...
nvidia cuda с++ проект C++
Нужна помощь в сборке и запуске проекта cuda с++. Код который выложу ниже осуществляет трассировку лучей на gpu. Если кто то может помочь буду очень признателен.
C++ Матрицы. Ступенчатый вид http://www.cyberforum.ru/cpp-beginners/thread1063047.html
Неправильно приводит к ступенчатому виду, когда первые элементы каждой строки равны нулю. В чем может быть проблема ? Очень нужна помощь ! Заранее благодарен. #include <string> #include...
C++ Даны заполненные очереди целых чисел p и q. Сформировать очередь r Использовать стандартные типы "очередь", определённые в библиотеке STL. Даны заполненные очереди целых чисел p и q. Сформировать очередь r. Записать в неё чётные элементы из очереди p и каждый... подробнее

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

Перевод из Pascal в C++ - C++

04.01.2014, 20:24. Просмотров 298. Ответов 1
Метки (Все метки)

Здравствуйте! Помогите,пожалуйста,перевести программу из паскаля в С++
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses crt;
var
A, B, x, y, h, n, O: real;
s: string;
cod: integer;
const
z = 0.0001;
begin
clrscr;
repeat
repeat
write('Введите начало интервала A[-100;100]=');
readln(S);
val(S, A, cod);
until (cod = 0) and (A > -100) and (A < 100);
repeat
write('Введите конец интервала B[-100;100]=');
readln(S);
val(S, B, cod);
until (cod = 0) and (B > -100) and (B < 100);
until a<>b;
if A > B then
begin
O := B;
B := A;
A := O;
end;
repeat
begin
write('введите количество разбиений H[1;50]=');
readln(S);
val(S, H, cod);
end;
until (cod = 0) and (H > 1) and (H < 50);
N := (B - A) / H;
writeln('Начало интервала=', a);
writeln('Конец интервала=', b);
Writeln('Количество разбиений=', h);
writeln('Размер шага=', n);
x:=a;
while x < b + z do
writeln('-------------------------');
begin
if x = 0 then writeln('|','x=', x:2:4, ' |не определено |') else
begin
y := ((sin(x)) / x) * (exp(-x)) * (1 + x * x * x);
writeln('|x=', x:2:4, ' |y=', y:2:4,'   |');
end;
x := x + n;
end;
writeln('------------------------');
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru