Перевод из Paskal в PHP

@maxim_iron · Регистрация: 22.04.2016

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

Доброго времени суток!!! Помогите, пожалуйста, перевести этот код на язык PHP.

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
program kurs;
function poisk(x: real): real;
var 
f1, f2, f3: text;
mas1: array[1..100, 1..100] of real;
mas2, mas3: array[1..100] of real;
gde33: real;
string1,string2, string3: string;
k, m, i,j,gde10,code1,code2: integer;
begin
assign(f1, 'massiv.txt');
assign(f2, 'massiv1.txt');
assign(f3, 'massiv2.txt');
reset(f1);
reset(f2);
reset(f3);
for i:=1 to 33 do
  begin 
    for j:=1 to 10 do
      begin
        read(f1, mas1[i,j]);
      end;
  end;
for i:=1 to 33 do
  begin
  read(f2, mas2[i]);
  end;
for i:=1 to 10 do
  begin
  read(f3, mas3[i]);
  end;
str(x, string1);
string2:= copy(string1, 1, 3);
string3:= copy(string1, 4, 1);
 
 
val(string2, gde33, code1);
val(string3, gde10, code2);
for i:=1 to 33 do
 if (mas2[i]=gde33) then
  begin
  k:=i;
  break;
  end;
for i:=1 to 10 do
 if (mas3[i]=gde10) then
  begin
  m:=i;
  break;
  end;
poisk:=mas1[k,m];
end;
var
Up,F,P, m1,m2, s1, s2, n, y,v1,v2: real;
i, j: integer;
begin
writeln('Введите значения коэффициентов вариации v1 и v2, запас прочности n:');
readln(v1,v2,n);
writeln('Запас прочности n равен ', n);
writeln('Выразим квантиль распредения z = Up через запас прочности n.');
Up:=(n-1)/sqrt(sqr(n*v1) + sqr(v2));
writeln('Up = ', Up:3:2);
writeln('Найдем по таблице распределений Пуассона значение нормальной функции распределения Ф*.');
F:=poisk(Up);
writeln('Найденное значение: Ф* = ', F);
writeln('Рассчитаем вероятность безотказной работы (ВБР) P.');
P:=F+0.5;
writeln('ВБР: Р = ', P:3:2);
end.

@WhiteMind · 23.04.2016, 07:23

PHP
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
<?php 
header('Content-Type: text/html; charset=utf-8');
 
define( "EQ_TM_CONST" , 0.0000001 );
 
function NL() { echo "<br/>" , "\r\n"; }
function TryInput( $a ) { foreach($a as $v) { if (!strlen(trim($_REQUEST[$v]))) { return false; } } return true; }
function explodeSpaceSp( $a ) { return array_filter( array_map( "trim" , explode(" " , $a) ) , function($v) { return strlen($v); } ); }
function mapFloatSp( $a ) { return array_map( function($v) { return array_map( "floatval" , explodeSpaceSp($v) ); } , $a ); }
function fileSp( $path ) { return file($path  , FILE_IGNORE_NEW_LINES | FILE_SKIP_EMPTY_LINES); }
function poisk( $x ) {
    $mas1 = mapFloatSp( fileSp('massiv.txt'  ) );
    $mas2 = mapFloatSp( fileSp('massiv1.txt' ) );
    $mas3 = mapFloatSp( fileSp('massiv2.txt' ) );
 
    $str = (string)$x;
    $gde33 = (float)substr($str, 0, 3);
    $gde10 = (int)substr($str, 3, 1);
 
    $k = null;
    $m = null;
    foreach($mas2[0] as $i => $v) {
        if ( abs($v - $gde33) < EQ_TM_CONST ) {
            $k = $i;
            break;
        }
    }
    foreach($mas3[0] as $i => $v) {
        if ( abs($v - $gde10) < EQ_TM_CONST ) {
            $m = $i;
            break;
        }
    }
    if ( ($k === null) || ($m === null) ) { return null; }
    return $mas1[$k][$m];
}
function run() {
    $GLOBALS['result'] = '';
    ob_start();
        if ( !TryInput( array('qw' , 'v1' , 'v2' , 'n') ) ) return false;
        $v1 = @$_REQUEST['v1']; $v2 = @$_REQUEST['v2']; $n  = @$_REQUEST['n'];
        NL();
        printf('Запас прочности n равен %s', $n ); NL();
        printf('Выразим квантиль распредения z = Up через запас прочности n.'); NL();
        $Up  = ($n-1)/sqrt( pow($n*$v1 , 2) + pow($v2 , 2) );
        printf('Up = %3s' , round($Up , 2)); NL();
        printf('Найдем по таблице распределений Пуассона значение нормальной функции распределения Ф*.'); NL();
 
        if ( ($F = poisk($Up)) === null ) {
            ob_get_clean();
            return false;
        } else {
            printf('Найденное значение: Ф* = %s', $F); NL();
            printf('Рассчитаем вероятность безотказной работы (ВБР) P.'); NL();
            $P=$F+0.5;
            printf('ВБР: Р = %3s', round($P,2)); NL();
        }
    $GLOBALS['result'] = ob_get_clean();
}
run();
 
?>
 
 
<form>
    Введите значения коэффициентов вариации v1 и v2, запас прочности n:<br/>
    <input name="v1" value="<?php echo @$_REQUEST['v1']; ?>" /><br/>
    <input name="v2" value="<?php echo @$_REQUEST['v2']; ?>" /><br/>
    <input name="n"  value="<?php echo @$_REQUEST['n'];  ?>" /><br/>
    <input name="qw" type="submit" value="Расчитать" />
</form>
<?php
if ( strlen(@$result) ) { ?>
    <pre style="border: 2px solid #123432; padding: 10px; border-radius: 10px; display: inline-block;"><?php echo @$result; ?></pre>
<?php } ?>

@maxim_iron · 23.04.2016, 23:28 **[ТС]**

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

PHP
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
<?php 
header('Content-Type: text/html; charset=utf-8');
 
define( "EQ_TM_CONST" , 0.0000001 );
 
function NL() { echo "<br/>" , "\r\n"; }
function TryInput( $a ) { foreach($a as $v) { if (!strlen(trim($_REQUEST[$v]))) { return false; } } return true; }
function explodeSpaceSp( $a ) { return array_filter( array_map( "trim" , explode(" " , $a) ) , function($v) { return strlen($v); } ); }
function mapFloatSp( $a ) { return array_map( function($v) { return array_map( "floatval" , explodeSpaceSp($v) ); } , $a ); }
function fileSp( $path ) { return file($path  , FILE_IGNORE_NEW_LINES | FILE_SKIP_EMPTY_LINES); }
function poisk( $x ) {
    $mas1 = mapFloatSp( fileSp('massiv.txt'  ) );
    $mas2 = mapFloatSp( fileSp('massiv1.txt' ) );
    $mas3 = mapFloatSp( fileSp('massiv2.txt' ) );
 
    $str = (string)$x;
    $gde33 = (float)substr($str, 0, 3);
    $gde10 = (int)substr($str, 3, 1);
 
    $k = null;
    $m = null;
    foreach($mas2[0] as $i => $v) {
        if ( abs($v - $gde33) < EQ_TM_CONST ) {
            $k = $i;
            break;
        }
    }
    foreach($mas3[0] as $i => $v) {
        if ( abs($v - $gde10) < EQ_TM_CONST ) {
            $m = $i;
            break;
        }
    }
    if ( ($k === null) || ($m === null) ) { return null; }
    return $mas1[$k][$m];
}
function run() {
    $GLOBALS['result'] = '';
    ob_start();
        if ( !TryInput( array('qw' , 'v1' , 'v2' , 'n') ) ) return false;
        $v1 = @$_REQUEST['v1']; $v2 = @$_REQUEST['v2']; $n  = @$_REQUEST['n'];
        NL();
        printf('Запас прочности n равен %s', $n ); NL();
        printf('Выразим квантиль распредения z = Up через запас прочности n.'); NL();
        $Up  = ($n-1)/sqrt( pow($n*$v1 , 2) + pow($v2 , 2) );
        printf('Up = %3s' , round($Up , 2)); NL();
        printf('Найдем по таблице распределений Пуассона значение нормальной функции распределения Ф*.'); NL();
 
        if ( ($F = poisk($Up)) === null ) {
            ob_get_clean();
            return false;
        } else {
            printf('Найденное значение: Ф* = %s', $F); NL();
            printf('Рассчитаем вероятность безотказной работы (ВБР) P.'); NL();
            $P=$F+0.5;
            printf('ВБР: Р = %3s', round($P,2)); NL();
        }
    $GLOBALS['result'] = ob_get_clean();
}
run();
 
?>
 
 
<form>
    Введите значения коэффициентов вариации v1 и v2, запас прочности n:<br/>
    <input name="v1" value="<?php echo @$_REQUEST['v1']; ?>" /><br/>
    <input name="v2" value="<?php echo @$_REQUEST['v2']; ?>" /><br/>
    <input name="n"  value="<?php echo @$_REQUEST['n'];  ?>" /><br/>
    <input name="qw" type="submit" value="Расчитать" />
</form>
<?php
if ( strlen(@$result) ) { ?>
    <pre style="border: 2px solid #123432; padding: 10px; border-radius: 10px; display: inline-block;"><?php echo @$result; ?></pre>
<?php } ?>

Cпасибо огромное! Но как мне проверить его =D в обычный документ html в <body> я могу вставить твой код?

@WhiteMind · 23.04.2016, 23:36

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

Но как мне проверить его =D

проверять не нужно. все работает

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

в обычный документ html в <body> я могу вставить твой код?

скопировать в файла, и запустить его на сервере с php

@JimUSA · 24.04.2016, 13:01

maxim_iron, Скачайте веб-сервер, например Open Server (хостинг),
или воспользуйтесь сервисом, который даёт возможность проверить php скрипт.

@maxim_iron · 24.04.2016, 16:05 **[ТС]**

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

maxim_iron, Скачайте веб-сервер, например Open Server (хостинг),
или воспользуйтесь сервисом, который даёт возможность проверить php скрипт.

спасибо!) но я уже разобрался

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@JimUSA Web Programmer 325 / 286 / 121 Регистрация: 28.09.2011 Сообщений: 1,570
	24.04.2016, 13:01
	maxim_iron, Скачайте веб-сервер, например Open Server (хостинг), или воспользуйтесь сервисом, который даёт возможность проверить php скрипт. 2