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

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

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

перевод программы - C++

02.12.2009, 20:46. Просмотров 378. Ответов 1
Метки нет (Все метки)

Заданы своими координатами N точек на плоскости и два круга ради¬у¬са¬ми R1 и R2 (R1 < R2) с центром в начале координат. Определить, сколько точек на¬ходится одновременно в обоих кругах и сколько вне их.


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
Var
  R1,R2 : real;       {Радиус окpужностей}
  N,i,k1,k2 : word;
  p1,p2 : boolean;    {Пеpеменные логического типа}
  x,y : real;         {Кооpдинаты точек}
Begin
  Write('Введите количество точек ');
  readln(N);
  Write('Введите pадиусы ');
  readln(R1,R2);
  k1:=0; {Начальное количество точек внутpи кpугов}
  k2:=0; {Начальное количество точек вне}
  for i:=1 to N do {Цикл на N повтоpов}
    begin
      write('Введите кооpдинаты ',i,'-ой точки ');
      readln(x,y);
      p1:=(x*x+y*y)<=R1*R1;
      p2:=(x*x+y*y)<=R2*R2;
  {Если пеpвое логическое выpажение истинно, k1
   увеличить на 1, иначе увеличиваем k2}
      if p1 then inc(k1) {Пpоцедуpа увеличения 
                          аpгумента на 1}
      else if not p2 then inc(k2)
    end;                    {Конец цикла}
  writeln('Пpинадлежит обоим ',k1);
  writeln('Вне кpугов ',k2);
end.

перевести из паскаля в с++ через библиотеку <stdio.h>
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2009, 20:46
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевод программы (C++):

Перевод программы на С++ - C++
program lab3; var a:array of integer; i,n,p:integer; begin p:=1; writeln(' Решение задачи '); ...

Перевод программы - C++
Здравствуйте уважаемые,пользователи CyberForum У меня возник вопрос. Вот программа: ссылки на сторонние форумы запрещены правилами ...

Перевод программы на C++ - C++
Здравствуйте друзья. Прошу вас о помощи, помогите с переводом программы с Pascal на C++. Буду неимоверно благодарен тому, кто поможет, в...

Перевод программы - C++
Если кто может перевести программу с C++ на VB6, то стучите в асю 916-291-3 В программе 101 строка. Я бы и сам перевел, но там есть...

Перевод программы - C++
var i, n, k : byte; a,b,c : real; begin readln(n); for i:=1 to n do begin ...

Перевод программы (C# -> C++) - C++
Ребят,помогите переписать программу из c# в с++ using System; using System.Collections.Generic; using System.Linq; using...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Monte-Cristo
2789 / 1375 / 30
Регистрация: 07.03.2009
Сообщений: 4,446
02.12.2009, 21:06 #2
Поищите в разделе... Месяц назад точно писал такую на С++.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2009, 21:06
Привет! Вот еще темы с ответами:

Перевод программы на С++ - C++
Доброго времени суток, дамы и господа. Нужна небольшая помощь. Пишу курсовую, сам изучаю C#. Но совершенно ничего не успеваю, а нужно еще...

Перевод программы паскаль в с++ - C++
Нужна помощь, в переводе с языка программирования паскаля в си Вот задание :Дано действительное число х, натуральное число n. Вычислить ...

Перевод программы из Pascal в C++ - C++
Здравствуйте! Помогите перевести готовую программу сделанную на Pascal'e в С++. Знания Паскаля нулевые, знания С++ - скромные,...

Перевод программы из Pascal на С++ - C++
Прошу людей которые знают Pascal и С++ перевести программу из Паскаля на С++. uses crt; const nmax=100; var a:array of integer; ...


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

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

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