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

@Новичок8 · Регистрация: 03.05.2015

Студворк — интернет-сервис помощи студентам

помогите перевести код программы с паскаля в С++, пожалуйста!

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.

@Zoominger · 16.05.2015, 21:07

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++ она в разы сложнее, чем на Паскале.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .