Студопедия
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

NEXT i INPUT b(i,j) PRINT

Читайте также:
  1. INPUT x
  2. Introduction of Printing
  3. Newsweek Magazine is Back In Print
  4. Otrokh N.V. From the works of art to printing press. Up to the porcelain and pottery production in Ukraine.
  5. reset(input);
  6. Суммарный вход (INPUT)

NEXT j NEXT i

NEXT i

Слева осуществляется ввод данных в вектор А размерностью N эле­ментов. В центре – в матрицу В размерностью N строк на M столбцов. Ввод осуществляется с помощью двух циклов, один из которых вложен в другой. В наружном цикле изменяется первый индекс I элемента матрицы В, во внутреннем – второй индекс J. Таким образом, второй индекс J изменяется быстрее, чем первый. Это означает, что ввод элементов матрицы будет производиться в следующей последовательности: B(1,1), B(1,2),..., B(1,M); B(2,1), B(2,2),..., B(2,M);...; B(1,N), B(1,N),... B(M,N), т.е. по строкам. Замечание. Два последних оператора могут быть объединены в один вида NEXT j,i (первым должен быть указан индекс внутреннего цикла, вторым – внешнего).

Аналогичным образом осуществляется и вывод (фрагмент программы справа), но вместо оператора INPUT используется оператор PRINT. Здесь, однако, следует позаботиться об удобстве восприятия выводимых данных. Желательно, чтобы строка матрицы занимала на экране именно одну строку. Для этого во внутреннем цикле печати нужно поставить точку с запятой после оператора вывода (PRINT;), что подавляет переход на новую строку монитора после вывода каждого числа. Напротив, после завершения вывода всех элементов строки матрицы, как раз следует перейти на следующую строку монитора. Для этого ниже оператора NEXT j следует поставить пустой оператор PRINT, который переведет вывод на следующую строку экрана. Кроме того, для обеспечения фиксированного расположения элементов матрицы друг под другом в столбцы, имеет смысл использовать для вывода не оператор PRINT, а PRINT USING (например, PRINT USING “####.##”; b(i,j);).

Задача 10. В векторе С предельной размерности 30 элементов найти максимальный по значению элемент и его номер в С. Ниже приведена программа и ее проверка для N=4 и C=[5,2,7,4] в ее обрабатывающей части (с оператора m=c(1)). Здесь переменная М запоминает значение максимального элемента, а К – номер этого элемента в векторе С. Первоначально в качестве такого элемента берется самый первый.

 

Программа к задаче 10 DIM c(30) INPUT n FOR i=1 TO n INPUT c(i) NEXT   Проверка    
m=c(1): k=1 FOR i=2 TO n IF m<c(i) THEN m=c(i): k=i NEXT ?m k m=5, k=1 i=2 5>2 i=3 5<7 m=7,k=3 i=4 7>4 i=5 7, 3

Задача 11. Определение значения вклада в банке на конец года. Пусть в банке имеется N счетов вкладчиков. Для всех известны значения остатков на счете в конце каждого квартала. Следует определить и напечатать значения всех вкладов на конец года с учетом известного процента роста вклада Р. Данные о вкладах хранятся в массиве Х из N строк и пяти столбцов. Первые четыре элемента каждой i-ой строки Х(i,1), Х(i,2), Х(i,3), Х(i,4), хранят остатки вклада на конец каждого из четырех кварталов года. В последний пятый элемент строки X(i,5) следует занести вычисленную величину вклада на конец года. Он равен остатку вклада на конец последнего квартала Х(i,4) плюс установленный процент Р/100 от среднего значения вклада (Х(i,1)+ Х(i,2)+Х(i,3)+ Х(i,4))/4 за год. Отсюда X(i,5)=Х(i,4)+(Р/100)*(Х(i,1)+Х(i,2)+ Х(i,3)+Х(i,4))/4.

 

I кв Х(i,1) II кв Х(i,2) III кв Х(i,3) IV кв Х(i,4) Остаток на конец года X(i,5)= Х(i,4)+(Р/100)*(Х(i,1)+Х(i,2)+Х(i,3)+Х(i,4))/4

 

Кроме перечисленного, следует найти сумму всех вкладов в банке S и среднее значение вклада, приходящееся на одного вкладчика S/N.




Дата добавления: 2014-12-23; просмотров: 133 | Поможем написать вашу работу | Нарушение авторских прав




lektsii.net - Лекции.Нет - 2014-2025 год. (0.007 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав