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

перевод паскаля в си, или решение задачи - C++

Восстановить пароль Регистрация
 
Prikolshik
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 2
17.06.2013, 15:09     перевод паскаля в си, или решение задачи #1
переведите пожалуйста или решите на си++
вот задача
На экране центр круга и чтобы найти его радиус дано 3 целых чисел. Если круг не проходит через горизонтального центра экрана, то надо найти этого круга и ему линейно симметричные кругу


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
uses crt,graph;
var x,y,r,g,d:integer;
begin
clrscr;
repeat
write('radius ot 10 do 240 r=');
readln(r);
until r in [10..240];
repeat
write('x ot ',r+1,' do ',639-r,' x=');
readln(x);
until(x>r)and(x<640-r);
repeat
write('y ot ',r+1,' do ',479-r,' y=');
readln(y);
until(y>r)and(y<480-r);
if abs(y-240)<=r then
 begin
  write('Peresekaet');
  readln
 end
else
 begin
  writeln('Ne peresekaet');
  write('Press Enter');
  readln;
  initgraph(g,d,' ');
  line(0,240,640,240);
  circle(x,y,r);
  circle(x,480-y,r);
  readln
 end;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2013, 15:09     перевод паскаля в си, или решение задачи
Посмотрите здесь:

C++ Помогите решить две простые задачи(перевод из десятичной с. с в двоичную и полное решение квадратного уравнения)
Перевод с паскаля на С++ C++
Перевод из Паскаля в С++ C++
C++ Перевод с Паскаля на С++
C++ Перевод из паскаля в с++
Перевод с Паскаля на С++ C++
Перевод с паскаля в с++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 11:07. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru