Случайные и массив и МЫ - Общие вопросы по программированию, компьютерный форум - Страница 3

сфинкс · 28.03.2023, 06:35

Универсальная программа изучения языков переведена на JavaScript
и на предыдущих страницах есть реализация на qbasic qb64 python c++ C#

Стартовать случайные
Задать или ввести с клавиатуры размер массива n
Начать массивы 1-мерный и 2-мерный учитывая n
Начать массивы результатов 1-мерный и 2-мерный

Массив1 случайные от 0 до 9: заполнение и вывод

Если элемент чётный: вычислить квадрат
иначе оставить значение как есть
и результаты поместить в другой массив
и распечатать оба массива в столбик

Сортировка пузырьковая итогового массива
вложенные циклы и обмены

Вывести сортированный итоговый массив через while

Массив 2-мерный заполнить суммами номеров столбца и строки
Если значение нечётное: возвести в квадрат
иначе оставить значение и создать ещё 2-мерный массив
и вывести на экран матрицы исходную и результат

https://rextester.com/HIQL79958
https://jdoodle.com/h/2Uh

Код:

<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta http-equiv="X-UA-Compatible" content="ie=edge">
<title>UNIVERSAL JavaScript</title> <html> <body> <noscript>Vkluch JS</noscript>

https://rextester.com/HIQL79958

https://jdoodle.com/h/2Uh

<script>

var i,j; var n=5; var d=[n],x=[n] // universe.js
document.write("<br>Massiv d v stroku<br>")

for (i=0; i<n; i++) 
{ d[i] = Math.floor(Math.random()*9) 
  document.write(d[i]+" ") 
}

document.write("<br><br>Massiv d 4etnye x=d^2<br>")
for (i=0; i<n; i++) 
  { if (d[i] %2 ==0) x[i] = d[i] * d[i]
    else x[i]=d[i]
    document.write(d[i] + "    " + x[i] + "<br>")
  }

document.write("<br>Massiv x sorting")
for (i=0; i<n-1; i++) for (j = i+1; j<n; j++) 
if (x[i]>x[j]) { temp=x[i]; x[i]=x[j]; x[j]=temp }

document.write("<br>i vyvod x 4erez while<br>")
i=0; while (i < n) { document.write(x[i] + " "); i++ }

document.write("<br><br>Massiv y summa ili ne4etnaya y=d^2<br>")

var a=[], y=[] 
for (i=0; i<n; i++) 
   { a[i]=[], y[i]=[]
     for (j=0; j<n; j++) 
         { a[i][j]=i+j 
           if (a[i][j] %2 !=0) y[i][j] = a[i][j] * a[i][j]
           else y[i][j] = a[i][j]
           document.write(y[i][j] + "\t  ") 
         }
      document.write("<br>")
   }

document.write("<br>Massiv d minimax ot:<br>")
for (i=0; i<n; i++) document.write(d[i] + " ") 
document.write("<br>") 

min = d[0]; max = d[0]; nmin=0; nmax=0
for (i=1; i<n; i++)
  { if (d[i]< min) { min=d[i]; nmin=i }
    if (d[i]> max) { max=d[i]; nmax=i }
}
document.write(min + " " + nmin + "   " + max + " " + nmax)

document.write("<br><br>Summa d i sredniy<br>")
s=0; for (i=-1; i<n-1; i++) s += d[++i] 
document.write(s + "  " + s/n + "<br>")
 
</script>

</body> </html>

JavaScript изучаю деля программы на блоки строками вида

</script>
<script>
document.write("<br>=5<br>")

и сразу видно какой блок работает

Результат работы программы:

Код:

Massiv d v stroku
6 8 4 6 2

Massiv d 4etnye x=d^2
6 36
8 64
4 16
6 36
2 4

Massiv x sorting
i vyvod x 4erez while
4 16 36 36 64

Massiv y summa ili ne4etnaya y=d^2
0 1 2 9 4
1 2 9 4 25
2 9 4 25 6
9 4 25 6 49
4 25 6 49 8

Massiv d minimax ot:
6 8 4 6 2
2 4 8 1

Summa d i sredniy
12 2.4

сфинкс · 04.04.2023, 09:09

Матрица и файл Python

Синтезировать имя файла как 2 цифры для записи и чтения

Сформировать таблицу умножения до 5*5 в 2-мерный массив

Сохранить таблицу на диск наизнанку начав с "25" =5*5

Считать таблицу в новый 2-мерный массив и вывести на экран

Особенность: qb64 считывает таблицу оформленную в файле
зато для C# & Python сохраняются 25 ячеек в столбик
иначе C# & Python из файла отдельные через табуляции
элементы в таблицу не считывают

Код:

import random # matrix.py
n = 5; a=[1,1]; y=[1,1]

a=[[(i+1)*(j+1) for i in range (n)] for j in range (n)]
y=[[0 for i in range (n)] for j in range (n)]
s = str(random.randrange(10,99))+'.txt'

for i in range (n):
    for j in range (n):
        print ("%2d" % a[i][j], end=' ') 
    print()
print()

fw = open(s, 'w')
for i in range (n,0,-1):
    for j in range (n,0,-1):
        fw.write(str(a[i-1][j-1]))
        fw.write('\n')
fw.close()

fr = open(s, 'r')
for i in range (n):
    for j in range (n):
        y[i][j]=fr.readline()
        print ("%2d" % int(y[i][j]), end=' ')
    print()
print()
fr.close()

Код:

Результат

 1  2  3  4  5
 2  4  6  8 10
 3  6  9 12 15
 4  8 12 16 20
 5 10 15 20 25

25 20 15 10  5
20 16 12  8  4
15 12  9  6  3
10  8  6  4  2
 5  4  3  2  1

сфинкс · 11.04.2023, 10:15

Матрица JavaScript

Скопировать и сохранить HTM

Код:

<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta http-equiv="X-UA-Compatible" content="ie=edge">
<title>MATRIX js JavaScript</title> 
<html> <body> <noscript>Vkluch JS</noscript>

https://rextester.com/FQF32790

<script>

var i,j, a=[], y=[]; var n=5; 
document.write("<br>")
for (i=0; i<n; i++)
  { a[i]=[], y[i]=[] 
    for (j=0; j<n; j++)
    { a[i][j]=(i+1)*(j+1);    
      document.write(a[i][j] + " ")
    } document.write("<br>")
  } document.write("<br>")

for (i=n-1; i>=0; i--)
  { for (j=n-1; j>=0; j--)
      document.write(a[i][j] + " ")
      document.write("<br>")
  } document.write("<br>")


</script>

</body> </html>

Код:

Результат

1 2 3 4 5
2 4 6 8 10
3 6 9 12 15
4 8 12 16 20
5 10 15 20 25

25 20 15 10 5
20 16 12 8 4
15 12 9 6 3
10 8 6 4 2
5 4 3 2 1

https://rextester.com/FQF32790

https://jdoodle.com/h/2Ui

сфинкс · 18.04.2023, 17:17

Прошлая страница https://www.programmersforum.ru/show...90#post1858190
включает функции на языках

с++ func.cpp и JavaScript funj.js

и сейчас функции Python
https://rextester.com/EGXCM83414

Контрольный пример при x=90 y=1322 примерно

Код:

import math # funp.py
def funp(x): # rextester.com/EGXCM83414
    rad = x * math.pi / 180
    a = x ** (1 / 4)
    b = x**(1/2) #; print (b)
    c = math.cos(rad); print(c)
    d = math.log10(x) #; print (d)
    e = math.exp(b)
    f = math.log(x,math.exp(1))    
    return a + b + c + d + e + f
 
x = 90
y = funp(x) 
print(x, y)

сфинкс · 25.04.2023, 11:11

Функции C#
rextester.com/PYG11940

Код:

using System; // funx.cs
namespace funx1 { class funx2 
{ static void Main(string[] args)
{ double x = 90; // rextester.com/PYG11940
    Console.WriteLine("{0}  {1}", x, funx(x));
    Console.ReadKey();
}

public static double funx(double x)
  { double rad,a,b,c,d,e,f,funx;
    rad = x * Math.PI / 180;
    a = Math.Pow (x,1/4);
    b = Math.Sqrt(x);  // Console.WriteLine(b);
    c = Math.Cos(rad);    Console.WriteLine(c);
    d = Math.Log10(x); // Console.WriteLine(d);
    e = Math.Exp(b);
    f = Math.Log10(b) * Math.Log(e);

    return funx = a + b + c + d + e + f;
  }
}}

сфинкс · 02.05.2023, 15:15

ФУНКЦИИ qbasic qb64

Программа Функция функций включает:
корень степень экспонента логарифмы
тригонометрия и радианы из градусов

Контрольный пример при x=90 примерно y=1322

Код:

x = 90 ' funb.bas
y = funb(x)
Print x, y
End

Function funb (x)
    rad = x * pi() / 180
    a = x ^ (1 / 4)
    b = Sqr(x) ': Print b
    c = Cos(rad): Print c
    d = Log(x) ': Print d
    e = Exp(b)
    f = Log(b) * Log(e)

    funb = a + b + c + d + e + f
End Function

сфинкс · 09.05.2023, 12:12

Ребус криптарифма альфаметик alphametic cryptarithm
где буквы заменяют цифры
решается на нескольких языках программирования
+VETKA ][ +74235
+VETKA ][ +74235
DEREVO ][ 148470

или за 5 минут переделывается на букв меньше
например УДАР + УДАР = ДРАКА 8126 + 8126 = 16252
и формула и знаки могут быть любые

Особенность: буквы крайние 0 быть не могут
что ускоряет алгоритм от +25% до +50%

Порядок букв в циклах на формулы не влияет
и возможны несколько решений или без решения

Rebus qb64 qbasic

Код:

NN=8: Dim a(NN) ' DANILIN Rebus.bas of Letters
For V=1 To 9: a(1)=V: Print V; 
  For E=0 To 9: a(2)=E ' jdoodle.com/a/6cSw
    For T=0 To 9: a(3)=T ' ВЕТКА+ВЕТКА=ДЕРЕВО
      For K=0 To 9: a(4)=K
        For A=1 To 9: a(5)=A

For R=0 To 9: a(6)=R
  For O=0 To 9: a(7)=O
    For D=1 To 9: a(8)=D

        For ii=1 To NN - 1
            For jj=ii + 1 To NN
            If a(ii)=a(jj) Then GoTo 55
        Next: Next 

    VETKA = 10000*V + 1000*E + 100*T + 10*K + A
    DEREVO=D*100000 + E*10000 + R*1000 + E*100 + V*10 + O
    If VETKA + VETKA=DEREVO Then Print: Print VETKA, DEREVO
55 Next: Next: Next: Next: Next: Next: Next: Next
End

Rebus Python

Код:

nn=8; x=[1]; ff = 0 # rebusp.py DANILIN
for i in range (0,nn+1):
    x[i]=x.append(i)

for v in range (7,10):
  x[1]=v; print(v, end='')
  for e in range (4,10): 
    x[2]=e; print(e, end='')
    for t in range (0,10): 
      x[3]=t; print(t, end=' ')
      for k in range (0,10): 
        x[4]=k
        for a in range (1,10): 
          x[5]=a
          for r in range (0,10): 
            x[6]=r
            for o in range (0,10): 
              x[7]=o
              for d in range (1,10): 
                x[8]=d

                for ii in range (1,nn-1):
                  for jj in range (ii+1,nn):
                     if x[ii] == x[jj]:
                        ff = 1

                if ff == 0: 
                   vetka = 10000*v +1000*e +100*t +10*k+a
                   derevo = d*100000+e*10000+r*1000+e*100+v*10+o
                   if vetka + vetka == derevo:
                      print(" ", vetka, derevo)
                ff=0

https://rextester.com/GAV77378
https://jdoodle.com/a/6dn5

сфинкс · 16.05.2023, 19:19

Ребус с++ Криптарифма альфаметик

+VETKA ][ +74235
+VETKA ][ +74235
DEREVO ][ 148470

Код:

#include <iostream>  // rebusc.cpp DANILIN
using namespace std; int main() 
{ setlocale (LC_ALL, "RUS"); srand(time(NULL));
int v,e,t,k,a,r,o,d,ii,jj; int nn=8; 
int x[nn+1]; int vetka, derevo; 

        for (v=1; v<=9; v++) 
{ x[1]=v; cout << v; // jdoodle.com/a/6cSs
          for (e=0; e<=9; e++) 
 { x[2]=e; for (t=0; t<=9; t++) 
  { x[3]=t; for (k=0; k<=9; k++) 
   { x[4]=k; for (a=0; a<=9; a++) 
    { x[5]=a; for (r=0; r<=9; r++) 
     { x[6]=r; for (o=0; o<=9; o++) 
      { x[7]=o; for (d=1; d<=9; d++) 
       { x[8]=d; // rextester.com/BLAZ43522

for (ii = 1; ii <= nn-1; ii++) 
for (jj = ii+1; jj <= nn; jj++) 
 if (x[ii] == x[jj]) { goto dav; }

vetka = 10000*v +1000*e +100*t +10*k+a;
derevo = d*100000+e*10000+r*1000+e*100+v*10+o;

if (vetka + vetka == derevo) 
  cout <<"\n"<< vetka <<" "<< derevo <<"\n"; 
dav:; }} }} }} }} 
system("pause");
}

http://jdoodle.com/a/6cSs

http://rextester.com/BLAZ43522

Rebus c++ Cryptarithm alphametic

сфинкс · 23.05.2023, 11:11

Ребус Криптарифма альфаметик JavaScript

+VETKA ][ +74235
+VETKA ][ +74235
DEREVO ][ 148470

Код:

<!DOCTYPE html> <html> <head> <meta charset="utf-8">
<title>Rebus of Letters JS</title> </head> <body> 
http://jdoodle.com/h/2YH <script> var v,e,t,k,a,r,o,d; 
var nn=8, x=[nn+1], ff = 0; var ii,jj, vetka, derevo 

        for (v=1; v<=9; v++) 
{ x[1]=v; document.write(v); 
          for (e=0; e<=9; e++) 
 { x[2]=e; for (t=0; t<=9; t++) 
  { x[3]=t; for (k=0; k<=9; k++) 
   { x[4]=k; for (a=1; a<=9; a++) 
    { x[5]=a; for (r=0; r<=9; r++) 
     { x[6]=r; for (o=0; o<=9; o++) 
      { x[7]=o; for (d=1; d<=9; d++) 
       { x[8]=d; 

for (ii = 1; ii <= nn-1; ii++) 
for (jj = ii+1; jj <= nn; jj++) 
 if (x[ii] == x[jj]) { ff = 1; }

if (ff==0) 
  { vetka = 10000*v +1000*e +100*t +10*k+a;
    derevo = d*100000+e*10000+r*1000+e*100+v*10+o;
    if (vetka + vetka == derevo) 
    { document.write(" "+ vetka +" "+ derevo +" ");} 
  }
ff=0 }} }} }} }} 

</script> </body> </html>

http://jdoodle.com/h/2YH

сфинкс · 30.05.2023, 19:19

Ребус Криптарифма альфаметик C#

Rebus Cryptarithm alphametic C#

+VETKA ][ +74235
+VETKA ][ +74235
DEREVO ][ 148470

Код:

using System; // rebusx.cs DANILIN
namespace rebusx { class rebusx
{ static void Main(string[] args)

{ int v,e,t,k,a,r,o,d,ii,jj; int nn=8; 
int[] x = new int[nn+1]; int vetka, derevo; 

        for (v=1; v<=9; v++) 
{ x[1]=v; Console.Write(v); 
          for (e=0; e<=9; e++) 
 { x[2]=e; for (t=0; t<=9; t++) 
  { x[3]=t; for (k=0; k<=9; k++) 
   { x[4]=k; for (a=0; a<=9; a++) 
    { x[5]=a; for (r=0; r<=9; r++) 
     { x[6]=r; for (o=0; o<=9; o++) 
      { x[7]=o; for (d=1; d<=9; d++) 
       { x[8]=d; // rextester.com/DDEQA74512

for (ii = 1; ii <= nn-1; ii++) 
for (jj = ii+1; jj <= nn; jj++) 
 if (x[ii] == x[jj]) { goto dav; }

vetka = 10000*v +1000*e +100*t +10*k+a;
derevo = d*100000+e*10000+r*1000+e*100+v*10+o;

if (vetka + vetka == derevo) // jdoodle.com/a/6cSu

  Console.WriteLine("\n {0} {1} ", vetka, derevo);
dav:; }} }} }} }} 
Console.ReadKey();
}}}

https://rextester.com/DDEQA74512

https://jdoodle.com/a/6cSu

28.03.2023, 06:35	#21
сфинкс Форумчанин Регистрация: 17.06.2012 Сообщений: 987	Универсальная программа изучения языков переведена на JavaScript и на предыдущих страницах есть реализация на qbasic qb64 python c++ C# Стартовать случайные Задать или ввести с клавиатуры размер массива n Начать массивы 1-мерный и 2-мерный учитывая n Начать массивы результатов 1-мерный и 2-мерный Массив1 случайные от 0 до 9: заполнение и вывод Если элемент чётный: вычислить квадрат иначе оставить значение как есть и результаты поместить в другой массив и распечатать оба массива в столбик Сортировка пузырьковая итогового массива вложенные циклы и обмены Вывести сортированный итоговый массив через while Массив 2-мерный заполнить суммами номеров столбца и строки Если значение нечётное: возвести в квадрат иначе оставить значение и создать ещё 2-мерный массив и вывести на экран матрицы исходную и результат https://rextester.com/HIQL79958 https://jdoodle.com/h/2Uh Код: <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <meta http-equiv="X-UA-Compatible" content="ie=edge"> <title>UNIVERSAL JavaScript</title> <html> <body> <noscript>Vkluch JS</noscript> https://rextester.com/HIQL79958 https://jdoodle.com/h/2Uh <script> var i,j; var n=5; var d=[n],x=[n] // universe.js document.write("<br>Massiv d v stroku<br>") for (i=0; i<n; i++) { d[i] = Math.floor(Math.random()9) document.write(d[i]+" ") } document.write("<br><br>Massiv d 4etnye x=d^2<br>") for (i=0; i<n; i++) { if (d[i] %2 ==0) x[i] = d[i] d[i] else x[i]=d[i] document.write(d[i] + " " + x[i] + "<br>") } document.write("<br>Massiv x sorting") for (i=0; i<n-1; i++) for (j = i+1; j<n; j++) if (x[i]>x[j]) { temp=x[i]; x[i]=x[j]; x[j]=temp } document.write("<br>i vyvod x 4erez while<br>") i=0; while (i < n) { document.write(x[i] + " "); i++ } document.write("<br><br>Massiv y summa ili ne4etnaya y=d^2<br>") var a=[], y=[] for (i=0; i<n; i++) { a[i]=[], y[i]=[] for (j=0; j<n; j++) { a[i][j]=i+j if (a[i][j] %2 !=0) y[i][j] = a[i][j] * a[i][j] else y[i][j] = a[i][j] document.write(y[i][j] + "\t ") } document.write("<br>") } document.write("<br>Massiv d minimax ot:<br>") for (i=0; i<n; i++) document.write(d[i] + " ") document.write("<br>") min = d[0]; max = d[0]; nmin=0; nmax=0 for (i=1; i<n; i++) { if (d[i]< min) { min=d[i]; nmin=i } if (d[i]> max) { max=d[i]; nmax=i } } document.write(min + " " + nmin + " " + max + " " + nmax) document.write("<br><br>Summa d i sredniy<br>") s=0; for (i=-1; i<n-1; i++) s += d[++i] document.write(s + " " + s/n + "<br>") </script> </body> </html> JavaScript изучаю деля программы на блоки строками вида </script> <script> document.write("<br>=5<br>") и сразу видно какой блок работает Результат работы программы: Код: `Massiv d v stroku 6 8 4 6 2 Massiv d 4etnye x=d^2 6 36 8 64 4 16 6 36 2 4 Massiv x sorting i vyvod x 4erez while 4 16 36 36 64 Massiv y summa ili ne4etnaya y=d^2 0 1 2 9 4 1 2 9 4 25 2 9 4 25 6 9 4 25 6 49 4 25 6 49 8 Massiv d minimax ot: 6 8 4 6 2 2 4 8 1 Summa d i sredniy 12 2.4` Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

04.04.2023, 09:09	#22
сфинкс Форумчанин Регистрация: 17.06.2012 Сообщений: 987	Матрица и файл Python Синтезировать имя файла как 2 цифры для записи и чтения Сформировать таблицу умножения до 55 в 2-мерный массив Сохранить таблицу на диск наизнанку начав с "25" =55 Считать таблицу в новый 2-мерный массив и вывести на экран Особенность: qb64 считывает таблицу оформленную в файле зато для C# & Python сохраняются 25 ячеек в столбик иначе C# & Python из файла отдельные через табуляции элементы в таблицу не считывают Код: import random # matrix.py n = 5; a=[1,1]; y=[1,1] a=[[(i+1)*(j+1) for i in range (n)] for j in range (n)] y=[[0 for i in range (n)] for j in range (n)] s = str(random.randrange(10,99))+'.txt' for i in range (n): for j in range (n): print ("%2d" % a[i][j], end=' ') print() print() fw = open(s, 'w') for i in range (n,0,-1): for j in range (n,0,-1): fw.write(str(a[i-1][j-1])) fw.write('\n') fw.close() fr = open(s, 'r') for i in range (n): for j in range (n): y[i][j]=fr.readline() print ("%2d" % int(y[i][j]), end=' ') print() print() fr.close() Код: `Результат 1 2 3 4 5 2 4 6 8 10 3 6 9 12 15 4 8 12 16 20 5 10 15 20 25 25 20 15 10 5 20 16 12 8 4 15 12 9 6 3 10 8 6 4 2 5 4 3 2 1` Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

18.04.2023, 17:17	#24
сфинкс Форумчанин Регистрация: 17.06.2012 Сообщений: 987	Прошлая страница https://www.programmersforum.ru/show...90#post1858190 включает функции на языках с++ func.cpp и JavaScript funj.js и сейчас функции Python https://rextester.com/EGXCM83414 Контрольный пример при x=90 y=1322 примерно Код: `import math # funp.py def funp(x): # rextester.com/EGXCM83414 rad = x * math.pi / 180 a = x (1 / 4) b = x(1/2) #; print (b) c = math.cos(rad); print(c) d = math.log10(x) #; print (d) e = math.exp(b) f = math.log(x,math.exp(1)) return a + b + c + d + e + f x = 90 y = funp(x) print(x, y)` Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

02.05.2023, 15:15	#26
сфинкс Форумчанин Регистрация: 17.06.2012 Сообщений: 987	ФУНКЦИИ qbasic qb64 Программа Функция функций включает: корень степень экспонента логарифмы тригонометрия и радианы из градусов Контрольный пример при x=90 примерно y=1322 Код: `x = 90 ' funb.bas y = funb(x) Print x, y End Function funb (x) rad = x * pi() / 180 a = x ^ (1 / 4) b = Sqr(x) ': Print b c = Cos(rad): Print c d = Log(x) ': Print d e = Exp(b) f = Log(b) * Log(e) funb = a + b + c + d + e + f End Function` Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

09.05.2023, 12:12	#27
сфинкс Форумчанин Регистрация: 17.06.2012 Сообщений: 987	Ребус криптарифма альфаметик alphametic cryptarithm где буквы заменяют цифры решается на нескольких языках программирования +VETKA ][ +74235 +VETKA ][ +74235 DEREVO ][ 148470 или за 5 минут переделывается на букв меньше например УДАР + УДАР = ДРАКА 8126 + 8126 = 16252 и формула и знаки могут быть любые Особенность: буквы крайние 0 быть не могут что ускоряет алгоритм от +25% до +50% Порядок букв в циклах на формулы не влияет и возможны несколько решений или без решения Rebus qb64 qbasic Код: NN=8: Dim a(NN) ' DANILIN Rebus.bas of Letters For V=1 To 9: a(1)=V: Print V; For E=0 To 9: a(2)=E ' jdoodle.com/a/6cSw For T=0 To 9: a(3)=T ' ВЕТКА+ВЕТКА=ДЕРЕВО For K=0 To 9: a(4)=K For A=1 To 9: a(5)=A For R=0 To 9: a(6)=R For O=0 To 9: a(7)=O For D=1 To 9: a(8)=D For ii=1 To NN - 1 For jj=ii + 1 To NN If a(ii)=a(jj) Then GoTo 55 Next: Next VETKA = 10000V + 1000E + 100T + 10K + A DEREVO=D100000 + E10000 + R1000 + E100 + V10 + O If VETKA + VETKA=DEREVO Then Print: Print VETKA, DEREVO 55 Next: Next: Next: Next: Next: Next: Next: Next End Rebus Python Код: nn=8; x=[1]; ff = 0 # rebusp.py DANILIN for i in range (0,nn+1): x[i]=x.append(i) for v in range (7,10): x[1]=v; print(v, end='') for e in range (4,10): x[2]=e; print(e, end='') for t in range (0,10): x[3]=t; print(t, end=' ') for k in range (0,10): x[4]=k for a in range (1,10): x[5]=a for r in range (0,10): x[6]=r for o in range (0,10): x[7]=o for d in range (1,10): x[8]=d for ii in range (1,nn-1): for jj in range (ii+1,nn): if x[ii] == x[jj]: ff = 1 if ff == 0: vetka = 10000v +1000e +100t +10k+a derevo = d100000+e10000+r1000+e100+v10+o if vetka + vetka == derevo: print(" ", vetka, derevo) ff=0 https://rextester.com/GAV77378 https://jdoodle.com/a/6dn5 Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую Последний раз редактировалось сфинкс; 09.05.2023 в 12:39.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Одномерный массив 12 элементов,случайные положительные и отрицательные. Найти элемент наиболее близкий к среднему значению(Паскаль	1998y8m1d	Помощь студентам	6	16.12.2013 17:06
Случайные буквы	StudentMarat	Помощь студентам	6	17.10.2011 17:24
Случайные числа. Си.	meta	Помощь студентам	1	31.05.2011 01:48
случайные числа	NeVerSS	Общие вопросы Delphi	3	01.10.2010 22:22
Случайные числа....	Teen4jump	Общие вопросы Delphi	4	28.11.2008 23:52