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

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

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

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

17.06.2013, 15:09. Просмотров 193. Ответов 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.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2013, 15:09
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевод паскаля в си, или решение задачи (C++):

Перевод задачи паскаля на С++ - 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++
Доброго времени суток. Помогите перевести программу из паскаля в СИ. 1 программа: Program oblast; uses crt; var a,b,z:real;...

Перевод из Паскаля в C++ - C++
Переведите программу из Паскаля в С++, пожалусйта Вот код : const nmax=100; var a: array of integer; i,j,n,m,min:...

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.06.2013, 15:09
Привет! Вот еще темы с ответами:

Перевод с Паскаля на С++ - C++
Кому не трудно. Помогите перевести пару задач несложных. 1 var a,b,c,tmp:real; begin write('Введите три числа A,B,C='); ...

Перевод с Паскаля в С++ - C++
Помогите перевести этот код на С++ var a,z,x,x0,x1,xk,y,y0,y1,yk,zmin,h:real; i,n:integer; begin clrscr; write(‘Ввод X0:’); ...

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

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


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

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

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