Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.78/32: Рейтинг темы: голосов - 32, средняя оценка - 4.78
andjey
0 / 0 / 0
Регистрация: 23.02.2010
Сообщений: 26
1

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

24.02.2010, 18:00. Просмотров 5926. Ответов 27
Метки нет (Все метки)

задали сделать программу на бейсике,который я не знаю совсем.прошу помочь в переводе с паскаля на бейсик.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.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.02.2010, 18:00
Ответы с готовыми решениями:

Перевод кода из Паскаля в Бейсик
Есть тут один такой код: Var s,a:string; i:integer; c:char; begin ...

Диалект языка Бейсик - Spectrum-Бейсик
Приветствую всех. Недавно в сети нашла книгу: &quot;Как написать игру для ZX...

Определите что за бейсик?
Всем привет! есть код: Function CountDegist(tmpDump As UInteger Ptr,...

Где можно скачать Бейсик?
Подскажите где можно скачать Бейсик?

Какой бейсик редактирует файлы формата BLD
Какой бейсик редактирует файлы формата BLD ???

27
andjey
0 / 0 / 0
Регистрация: 23.02.2010
Сообщений: 26
23.03.2010, 19:34  [ТС] 21
теперь надо сразу вводить число
0
кот Бегемот
Платежеспособный зверь
8520 / 3954 / 1544
Регистрация: 28.10.2009
Сообщений: 10,286
23.03.2010, 21:39 22
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
0
andjey
0 / 0 / 0
Регистрация: 23.02.2010
Сообщений: 26
25.03.2010, 13:14  [ТС] 23
ура)задачу почти приняли,только препод сказал,что нужно еще выводить информацию о вводе дробного/отрицательного числа
0
кот Бегемот
Платежеспособный зверь
8520 / 3954 / 1544
Регистрация: 28.10.2009
Сообщений: 10,286
26.03.2010, 10:31 24
Ваш препод, по-моему, сам не знает чего он хочет. посоветуйте ему почитать сказку Пушкина "О рыбаке и рыбке". Потому что он в третий раз меняет условия задачи. Разумеется, переделывать эту задачу в третий раз я не стану, уже потому, что это совершенно новая задача. И вам не советую. Скажите ему просто: я выполнил условия данной мне задачи, а всё остальное - ваши домыслы. Пусть докажет, что вы не решили поставленную задачу. а если у вас на это смелости не хватает, тогда вам путь в платные задачи (фриланс на форуме)
Для информации вам на будущее. Если в задаче не поставлены конкретные условия, вы имеете право сказать, что вас не просили их учитывать, а значит, задачу обязаны принять. Можно идти в деканат или выше оспаривать решение препода, любой суд будет на вашей стороне.

Добавлено через 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
1
andjey
0 / 0 / 0
Регистрация: 23.02.2010
Сообщений: 26
26.03.2010, 17:57  [ТС] 25
да,условие было нужно только на ввод.большое вам спасибо за помощь и терпение,приятно осознавать,что еще остались люди, которые могут бескорыстно помочь ближнему.
0
Turalll
1 / 4 / 0
Регистрация: 03.06.2010
Сообщений: 93
04.06.2010, 20:01 26
Здравствуйте, если вам не тяжело помогите пожалуйста с этой моей проблемкой: Пишу курсовую и нужна программа которая решает СЛАУ метод главных элементом (ГАуса). на Визуал Бейсике. сам врядли смогу в короткий срок написать её , стал искать готовые и нашел программу написанную одним хорошим человеком на ПАскале
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 уже как нибудь сам, думаю будет в моих силах
0
Лида03
0 / 0 / 0
Регистрация: 19.09.2016
Сообщений: 22
04.01.2017, 22:37 27
Помогите пожалуйста перевести на бейсик
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
0
Pro_grammer
Модератор
6176 / 2259 / 443
Регистрация: 24.04.2011
Сообщений: 3,998
Записей в блоге: 10
05.01.2017, 04:34 28
Цитата Сообщение от Лида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
1
05.01.2017, 04:34
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.01.2017, 04:34

Где можно скачать Бейсик для ZX Spectrum?
Уважаемые, а не подскажете где Sinclair BASIC можно скачать.Очень надо.

Задача фри Бейсик Определить координаты точки пересечения прямых
Даны числа a1, b1, c1, a2, b2, c2. Определить координаты точки пересечения...

Что делает код описанный в теме? работа в бейсик с com портом
10 OPEN &quot;COM1: 9600, N, 8, 1&quot; AS #1 20 IF LOC(1) = 0 THEN 60 30 A$ =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
28
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru