Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
soho
1

Нужно перевести код из Java в Pascal:

17.10.2013, 20:19. Просмотров 1657. Ответов 3
Метки нет (Все метки)

Нужно перевести код из Java в Pascal:
Java
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Import java.util.*;
class Main
{public static void main(String[]args)
{Scanner sc=new Scanner(System.in);
int x=sc.nextInt();int k;int o=0;int z=0;
k=0;
while (x!=0)
{o=o+1;
for (int i= 2;i<=Math.round(Math.sqrt(x));i++){
if (x%i==0) 
k=k+1;
} 
if ((k==0) & (x!=1)) 
z=o;
k=0;
x=sc.nextInt();
}
System.out.print(z);
}}
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2013, 20:19
Ответы с готовыми решениями:

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record ...

Нужно перевести код из с++ в pascal
#include &lt;iostream&gt; #include &lt;ctime&gt; #include &lt;cmath&gt; using std::cout; using std::cin;...

перевести из java в pascal
def crystalSquaresatX(m,x): if m &gt;= 1: power = 5 ** (m-1) location = x //...

Перевести код с Си на Pascal
Не знаю куда именно писать, поэтому решил написать тут, помогите перевести код на Pascal ...

3
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28017 / 15743 / 972
Регистрация: 15.09.2009
Сообщений: 67,812
Записей в блоге: 78
17.10.2013, 20:21 2
1) называйте темы информативно.
2) используйте тегы выделения кода - кнопочки над окном ответа.
0
3018 / 1906 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
17.10.2013, 20:48 3
Ты лучше условие напиши. Здесь не каждый знает Java.
0
Супер-модератор
5475 / 2494 / 1291
Регистрация: 04.03.2013
Сообщений: 5,495
Записей в блоге: 1
17.10.2013, 21:23 4
Согласно синтаксису Java и Pascal будет так! Семантику не проверял.
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
var
  x, o, z, k, i : integer;
begin
  o := 0;
  z := 0;
  readln(x);
  k := 0;
  while x <> 0 do
  begin 
    inc(o);
    for i := 2 to round(sqrt(x)) do
    begin
      if x mod i = 0 then
        inc(k)
    end;
    if (k = 0) and (x <> 1) then
    begin
      z := o;
      k := 0;
      readln(x)
    end;
    writeln(z)
  end
end.
Добавлено через 23 минуты
Извиняюсь неправильно. Правильно вот:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  x, o, z, k, i : integer;
begin
  o := 0;
  z := 0;
  readln(x);
  k := 0;
  while x <> 0 do
  begin 
    inc(o);
    for i := 2 to round(sqrt(x)) do
    begin
      if x mod i = 0 then
        inc(k)
    end;
    if (k = 0) and (x <> 1) then z := o;
    k := 0;
    readln(x);
    writeln(z)
  end
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2013, 21:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перевести код из С в Pascal
Здравствуйте! Помогите пожалуйста перевести перевести код из С в Паскаль. В С никак не шарю......

Перевести код C++ на Pascal
Вот код на C++,надо переделать на Pascal #include &lt;stdio.h&gt; #include &lt;string.h&gt; char...

Перевести код из C в Pascal
Доброго времени суток!Помогите перевести код из C в паскаль,заранее спасибо #include &lt;iostream&gt;...

Перевести код из С++ в Pascal
#include &lt;iostream.h&gt; #include &lt;math.h&gt; #include&lt;stdlib.h&gt; #include &lt;time.h&gt; void main() { ...


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

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

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