Создание маленькой программы для расчёта нескольких значений

@Люцифер777 · Регистрация: 23.04.2009

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

Добрый день, у меня такая небольшая загвоздка, необходимо создать небольшой скрипт, который в дальнейшем можно было бы установить в смартфон в виде приложения (смартфон сенсорный на операционке Symbian^3)
Я нашёл интерпретаторы языка Python с библиотеками для смартфонов, так что надеюсь, что создать подобное и запустить возможно, к сожалению, совсем не знаком с данным языком, поэтому создал программу на языке Pascal, в программу необходимо вводить значения некоторых переменных, после чего программа выдаёт результат расчёта, самое главное реализовать это как приложение на смартфоне. Буду очень признателен за любую помощь.
Текст программы на 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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Program LVD;
uses crt;
Var a11,a12,a13,a21,a22,a23,cv01,cv02,cv1,cv2,y01,y02,y1,y2,
pr01,pr02,pr1,pr2,Asr1,Asr2:Real;
Begin
clrscr;
Writeln ('Vvedite a11,a12,a13');
Readln (a11,a12,a13);
Writeln ('Vvedite cv01,y01,pro1');
Readln (cv01,y01,pr01);
Writeln ('Vvedite a21,a22,a23');
Readln (a21,a22,a23);
Writeln ('Vvedite cv02,y02,pro2');
Readln (cv02,y02,pr02);
Asr1:=(a11+a13)/2;
Asr2:=(a21+a23)/2;
If a11<a13 then y1:=y01-((a13-a11)/2)
Else If a11>a13 then y1:=y01+((a11-a13)/2)
Else y1:=y01;
If a21<a23 then y2:=y02-((a23-a21)/2)
Else If a21>a23 then y2:=y02+((a21-a23)/2)
Else y2:=y02;
If a12>Asr1 then cv1:=cv01+(a12-Asr1)
Else If a12<Asr1 then cv1:=cv01-(Asr1-a12)
Else cv1:=cv01;
If a22>Asr2 then cv2:=cv02+(a22-Asr2)
Else If a22<Asr2 then cv2:=cv02-(Asr2-a22)
Else cv2:=cv02;
If Asr1<90 then pr1:=pr01+(90-Asr1)
Else If Asr1>90 then pr1:=pr01-(Asr1-90)
Else pr1:=pr01;
If Asr2<90 then pr2:=pr02+(90-Asr2)
Else If Asr2>90 then pr2:=pr02-(Asr2-90)
Else pr2:=pr02;
Writeln ('cv1= ',cv1:1:3,' y1= ',y1:1:3,' pr1= ',pr1:1:3);
Writeln ('cv2= ',cv2:1:3,' y2= ',y2:1:3,' pr2= ',pr2:1:3);
Readln;
End.

@Wolkodav · 06.02.2014, 10:40

Люцифер777, вам на python перевести? Это не сложно, а вот уже написать приложение для другой платформы, это уже потруднее будет.
Код на питоне:

Python
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
a11, a12, a13 = map(float, raw_input("Vvedite a11, a12, a13: ").split())
cv0, y01, pr01 = map(float, raw_input("Vvedite cv01, y01, pro1: ").split())
a21, a22, a23 = map(float, raw_input("Vvedite a21, a22, a23: ").split())
cv02, y02, pr02 = map(float, raw_input("Vvedite cv02, y02, pr02: ").split())
Asr1 = (a11 + a13) / 2
Asr2 = (a21 + a23) / 2
if a11 < a13:
    y1 = y01 - (( a13 - a11) / 2)
elif a11 > a13:
    y1 = y01 + (( a11 - a13 ) / 2)
else:
    y1 = y01
If a21 < a23:
    y2 =y02 - (( a23 - a21 ) / 2)
elIf a21 > a23:
    y2 = y02 + (( a21 - a23 ) / 2)
else:
    y2 = y02
If a12 > Asr1:
    cv1 = cv01 + ( a12 - Asr1 )
elif a12 < Asr1
    cv1 = cv01 - ( Asr1 - a12 )
else:
    cv1 = cv01
If a22 > Asr2:
    cv2 = cv02 + ( a22 - Asr2 )
elIf a22<Asr2:
    cv2 = cv02 - ( Asr2 - a22 )
else:
    cv2 = cv02
If Asr1 < 90:
    pr1 = pr01 + ( 90 - Asr1 )
elIf Asr1 > 90:
    pr1 = pr01 - ( Asr1 - 90 )
else:
    pr1 = pr01
If Asr2 < 90:
    pr2 = pr02 + ( 90 - Asr2 )
elIf Asr2 > 90:
    pr2 = pr02 - ( Asr2 - 90 )
else:
    pr2 = pr02
print "cv1= ", cv1, " y1= ", y1, " pr1= ", pr1
print "cv2= ", cv2, " y2= ", y2, " pr2= ", pr2

Добавлено через 12 секунд
Мог где-то ошибится....

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

Создание маленькой программы для расчёта нескольких значений

Решение