Перевод с паскаля на бейсик

@andjey · Регистрация: 23.02.2010

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

задали сделать программу на бейсике,который я не знаю совсем.прошу помочь в переводе с паскаля на бейсик.var

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
M, N, Q: INTEGER; 
      I, J, ColSum: INTEGER; 
      Nums: array of array of INTEGER; 
      Res: array of INTEGER; 
begin 
      WRITE('How many numbers (M)? '); 
      readln(M); 
 
      WRITE('How many digits (N)? '); 
      readln(N); 
 
      WRITE('Numerical notation (Q <= 10)? '); 
      readln(Q); 
 
      SetLength(Nums, M); 
      FOR I :=0 TO (M - 1) DO 
           SetLength(Nums[I], N); 
 
      SetLength(Res, N + 1); 
 
      RANDOMIZE; 
 
      FOR I := 0 TO (M - 1) DO 
      begin 
           writeln; 
           WRITE(' '); 
           FOR J := 0 TO (N - 1) DO 
           begin 
                Nums[I, J] := RANDOM(Q); 
                WRITE(Nums[I, J]); 
           END; 
      END; 
 
      ColSum := 0; 
 
      FOR J := N - 1 downto 0 DO 
      begin 
           FOR I := 0 TO (M - 1) DO 
           begin 
                ColSum := ColSum + Nums[I, J]; 
           END; 
           Res[J + 1] := ColSum MOD Q; 
           ColSum := ColSum div Q; 
      END; 
 
      Res[0] := ColSum MOD Q; 
 
      writeln; 
      IF ColSum div Q > 0 THEN 
      begin 
           writeln('Overflow.'); 
      END; 
 
      FOR J := 0 TO N DO 
      begin 
           WRITE('-'); 
      END; 
 
      writeln; 
      FOR J := 0 TO N DO 
      begin 
           WRITE(Res[J]); 
      END; 
      readln; 
END.

@andjey · 23.03.2010, 19:34 **[ТС]**

теперь надо сразу вводить число

@кот Бегемот · 23.03.2010, 21:39

PureBasic
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
DIM a(100, 100), s(100)
INPUT "vvedite kol-vo chisel ", m
DO
INPUT "vvedite systemu schisleniya<=10 ", q
LOOP UNTIL q > 1 AND q <= 10
max = 0
 
FOR i = 1 TO m
DO
f = 0
 INPUT "vvedite ocherednoe chislo ", ch
  k = 0
   DO
   k = k + 1
   a(i, k) = ch MOD 10
   IF a(i, k) >= q THEN f = 1
   ch = ch \ 10
   LOOP UNTIL ch = 0
IF f = 1 THEN PRINT "nevernyj vvod"
LOOP UNTIL f = 0
IF k > max THEN max = k
NEXT
 
FOR i = 1 TO m
j = 0
DO
j = j + 1
s(j) = s(j) + a(i, j)
IF s(j) >= q THEN s(j + 1) = s(j + 1) + s(j) \ q: s(j) = s(j) MOD q
LOOP UNTIL j > max AND s(j) = 0
NEXT
FOR i = j - 1 TO 1 STEP -1
rez = rez * 10 + s(i)
NEXT
PRINT "summa="; rez

@andjey · 25.03.2010, 13:14 **[ТС]**

ура)задачу почти приняли,только препод сказал,что нужно еще выводить информацию о вводе дробного/отрицательного числа

@кот Бегемот · 26.03.2010, 10:31

Ваш препод, по-моему, сам не знает чего он хочет. посоветуйте ему почитать сказку Пушкина "О рыбаке и рыбке". Потому что он в третий раз меняет условия задачи. Разумеется, переделывать эту задачу в третий раз я не стану, уже потому, что это совершенно новая задача. И вам не советую. Скажите ему просто: я выполнил условия данной мне задачи, а всё остальное - ваши домыслы. Пусть докажет, что вы не решили поставленную задачу. а если у вас на это смелости не хватает, тогда вам путь в платные задачи (фриланс на форуме)
Для информации вам на будущее. Если в задаче не поставлены конкретные условия, вы имеете право сказать, что вас не просили их учитывать, а значит, задачу обязаны принять. Можно идти в деканат или выше оспаривать решение препода, любой суд будет на вашей стороне.

Добавлено через 9 часов 55 минут
впрочем, если дробные и отрицательнные числа складывать не надо, можно на ввод поставить условие, это не сложно, я-то испугался, что их надо складывать.

PureBasic
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
DIM a(100, 100), s(100)
INPUT "vvedite kol-vo chisel ", m
DO
INPUT "vvedite systemu schisleniya<=10 ", q
LOOP UNTIL q > 1 AND q <= 10
max = 0
 
FOR i = 1 TO m
DO
f = 0
do
flag=0 
INPUT "vvedite ocherednoe chislo ", ch
if  ch<0 or int(ch)<>ch then print"nevernyj vvod":flag=1
loop until flag=0
k = 0
   DO
   k = k + 1
   a(i, k) = ch MOD 10
   IF a(i, k) >= q THEN f = 1
   ch = ch \ 10
   LOOP UNTIL ch = 0
IF f = 1 THEN PRINT "nevernyj vvod"
LOOP UNTIL f = 0
IF k > max THEN max = k
NEXT
 
FOR i = 1 TO m
j = 0
DO
j = j + 1
s(j) = s(j) + a(i, j)
IF s(j) >= q THEN s(j + 1) = s(j + 1) + s(j) \ q: s(j) = s(j) MOD q
LOOP UNTIL j > max AND s(j) = 0
NEXT
FOR i = j - 1 TO 1 STEP -1
rez = rez * 10 + s(i)
NEXT
PRINT "summa="; rez

@andjey · 26.03.2010, 17:57 **[ТС]**

да,условие было нужно только на ввод.большое вам спасибо за помощь и терпение,приятно осознавать,что еще остались люди, которые могут бескорыстно помочь ближнему.

@Turalll · 04.06.2010, 20:01

Здравствуйте, если вам не тяжело помогите пожалуйста с этой моей проблемкой: Пишу курсовую и нужна программа которая решает СЛАУ метод главных элементом (ГАуса). на Визуал Бейсике. сам врядли смогу в короткий срок написать её , стал искать готовые и нашел программу написанную одним хорошим человеком на ПАскале

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
uses crt;
const nmax=100;
var a:array[1..nmax,1..nmax] of real;
    b,x:array[1..nmax] of real;
    n,i,j,k:integer;
    z,r,g:real;
begin
clrscr;
repeat
write('Введите количество уравнений до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите коэффициенты системы и свободные члены');
for i:=1 to n do
for j:=1 to n+1 do
read(A[i,j]);
clrscr;
writeln('Матрица коэффициентов и свободных членов');
for i:=1 to n do
  begin
    for j:=1 to n+1 do
    write(A[i,j]:6:2);
    writeln;
  end;
readln;
for i:=1 to n do
b[i]:=a[i,n+1];
for k:=1 to n do
     begin
       for j:=k+1 to n do
          begin
            r:=a[j,k]/a[k,k];
            for i:=k to n do
               begin
                 a[j,i]:=a[j,i]-r*a[k,i];
               end;
            b[j]:=b[j]-r*b[k];
          end;
     end;
for k:=n downto 1 do
     begin
       r:=0;
       for j:=k+1 to n do
         begin
           g:=a[k,j]*x[j];
           r:=r+g;
         end;
      x[k]:=(b[k]-r)/a[k,k];
     end;
writeln('Корни системы:');
for i:=1 to n do
write('x[',i,']=',x[i]:0:2,'   ');
readln;
end.

не могли бы Вы мне помочь перевести её хотя бы на бейсик , на VBa уже как нибудь сам, думаю будет в моих силах

@Лида03 · 04.01.2017, 22:37

Помогите пожалуйста перевести на бейсик

Pascal
1
2
3
4
5
6
Var i : integer
begin
For i = 10 to 99 do 
if ((i*2) mod 10 = 8) and ((i*3) mod 10 =4) then write(i)
readln
end

@Pro_grammer · 05.01.2017, 04:34

Сообщение от Лида03

перевести на бейсик

Тоже самое практически

Visual Basic
1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub Command1_Click()
Dim i As Integer
'begin
For i = 10 To 99
If ((i * 2) Mod 10 = 8) And ((i * 3) Mod 10 = 4) Then Form1.Print i
Next
End Sub

Новые блоги и статьи Все статьи Все блоги /
Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .	Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .

@andjey 0 / 0 / 0 Регистрация: 23.02.2010 Сообщений: 26
	23.03.2010, 19:34 [ТС]
	теперь надо сразу вводить число 0

@andjey 0 / 0 / 0 Регистрация: 23.02.2010 Сообщений: 26
	25.03.2010, 13:14 [ТС]
	ура)задачу почти приняли,только препод сказал,что нужно еще выводить информацию о вводе дробного/отрицательного числа 0

@andjey 0 / 0 / 0 Регистрация: 23.02.2010 Сообщений: 26
	26.03.2010, 17:57 [ТС]
	да,условие было нужно только на ввод.большое вам спасибо за помощь и терпение,приятно осознавать,что еще остались люди, которые могут бескорыстно помочь ближнему. 0