Переписать программу с Pascal ABC

@Rim230115 · Регистрация: 26.04.2012

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

Помогите плиз, нужно программу сделанную на Pascal ABC переделать на VB. Заранее благодарен)

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
program Exact2;
uses crt;
var n,m,i,j,k,x:integer;a:array[1..100,1..100] of integer;
begin
clrscr;
write('n=');readln(n);
write('m=');readln(m);
writeln('Ischodnaja matricha:');readln;
randomize;
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(20)-5;
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;
 
{sortirovka po strokam}
for i:=1 to n do
for j:=1 to m-1 do
for k:=1 to m-1 do
if a[i,k]<a[i,k+1] then
   begin
     x:=a[i,k];a[i,k]:=a[i,k+1];a[i,k+1]:=x;
   end;
 
{sortirovka po stolbcham}
for j:=1 to m do
for i:=1 to n-1 do
for k:=1 to n-1 do
if a[k,j]<a[k+1,j] then
   begin
     x:=a[k,j];a[k,j]:=a[k+1,j];a[k+1,j]:=x;
   end;
 
writeln('Rezultat:');readln;
for i:=1 to n do
   begin
     for j:=1 to m do
         write(a[i,j]:3);
         writeln;
   end;
readln;
end.

Добавлено через 5 часов 19 минут
только просмотры, а помочь никто не может(((

@Апострофф · 10.12.2012, 18:09

Не по теме:

Rim230115, а слабо изложить задачу кода?
Возможно, переводить будет легче:scratch:

@Pro_grammer · 10.12.2012, 18:50

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

а помочь никто не может

Да лень просто писаниной заниматься. Творчества нет ни какого, тупо переписать

Visual Basic
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
Dim n As Integer, m As Integer, i As Integer, j As Integer, k As Integer, x As Integer, s As String
Dim a(1 To 100, 1 To 100) As Integer
 
Private Sub Form_Activate()
n = Val(InputBox("", "n=", 10))
m = Val(InputBox("", "m=", 10))
Print "Ischodnaja matricha: "
Print ""
Randomize Timer
 
For i = 1 To n
  For j = 1 To m
    a(i, j) = 20 * Rnd() - 5
       'Print a(i, j)
       s = s & Str(a(i, j)) & " "
   Next
   Print s
   s = ""
Next
'{sortirovka po strokam}
 
For i = 1 To n
  For j = 1 To m - 1
   For k = 1 To m - 1
     If a(i, k) < a(i, k + 1) Then
        x = a(i, k): a(i, k) = a(i, k + 1): a(i, k + 1) = x
     End If
    Next
   Next
Next
'{sortirovka po stolbcham}
 
For j = 1 To m
  For i = 1 To n - 1
   For k = 1 To n - 1
    If a(k, j) < a(k + 1, j) Then
      x = a(k, j): a(k, j) = a(k + 1, j): a(k + 1, j) = x
   End If
   Next
  Next
Next
 
Print "Rezultat:"
For i = 1 To n
        For j = 1 To m
           s = s & Str(a(i, j)) & " "
       Next
       Print s
       s = ""
Next
 
 
End Sub

SoftIce · 10.12.2012, 18:58

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

только просмотры, а помочь никто не может

Visual Basic
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
Option Explicit
Private Sub Command1_Click()
 
 
Dim n As Integer, m As Integer, i As Integer, j As Integer
Dim k As Integer, x As Integer
Dim a(1 To 100, 1 To 100) As Integer
Cls
n = InputBox("n = ", , 5)
m = InputBox("m = ", , 5)
Print "Ischodnaja matricha:"
Randomize
For i = 1 To n
    For j = 1 To m
        a(i, j) = Rnd * 20 - 5
        Print a(i, j); vbTab;
   Next j
  Print
Next i
 
'sortirovka po strokam
For i = 1 To n
   For j = 1 To m - 1
       For k = 1 To m - 1
            If a(i, k) < a(i, k + 1) Then
                 x = a(i, k): a(i, k) = a(i, k + 1): a(i, k + 1) = x
            End If
        Next
    Next
Next
 
'sortirovka po stolbcham}
For j = 1 To m
     For i = 1 To n - 1
          For k = 1 To n - 1
                If a(k, j) < a(k + 1, j) Then
                    x = a(k, j): a(k, j) = a(k + 1, j): a(k + 1, j) = x
                End If
           Next
      Next
Next
 
Print "Rezultat:"
For i = 1 To n
      For j = 1 To m
            Print a(i, j); vbTab;
      Next
      Print
 Next
 
End Sub

Добавлено через 2 минуты
Pro_grammer, опередил.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Апострофф
	10.12.2012, 18:09
	Не по теме: Rim230115, а слабо изложить задачу кода? Возможно, переводить будет легче:scratch: 0

Переписать программу с Pascal ABC

Решение