0 / 0 / 0
Регистрация: 09.01.2013
Сообщений: 3
1

Написать программу и составить блок схемы

05.03.2013, 20:34. Показов 3237. Ответов 2
Метки нет (Все метки)

Даны внешние и внутренние радиусы двух колец, центры которых находятся в начале координат. Даны координаты десяти точек. В какое из колец попадет больше точек?
З.Ы.: подпрограммы обязательны
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2013, 20:34
Ответы с готовыми решениями:

составить блок-схемы, написать программу на Паскале
Значения двумерного массива задаются с помощью вложенного оператора цикла в представленном...

Задача. Составить блок-схемы алгоритма и программу для вычисления значения выражения, вводя переменную x клавиатуры
-3x+9, если x<=7(меньше или ровно если не понятно :) ) Y={ 1/(x-7), если x>0

Составить блок-схему и программу вычисления значения функции + написать программу
Прошу решить в качестве проверки. Нужно сдать в понедельник. Буду очень благодарен! Заранее...

строго по алгоритму (скриншот блок-схемы) написать программу с разными циклами
Виталий, еще раз повторяю. ВСЕ ВАРИАНТЫ программы должны ПОЛНОСТЬЮ соответствовать алгоритму....

2
S9
Волшебник
655 / 258 / 88
Регистрация: 18.12.2010
Сообщений: 545
07.03.2013, 18:43 2
будет как то так
C++
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
34
35
36
37
38
39
40
41
42
43
44
45
46
/** Даны внешние и внутренние радиусы двух колец, центры которых находятся в начале координат. Даны координаты десяти точек. В какое из колец попадет больше точек? */
 
#include <iostream>
 
int main(int argc, char **argv)
{
  double R1, R2, R3, R4;
  int count1 = 0, count2 = 0;
  double x, y;
  
  std::cout << "R1 -> "; 
  std::cin >> R1;
  
  std::cout << "R2 -> "; 
  std::cin >> R2;
  
  std::cout << "R3 -> "; 
  std::cin >> R3;
  
  std::cout << "R4 -> "; 
  std::cin >> R4;
  
  for (int i = 0; i < 10; i++)
  {
    std::cout << "x[" << i << "] -> ";
    std::cin >> x;
    std::cout << "y[" << i << "] -> ";
    std::cin >> y;
    
    if ((x*x + y*y <= R1*R1) && (x*x + y*y >= R2*R2)) count1++; /** Если точка попадает в первое кольцо, то увеличиваем счетчик */
    if ((x*x + y*y <= R3*R3) && (x*x + y*y >= R4*R4)) count2++; /** Если точка попадает второе кольцо, то увеличиваем счетчик */
  }
  
  std::cout << "Количество точек в первом кольце" << count1 << std::endl; /** выводим количесвто точек в первом кольце */
  std::cout << "Количество точек в втором кольце" << count2 << std::endl; /** выводим количесвто точек в втором кольце */
  
  if (count1 > count2)
    std::cout << "Больше точек в первом кольце";
  else
    if (count1 < count2)
      std::cout << "Больше точек в втором кольце";
    else
      std::cout << "Точек в кольцах по ровну";
      
  return 0;
}
Добавлено через 1 минуту
ой сорри, не на том языке написал, сейчас на паскаль переведу
0
S9
Волшебник
655 / 258 / 88
Регистрация: 18.12.2010
Сообщений: 545
07.03.2013, 18:56 3
Лучший ответ Сообщение было отмечено Enisferum как решение

Решение

вот так будет на паскале.. на картинке пояснения
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
{ Даны внешние и внутренние радиусы двух колец, центры которых находятся в начале координат. Даны координаты десяти точек. В какое из колец попадет больше точек? }
Var
  R1, R2, R3, R4 : Real;
  Count1, Count2 : Integer;
  x, y : Real;
  i : Integer;
Begin
  ReadLn(R1, R2); //вводим радиусы первого кольца (R1 - внутреннее, R2 - внешнее)
  ReadLn(R3, R4); //вводим радиусы второго кольца (R3 - внутреннее, R4 - внешнее)
  Count1 = 0;
  Count2 = 0;
  
  For i := 0 To 9 Do // вводим 10 координат
  Begin
    ReadLn(x, y);
    If (x*x + y*y <= R1*R1) And (x*x + y*y >= R2*R2) Then Count1 := Count1 + 1; //Если точка попадает в первое кольцо, то увеличиваем счетчик
    If (x*x + y*y <= R3*R3) And (x*x + y*y >= R4*R4) Then Count2 := Count2 + 1; //Если точка попадает второе кольцо, то увеличиваем счетчик
  End;
  WriteLn(Count1); // выводим количесвто точек в первом кольце
  WriteLn(Count2); // выводим количесвто точек в втором кольце
  If (Count1 > Count2) Then
    WriteLn('Больше точек в первом кольце')
  Else
    If (Count1 < Count2) Then
      WriteLn('Больше точек в втором кольце')
    Else
      WriteLn('Точек в кольцах по ровну');
  ReadLn;
End;
Миниатюры
Написать программу и составить блок схемы  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2013, 18:56
Помогаю со студенческими работами здесь

Составить программу из блок схемы в Basic
Всем привет. У меня просьба к вам. Помогите пожалуйста составить код из блок схемы на basik , я в...

Написать две программы и составить к ним блок-схемы алгоритма
Написать две программы и составить к ним блок-схемы алгоритма.

Написать программу и блок-схемы(матрица)
Новый вектор из количества положительных элементов каждые строки матрица. Я не знаю как &quot;из...

Написать программу данной блок схемы
Написать программу данной блок схемы


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru