Форум программистов, компьютерный форум, киберфорум
Наши страницы
Java
Войти
Регистрация
Восстановить пароль
 
Ashlott
0 / 0 / 2
Регистрация: 08.10.2012
Сообщений: 50
#1

Перевод с Паскаль на Java - Java

04.06.2013, 19:20. Просмотров 304. Ответов 0
Метки нет (Все метки)

Помогите пожалуйста перевести программу на Java.
Задание
Маршрут движения автомобиля задан в виде координат вершин ломаной.
Необходимо определить количество левых поворотов (смежные участки ломаной не лежат на одной прямой). Автомобиль начинает движение с любой точки (!!!Здесь уточнение от меня - автомобиль начинает движение из первой вершины ломаной, а вот ее координаты любые!!!).
Интерфейс программы:
входные данные:
n – количество верщин ломаной (3<=n<=20),
xi, yi – координаты каждой вершины (от 0 до 100),
выходные данные:
количество левых поворотов.


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
34
35
36
37
38
39
40
program Q; 
var
  x, y: array [1..100] of integer;
  i, sum, k, m, n, p, z: integer;
begin
  Write('Введите количество точек:');
  readln(z);
 Writeln;
  for i := 1 to z do
  begin
    write('значение x ', i, ' координаты:');
    readln(x[i]);
  end;
  Writeln;
  for i := 1 to z do
  begin
    Write('значение y ', i, ' координаты:');
    readln(y[i]);
  end;
  Writeln;
  sum := 0;
  for i := 1 to (z - 2) do
  begin
    m := (x[i + 1] - x[i]);
    n := (y[i + 1] - y[i]);
    p := (x[i + 2] - x[i + 1]);
    k := (y[i + 2] - y[i + 1]);
    if(((n > 0) and (m > 0) and (p < 0) and (k > 0))
      or ((n < 0) and (m < 0) and (p > 0) and (k < 0))
      or ((n < 0) and (m > 0) and (p > 0) and (k > 0))
      or ((n > 0) and (m < 0) and (p < 0) and (k < 0))
      or ((m = 0) and (n > 0) and (p < 0) and ((k > 0) or (k = 0)))
      or ((m = 0) and (n < 0) and (p > 0))
      or ((m > 0) and (n = 0) and (k > 0))
      or ((m < 0) and (n = 0) and (k < 0)))        
        then sum := sum + 1;
  end; 
  Write('Количество левых поворотов:');
  Write(sum);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.06.2013, 19:20
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевод с Паскаль на Java (Java):

Перевод с Паскаль на Java
Ребят, нужно на Java перевести, буду благодарна за помощь) program algoritm;...

Перевод с Паскаль на Java
Помогите пожалуйста перевести на Java. Задание: В строке, содержащей...

Перевод java.sql.date -> java.util.date?
Перевод java.sql.date -&gt; java.util.date?

Перевод из C# на Java
Пожалуйста помогите перевести прогу с C# на Java using System; using...

Перевод из C# в Java
Помогите перевести в Java public static void FareiSequence(int n) { ...

Перевод с С++ на Java
Подскажите что не так. Питаюсь перевести програму с паскаля на джава, но выдает...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2013, 19:20
Привет! Вот еще темы с решениями:

Перевод в Java
Прошу помочь перевести в Java #include &lt;iostream&gt; #include &lt;ctime&gt; #include...

Перевод с c++ на java
Собственно весь код на c++ #include &lt;fstream&gt; #include &lt;stdio.h&gt; using...

Перевод мануалов по Java
Всем привет.Прошу прощения если не туда влепил тему.Ситуация такая у меня есть...

Перевод с Pascal на Java
Помогите пожалуйста перевести на Java, 2 программы. program Vector; Const...


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

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

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