Вычисление среднего значения положительных и отрицательных элементов массива: перевести с Pascal на QBasic

@Evona · Регистрация: 12.01.2015

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

Сформировать двумерный массив А размером 5*7 с помощью генератора случайных чисел и вывести элементы массива на экран. Найти средние значения положительных и отрицательных элементов каждого столбца матрицы отдельно и вывести их на экран.
Помогите пожалуйста перенести программу из Pascal в QBasic.Спасибо!

Pascal

var a:array[1..5,1..7] of integer;
    i,j,kolpol,kolotr:integer;
    respol,resotr:real;
begin
for j:=1 to 7 do begin
  for i:=1 to 5 do begin
    a[i,j]:=random(-50,50);
    write(a[i,j]:4);
  end;
  writeln();
end;
for j:=1 to 7 do begin
    if a[i,j]>0 then begin
      respol:=respol+a[i,j];
      kolpol:=kolpol+1;
    end
    else if a[i,j]<0 then begin
       resotr:=resotr+a[i,j];
       kolotr:=kolotr+1;
     end;
  end;
  if kolpol>0 then writeln('Среднее значение положительных чисел в ',j,' столбце=', respol/kolpol)
   else writeln('В ',j,' столбце нету положительных');
  if kolotr>0 then writeln('Среднее значение отрицательных чисел в ',j,' столбце=', resotr/kolotr)
   else writeln('В ',j,' столбце нету отрицательных');
end;
end.

Добавлено через 20 часов 20 минут
ну или может так поможете на QBasic сделать её

Добавлено через 4 часа 29 минут
точное задание Сформировать двумерный массив А размером 5*7 с помощью генератора случайных чисел и вывести элементы массива на экран.
Найти средние значения положительных и отрицательных элементов каждого столбца матрицы отдельно и вывести их на экран и в файл.
Определение средних значений положительных и отрицательных элементов столбца матрицы оформить в виде процедуры.

Добавлено через 2 часа 55 минут
сделала на Basic, но возникла проблема с процедурой, может поможете хотя бы с процедурой? кто нибууудь)

QBasic/QuickBASIC

CLS
OPEN "c:matr.dat" FOR INPUT AS #1
n = 5
m = 7
DIM a(n, m)
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(100 - RND * 200)
PRINT a(i, j)
NEXT j
10 NEXT i
11 PRINT "Matriza a"
12 FOR i = 1 TO n
13 FOR j = 1 TO m
14 PRINT a(i, j);
15 NEXT j
16 PRINT
17 NEXT i
18 FOR j = 1 TO m
19 srpol = 0: srotr = 0: d1 = 0: d2 = 0
20 FOR i = 1 TO n
21 IF a(i, j) > 0 THEN srpol = srpol + a(i, j): d1 = d1 + 1 ELSE GOTO 22
22 IF a(i, j) < 0 THEN srotr = srotr + a(i, j): d2 = d2 + 1 ELSE GOTO 23
23 NEXT i
IF d1 = 0 THEN d1 = 1
IF d2 = 0 THEN d2 = 1
sr1 = srpol / d1 * (1)
sr2 = srotr / d2 * (-1)
x = x + 1
PRINT "Stolbez"; x
PRINT "Srednee znach.polo.="; sr1; "Srednee znach.otric="; sr2
NEXT j
END

@Sasha_Smirnov · 17.01.2015, 04:29

Уау, транслит!

@Evona · 17.01.2015, 11:30 **[ТС]**

Sasha_Smirnov, я не переводила, а сделала сама, т.к. с Pascal не знала как перенести в QBasic. Вы лучше бы помогли, чем смеялись.

@Sasha_Smirnov · 17.01.2015, 12:38

У меня QBasic не установлен.

@Evona · 17.01.2015, 14:17 **[ТС]**

Sasha_Smirnov, очень жаль

@Quiet Snow · 18.01.2015, 11:43

сделала на Basic, но возникла проблема с процедурой, может поможете хотя бы с процедурой? кто нибууудь)

Отправляйте массив в процедуру или сделайте его глобальным(SHARED).
В справке QBasic всё есть.

@Evona · 18.01.2015, 13:39 **[ТС]**

Quiet Snow, c SHARED не пробовала,а вот с SUB попробовала, но постоянно выдает ошибку, можно пример пожалуйста с SHARED как идет обозначение и как закрывается процедура или ссылку на тему пожалуйста.Спасибо.

@Quiet Snow · 19.01.2015, 10:42

можно пример пожалуйста с SHARED как идет обозначение

QBasic/QuickBASIC

DECLARE SUB TEST ()
DIM SHARED a AS INTEGER
   CLS
      TEST
   PRINT a
 
SUB TEST ()
  a = 5
END SUB

а вот с SUB попробовала, но постоянно выдает ошибку

QBasic/QuickBASIC

DECLARE SUB TEST (a() AS ANY)
DIM Mas(5, 5) AS INTEGER
   CLS
     TEST Mas()
   PRINT Mas(3, 3)
 
SUB TEST (a() AS INTEGER)
   a(3, 3) = 5
END SUB

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	17.01.2015, 04:29	2
	Уау, транслит! 0

@Evona 0 / 0 / 1 Регистрация: 12.01.2015 Сообщений: 10
	17.01.2015, 11:30 [ТС]	3
	Sasha_Smirnov, я не переводила, а сделала сама, т.к. с Pascal не знала как перенести в QBasic. Вы лучше бы помогли, чем смеялись. 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	17.01.2015, 12:38	4
	У меня QBasic не установлен. 0

@Evona 0 / 0 / 1 Регистрация: 12.01.2015 Сообщений: 10
	17.01.2015, 14:17 [ТС]	5
	Sasha_Smirnov, очень жаль 0

@Quiet Snow 5002 / 1674 / 409 Регистрация: 25.04.2010 Сообщений: 4,626 Записей в блоге: 2
	18.01.2015, 11:43	6
	сделала на Basic, но возникла проблема с процедурой, может поможете хотя бы с процедурой? кто нибууудь) Отправляйте массив в процедуру или сделайте его глобальным(SHARED). В справке QBasic всё есть. 0

@Evona 0 / 0 / 1 Регистрация: 12.01.2015 Сообщений: 10
	18.01.2015, 13:39 [ТС]	7
	Quiet Snow, c SHARED не пробовала,а вот с SUB попробовала, но постоянно выдает ошибку, можно пример пожалуйста с SHARED как идет обозначение и как закрывается процедура или ссылку на тему пожалуйста.Спасибо. 0

	19.01.2015, 10:42