|
||||||||||||||||
Меню:
Главная
Форум
Литература: Программирование и ремонт Импульсные блоки питания Неисправности и замена Радиоэлектронная аппаратура Микросхема в ТА Рубрикатор ТА Кабельные линии Обмотки и изоляция Радиоаппаратура Гибкие диски часть 2 часть 3 часть 4 часть 5 Ремонт компьютера часть 2 Аналитика: Монтаж Справочник Электроника Мощные высокочастотные транзисторы 200 микросхем Полупроводники ч.1 Часть 2 Алгоритмические проблемы 500 микросхем 500 микросхем Сортировка и поиск Монады Передача сигнала Электроника Прием сигнала Телевидиние Проектирование Эвм Оптимизация Автомобильная электроника Поляковтрансиверы Форт Тензодатчик Силовые полевые транзисторы Распределение частот Резисторные и термопарные Оберон Открытые системы шифрования Удк |
[7] ((YXO=D) and ( HOC=K) and (LAPA=PmZ)) then writeln(Это ЗАЯЦ); Практическое задание N 1. 8 1.Идентифицировать треугольник: остроугольный, тупоугольный, прямоугольный, равнобедренный, равносторонний по трем элементам - углам (сторонам). Причем, имя равнобедренного треугольника может быть составным. Контролировать допустимые значения элементов при вводе данных. 2.Идентифицировать четырехугольника: ромб, квадрат по пяти элементам - сторонам и углу. 3.Идентифицировать зверьков: заяц, кенгуру, белка по трем признакам для четырех элементов. 4.Идентифицировать летающий объект: самолет, вертолет, ракета, тарелка по трем признакам для четырех элементов. Например: для элементов: крылья, хвост, двигатель, длинный корпус признаками могут быть значения "Y" или "N". Примечание к п. 2, 3, 4: для неопознанного объекта должно выдаваться соответствующее сообщение на экран. 1. 7. 4. Оператор цикла с параметром Оператор цикла применяется при выполнении расчетов или других действий, повторяющихся определенное количество раз. Оператор имеет вид:
Здесь i - параметр цикла (переменная порядкового типа), N1, N2 - начальное и конечное значения параметра цикла i. N1, N2 могут быть константами, переменными или выражениями порядкового типа. Напомним, что " оператор" может иметь вид: Begin " операторы" end; Схема выполнения оператора цикла с параметром имеет вид: В случае связки To цикл выполняется при условии N1 <= N2 и происходит с единичным возрастанием параметра цикла i от N1 до N2. В случае связки DownTo цикл выполняется при условии N1 >= N2 и происходит с единичным уменьшением параметра цикла i от N1 до N2. В операторе цикла не разрешается присваивать параметру цикла какое- либо значение. После окончания цикла значение параметра цикла "i" неопределенно. Оператор цикла часто применяется для суммирования значений некоторой последовательности чисел или значений функции при известном числе операций суммирования. Напомним некоторые определения, связанные с расчетом суммы последовательности. Сумма членов последовательности величин a1, a2, a3, . . . , aN называется конечной суммой SN= a1 + a2 + a3+ . . . + aN. Для некоторых последовательностей известны формулы расчета конечных сумм, например: при aN= aN-1 + d; SN= (a1 + aN)*N/2; - арифметическая прогрессия, при aN= aN-1 * q; SN= (a1 - aN*q)/(1-q); - геометрическая прогрессия, где d и q - постоянные числа. Здесь N-ый член последовательности выражается через (N-1)-i>m член. Такие зависимости называются реккурентными. Конечная сумма последовательности может быть неизвестна, тогда для ее расчета применяется алгоритм суммирования членов последовательности в цикле от 1 до N. Приведем пример расчета конечной суммы последовательности: 12 + 32 + 52 +. . . + (2*N-1)2; SN = N*(4*N2-1)/3; PROGRAM SUM K; var a, S, Begin { расчет конечной суммы } Sn, i, N: word; write(Введите число членов суммы N=); For i:= 1 to N do begin a:= Sqr(2*i-1); S:= S+a end; Sn:= N*(4*N*N-1) div 3; { цикл суммирования } readln(N); Writeln(Конечная сумма S=, S:-10:2); Writeln(Расчет конечной суммы по формуле Sn=, Sn:-10:2); Writeln( Нажми Enter);readln Практическое задание N 1. 9 Рассчитать конечные суммы последовательностей: 1) 13 + 23 + 33 +. + N3; Sn = N2*(N+1)2/4; 2) 13 + 33 + 53 +. + (2*N-1)3; Sn = N2*(2*N2-1); 3) (X3+1)/cos(1) + (X3+2)/cos(4) + (X3+3)/cos(9) + (X3+N)/cos(N2); 4) (X2+1)/sin(1) + (X2+2)/sin(2) + (X2+3)/sin(3) + (X2+N)/sin(N); В некоторых случаях "N-ый член последовательности определяется через сумму предыдущих членов, например, aN= p*SN-1, тогда SN= SN-1 + aN = SN-1*(1+р), и конечную сумму можно рассчитать по формуле: SN= S0* (1+p)N, где "S0" - начальная сумма. Рассмотрим программу вычисления конечной суммы денежного вклада в банк через N месяцев при ежемесячной процентной ставке "pr" (5% соответствует pr=5). PROGRAM VKLAD;{ расчет конечной суммы вклада в банк } var S, Sn, pr: real; i, N: integer; Begin Write(Введите начальную сумму вклада S=); readln(S); Write(Введите процент по вкладу pr=);readln(pr); Write(Введите количество месяцев вклада N=); readln(N); For i:= 1 to N do S:= S*(1+pr/100. ); { цикл произведений } Writeln(Конечная сумма вклада S=, S:-10:2); { Оператор для расчета "Sn" напишите самостоятельно } Writeln(Расчет конечной суммы вклада по формуле Sn=, Sn:-10:2); Writeln(Нажмите Enter); readln Практическое задание N 1. 10 1.Вычислить конечную сумму денежного вклада в рублях при открытии валютного счета в банке через несколько месяцев при ежемесячной процентной ставке 1% и росте курса валютной единицы по отношению к рублю 2% в месяц. Программа запрашивает ввод суммы и срока вклада, и выводит на экран конечную сумму в рублях. Проверить расчет вычислением по формуле: SN = S0 * (1+pv)N * (1+pi)N, где pv, pi - банковский и инфляционный коэффициенты. 2.В п. 1 сделать ежемесячный ввод банковской процентной ставки и роста курса валюты при подсчете конечной суммы. Часто применяются вложенные операторы цикла. Например, если необходимо провести все варианты расчета при изменении нескольких параметров в заданных диапазонах. Составим программу расчета функции y = A*sin(x) - cos(x)/A; при изменении аргумента "x" в диапазоне от 0 до Pi с шагом Pi/100 и при изменении параметра "A" в диапазоне от 1 до 3 с шагом 0. 5. Program tabl; var y, x, a,dx: real; i, j: integer; Begin Writeln(Расчет по формуле: y=A*sin(x)-cos(x)/A; ); |
Среды: Smalltalk80 MicroCap Local bus Bios Pci 12С ML Микроконтроллеры: Atmel Intel Holtek AVR MSP430 Microchip Книги: Емкостный датчик 500 схем для радиолюбителей часть 2 (4) Структура компьютерных программ Автоматическая коммутация Кондиционирование и вентиляция Ошибки при монтаже Схемы звуковоспроизведения Дроссели для питания Блоки питания Детекторы перемещения Теория электропривода Адаптивное управление Измерение параметров Печатная плата pcad pcb Физика цвета Управлении софтверными проектами Математический аппарат Битовые строки Микроконтроллер nios Команды управления выполнением программы Перехода от ahdl к vhdl Холодный спай Усилители hi-fi Электронные часы Сердечники из распылённого железа Анализ алгоритмов 8-разрядные КМОП Классификация МПК История Устройства автоматики Системы и сети Частотность Справочник микросхем Вторичного электропитания Типы видеомониторов Радиобиблиотека Электронные системы Бесконтекстный язык Управление техническими системами Монтаж печатных плат Работа с коммуникациями Создание библиотечного компонента Нейрокомпьютерная техника Parser Пи-регулятор ч.1 ПИ-регулятор ч.2 Обработка списков Интегральные схемы Шина ISAВ Шина PCI Прикладная криптография Нетематическое: Взрывной автогидролиз Нечеткая логика Бытовые установки (укр) Автоматизация проектирования Сбор и защита Дискретная математика Kb радиостанция Энергетика Ретро: Прием в автомобиле Управление шаговым двигателем Магнитная запись Ремонт микроволновки Дискретные системы часть 2 | ||||||||||||||