Перевод кода c языка Pascale в язык PHP, Java and JavasScript

@Javlonkhan · Регистрация: 30.09.2014

Студворк — интернет-сервис помощи студентам

Всем привет!!! Я очень извиняюсь. Вот уже три дня подряд не могу перевести этот код с языка Pascale, в языки PHP и JavaScript или в Java. Буду очень признателен, если вы мне поможете или подскажите как это сделать.

Само задание заключается в следующем:
Для заданной строки символов нужно вычислить произведение входящих в эту строку целых чисел (без учета их знаков). Например, для строки "kjjjkkj2.5jkjn,,,hfd45jgfvjlkfdii10,2hf hg" произведение 2*5*45*10*2=9000.
Вот сам исходный код написанный на языке Pascale:

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
41
42
43
44
45
46
47
var sn,s:string;
 
l,k,kod:integer;
 
v,p:real;
 
begin
 
writeln('Введите строку');
 
readln(s);
 
l:=length(s);
 
p:=1; k:=1;
 
repeat
 
sn:='';
 
while (s[k]>='0')and(s[k]<='9')and(k<=l) do
 
begin
 
sn:=sn+s[k];
 
k:=k+1;
 
end;
 
if sn<>'' then
 
begin
 
val(sn,v,kod);
 
p:=p*v;
 
end;
 
k:=k+1;
 
until k>l;
 
writeln(' p=',p);
 
end

KOPOJI · 30.09.2014, 22:27

Ну вы прям вообще четко попали в нужный раздел, в разделе C++, конечно же, напишут код и на пыхе, и на жабоскрипте, и на жабе, да и вообще на всем, что только угодно - здесь обитают только суровые крестоносцы, знающие все и обо всем!

Добавлено через 9 минут

PHP
1
2
3
4
5
6
$str = 'kjjjkkj2.5jkjn,,,hfd45jgfvjlkfdii10,2hfhg';
$mul = -1;
foreach($str as $c)
    if(is_numeric($c))
        $mul *= (int) $c;
echo -1 !== $mul ? -$mul : 'Числа не найдены';

JavaScript
1
2
3
4
5
6
var str = 'kjjjkkj2.5jkjn,,,hfd45jgfvjlkfdii10,2hfhg',
    mul = -1
for(var i = 0, cnt = str.length; i < cnt; ++i)
    if(!isNaN(str[i]))
        mul *= str[i];
document.write(-1 !== mul ? -mul : 'Числа не найдены');

Java
1
2
3
4
5
6
7
8
9
public static void main(String[] args)
{
    String str = "kjjjkkj2.5jkjn,,,hfd45jgfvjlkfdii10,2hfhg";
    int mul = -1;
    for(char c: str)
        if(Character.isDigit(c))
            mul *= c - '0';
    System.out.println(-1 != mul ? -mul : "Числа не найдены");
}

Ничего не проверял, могут быть ошибки.

@Javlonkhan · 30.09.2014, 22:36 **[ТС]**

Спасибо за совет... Я сейчас всё исправлю.

Добавлено через 6 минут
Спасибо Большое за помощь. Но мне же нужно по заданию вытащить числа из строки символов а затем найти их произведение. Но тут же только по Вашему коду происходит только проверка и поиск чисел, не так ли???

KOPOJI · 30.09.2014, 22:40

вы для начала определитесь с выбранным ЯП. Клонировать это на трех языках (или на четырех, с учетом и текущего раздела?) мне лень

@yeng · 30.09.2014, 22:47

Не по теме:

Сообщение от KOPOJI

здесь обитают только суровые крестоносцы, знающие все и обо всем!

:drink: в цитаты!

@_Ivana · 30.09.2014, 22:49

Да, насчет раздела "крестоносцев обо всем" KOPOJI тонко под~~шут~~метил

Жаль на Haskell не надо, а то меня вышеупомянутый модератор за него из этого раздела гоняет

ЗЫ KOPOJI, насколько я не знаю Пыху и Жабу, но мне кажется (очень даже кажется), что у вас не числа а цифры перемножаются. Зато все

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

ЗЗЫ пока писал, фразу про крестоносцев уже отметили и несут в цитаты

А что, видел я тут одного сурового крестоносца - он ассемблерные вставки очень ловко в С++ код интегрировал и побеждал оппонентов нереальным быстродействием.

KOPOJI · 30.09.2014, 23:08

Сообщение от _Ivana

что у вас не числа а цифры перемножаются

да, вы правы..

PHP
1
2
$str = 'kjjjkkj2.5jkjn,,,hfd45jgfvjlkfdii10,2hfhg';
echo preg_match_all('~\\d+~', $str, $matches) ? array_product($matches[0]) : 'Числа не найдены';

Добавлено через 4 минуты

JavaScript
1
2
3
4
5
6
7
8
9
10
11
12
var str =prompt('Введите строку', ''),
    mul = -1
for(var i = 0, tmp, cnt = str.length; i < cnt; ++i)
{
    if(isNaN(str[i]))
        continue;
    tmp = ''
    while(i < cnt && !isNaN(str[i]))
        tmp += str[i++]
    mul *= tmp;
}
document.write(-1 !== mul ? -mul : 'Числа не найдены');

@Eva Rosalene · 30.09.2014, 23:21

На JS скорее так:

JavaScript
1
2
var str = '123daq123cdw56';
document.write(/\d/.test(str) ? str.match(/\d+/g).reduce(function (p, e){return p*e;}, 1) : "Числа не найдены");

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Javlonkhan 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 4
	30.09.2014, 22:36 [ТС]
	Спасибо за совет... Я сейчас всё исправлю. Добавлено через 6 минут Спасибо Большое за помощь. Но мне же нужно по заданию вытащить числа из строки символов а затем найти их произведение. Но тут же только по Вашему коду происходит только проверка и поиск чисел, не так ли??? 0

KOPOJI Почетный модератор 16844 / 6724 / 880 Регистрация: 12.06.2012 Сообщений: 19,967
	30.09.2014, 22:40
	вы для начала определитесь с выбранным ЯП. Клонировать это на трех языках (или на четырех, с учетом и текущего раздела?) мне лень 0

@_Ivana 4949 / 2289 / 287 Регистрация: 01.03.2013 Сообщений: 5,990 Записей в блоге: 32
	30.09.2014, 22:49
	Да, насчет раздела "крестоносцев обо всем" KOPOJI тонко под~~шут~~метил Жаль на Haskell не надо, а то меня вышеупомянутый модератор за него из этого раздела гоняет ЗЫ KOPOJI, насколько я не знаю Пыху и Жабу, но мне кажется (очень даже кажется), что у вас не числа а цифры перемножаются. Зато все Правда, любой встреченный ноль загубит всю картину... ЗЗЫ пока писал, фразу про крестоносцев уже отметили и несут в цитаты А что, видел я тут одного сурового крестоносца - он ассемблерные вставки очень ловко в С++ код интегрировал и побеждал оппонентов нереальным быстродействием. 0