0 / 0 / 0
Регистрация: 03.05.2015
Сообщений: 34
1

Перевод с паскаля в С++

16.05.2015, 19:44. Показов 556. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите перевести код программы с паскаля в С++, пожалуйста!
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
Program pr1;
uses crt;
var i,х1,х2,y1,y2,d,m,k,n:integer;
c:real;
begin
clrscr;
repeat
begin
write('введите число прямоугольников от 1 до 50):');
readln(n);
clrscr;
if (n<1)or(n>50) then writeln('число введено неверно,повторите ввод');
end;
until (n>=1)and(n<=50);
c:=640/(n+(n+1));
k:=round(c);
x1:=k;
x2:=2*k;
d:=detect;
initgraph(d,m,'c:\tp\bgi');
for i:=1 to n do
begin
rectangle(x1,150,x2,200);
x1:=x2+k;
x2:=x2+k+k;
if i=n-1 then x2:=x2-1;
end;
readln; 
closegraph;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2015, 19:44
Ответы с готовыми решениями:

Перевод из Паскаля в C++
Пожалуйста помогите перевести одну функцию из Паскаля в C++. Буду очень признательна, так как очень...

Перевод из Паскаля в С++
Нужно переделать задачу из Паскаля в С++Builder. Поможете? Вот само задание:Описать функцию...

Перевод с паскаля на си
Ребят помогите поджалуйста с переводом! const r=10; n=100; type mas=array of byte; var...

Перевод с паскаля на С++
const BASE16 = 16; var HexValue : string; Ostatok: Integer; Chastnoe: Integer; begin...

1
368 / 256 / 65
Регистрация: 22.06.2010
Сообщений: 1,566
16.05.2015, 21:07 2
C++ (Qt)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <iostream>
#include <math>
 
using namespace std;
 
int main(){
int i, x1, x2, y1, y2, d, m, k, n;
float c;
while(n < 1 && n > 50){
cout << "введите число прямоугольников от 1 до 50):\n";
cin >> n;
}
c = 640/(n+(n+1));
k = round(c); //Перепроверьте, может, там ceil(), навскидку не вспомню
x1 = k;
x2 = 2*k;
//------------
return 0;
}
Смог только до 19-ой строки. Дальше - сложность - в "голом" C++ нет функций для рисования, как в Паскале, надо подключать либо OpenGL, либо альтернативу, а это на порядок сложнее (нужно как минимум окно, в котором это всё будет рендериться). Это лабораторная? Если да, то на C++ она в разы сложнее, чем на Паскале.
0
16.05.2015, 21:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2015, 21:07
Помогаю со студенческими работами здесь

Перевод с паскаля в с++
переводил код с паскаля в с++ и столкнулся с проблемой, помогите разобраться, пожалуйста!...

Перевод с Паскаля в С++
uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c:real; end; ...

Перевод с Паскаля на с++
Пусть дан файл целых чисел. Создайте файл вещественных чисел, значениями которого будут средние...

Перевод из Паскаля в C++
Здравствуйте! Помогите перевести код из Паскаля в C++. Трансляторов смотрел в гугле, так и не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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