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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Prikolshik
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 2
#1

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

17.06.2013, 15:09. Просмотров 191. Ответов 0
Метки нет (Все метки)

переведите пожалуйста или решите на си++
вот задача
На экране центр круга и чтобы найти его радиус дано 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++
program proc; function IsPowerN(K, N: integer): boolean; begin while K mod N = 0 do begin K := K div N; end; ...

Помогите решить две простые задачи(перевод из десятичной с. с в двоичную и полное решение квадратного уравнения) - C++
5.6Перевод из 10-й системы счисления в 2-ю 5.7Решение квадратного уравнения полное Добавлено через 2 минуты 14 секунд ...

Решение задачи с использованием while или do while - C++
Дана последовательность целых чисел, за которой следует 0. Найти сумму элементов с четными номерами из этой последовательности.

Перевод с паскаля на С++ - C++
const BASE16 = 16; var HexValue : string; Ostatok: Integer; Chastnoe: Integer; begin HexValue := ''; write( 'Введите целое...

Перевод с паскаля в С++ - C++
помогите перевести код программы с паскаля в С++, пожалуйста! Program pr1; uses crt; var i,х1,х2,y1,y2,d,m,k,n:integer; c:real; ...

Перевод с паскаля на с++ - C++
С Паскаля на С++ var n: Integer; d: Longint; begin repeat Write('Введите N : '); ReadLn(n); until n in ; n:=n div 2*2; ...

Перевод из Паскаля в с++ - C++
Задача: Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность Есть решение на...

Перевод из Паскаля в С++ - C++
const RusLit = ; EngLit = ; var Str: string; procedure StringClear(var Str: string); var ResStr: string; i:...

Перевод из Паскаля в С++ - C++
Нужно переделать задачу из Паскаля в С++Builder. Поможете? Вот само задание:Описать функцию PowerA234(A), вычисляющую вторую, третью и...

Перевод из паскаля в с++ - C++
ребятки, спасайте! нивкакую не получаецо перевести программку: Program p32; uses crt; var s:string; procedure proc(var y:string); ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru