Информатика: Сегментация программ. Гурьяшова Р.Н - 50 стр.

UptoLike

ВУЗ: 

ВГУВТ | Нижний Новгород

Составители: 

Рубрика: 

4. Листинг Basic-программы
Код исходного модуля Пояснения
' Лабораторная работа 3
' Петров А.Н. М-11
' Подпрограмма FUNCTION
CLS
DIM A(4), B(3)
DATA 2,3,2,4,1,3,2
N = 4: K = 3
PRINT "ИСХОДНЫЕ ДАННЫЕ "
PRINT STRING$(16, "*")
PRINT USING " N = # K = # "; N; K
PRINT " МАССИВ А : ";
FOR I = 1 TO N
READ A(I)
PRINT USING " # "; A(I);
NEXT
PRINT
PRINT " МАССИВ В : ";
FOR I = 1 TO K
READ B(I)
PRINT USING " # "; B(I);
NEXT
PRINT
S1 = SUM(A(), 2, N - 1)
S2 = SUM(B(), 1, K)
S3 = SUM(A(), 1, N)
IF S2 > S3 THEN MAX=S2 ELSE MAX=S3
Z = S1 + MAX
PRINT " РЕЗУЛЬТАТЫ ВЫЧИСЛЕНИЙ : "
PRINT STRING$(24, "*")
PRINT USING " S1 = ##.####^^^^ ";S1
PRINT USING " S2 = ##.####^^^^ ";S2
PRINT USING " S3 = ##.####^^^^ ";S3
PRINT " МАХ(S2,S3) = ";
PRINT USING "##.####^^^^ "; MAX
PRINT USING " Z = ##.####^^^^ "; Z
END
Основная
программа
Задание
исходных
данных
Ввод-вывод
массива А
Ввод-вывод
массива B
Вызов п/п SUM
Вызов п/п SUM
Вызов п/п SUM
Max(S2,S3)
Вывод
промежуточных
значений и
результата Z
50
               4. Листинг Basic-программы

             Код исходного модуля           Пояснения
' Лабораторная работа 3                 Основная
' Петров А.Н. М-11                      программа
' Подпрограмма FUNCTION

CLS
DIM A(4), B(3)
DATA 2,3,2,4,1,3,2                      Задание
N = 4: K = 3                            исходных
PRINT "ИСХОДНЫЕ ДАННЫЕ "                данных
PRINT STRING$(16, "*")
PRINT USING " N = # K = # "; N; K

PRINT " МАССИВ А : ";
FOR I = 1 TO N                          Ввод-вывод
   READ A(I)                            массива А
   PRINT USING " # "; A(I);
NEXT
PRINT

PRINT " МАССИВ В : ";
FOR I = 1 TO K                          Ввод-вывод
   READ B(I)                            массива B
   PRINT USING " # "; B(I);
NEXT
PRINT

S1 = SUM(A(), 2, N - 1)                 Вызов п/п SUM
S2 = SUM(B(), 1, K)                     Вызов п/п SUM
S3 = SUM(A(), 1, N)                     Вызов п/п SUM

IF S2 > S3 THEN MAX=S2 ELSE MAX=S3      Max(S2,S3)
Z = S1 + MAX
PRINT   " РЕЗУЛЬТАТЫ ВЫЧИСЛЕНИЙ : "     Вывод
PRINT   STRING$(24, "*")                промежуточных
PRINT   USING " S1 = ##.####^^^^ ";S1   значений и
PRINT   USING " S2 = ##.####^^^^ ";S2   результата Z
PRINT   USING " S3 = ##.####^^^^ ";S3
PRINT   " МАХ(S2,S3) = ";
PRINT   USING "##.####^^^^ "; MAX
PRINT   USING " Z = ##.####^^^^ "; Z
END


                              50

Страницы