|
||||
Меню:
Главная
Форум
Литература: Программирование и ремонт Импульсные блоки питания Неисправности и замена Радиоэлектронная аппаратура Микросхема в ТА Рубрикатор ТА Кабельные линии Обмотки и изоляция Радиоаппаратура Гибкие диски часть 2 часть 3 часть 4 часть 5 Ремонт компьютера часть 2 Аналитика: Монтаж Справочник Электроника Мощные высокочастотные транзисторы 200 микросхем Полупроводники ч.1 Часть 2 Алгоритмические проблемы 500 микросхем 500 микросхем Сортировка и поиск Монады Передача сигнала Электроника Прием сигнала Телевидиние Проектирование Эвм Оптимизация Автомобильная электроника Поляковтрансиверы Форт Тензодатчик Силовые полевые транзисторы Распределение частот Резисторные и термопарные Оберон Открытые системы шифрования Удк |
[8] Writeln(--------------------------------------------------); Writeln( X A=1.0 A=1.5 A=2.0 A=2.5 A=3.0 ); Writeln(--------------------------------------------------); dx:= pi/100; for i:= 0 to 100 dobegin { внешний цикл изменения аргумента "X" } x:= dx*i; Write( x:8:4 ); for j:= 1 to 5 dobegin{ вложеннный цикл изменения параметра "A" } A:= 0.5*(j+1);y:= A*sin(x)-cos(x)/A; Write(y:8:4) end; Writeln;{ перевод курсора на новую строчку } if ((i+1) mod 20) = 0 then readln{ задержка прокрутки экрана до нажатия Enter } end; readln Практическое задание N 1. 11 1.Рассчитать значения функции y = sin(x)/(x+a)2 при изменении аргумента "x" в диапазоне от 0 до Pi/2 с шагом Pi/80 и при изменении параметра "A" в диапазоне от 1 до 2 с шагом 0, 2. 2.Рассчитать значения функции y = xa/a3 при изменении аргумента "x" в диапазоне от 1 до 10 с шагом 0, 2 и при изменении параметра "A" в диапазоне от 1 до 5 с шагом 1. Составим программу численной проверки неравенства Коши: V(a1 * a2 *. . . * aN) < ( a1 + a2 +. . . + aN )/N; где ab a2, . . . , aN > 0, в частном случае двух целых чисел в диапазоне от 1 до 250. Примечание: погрешности в вычислениях могут привести к неверному выводу, поэтому формулы преобразованы для расчета целых чисел! Program TEOREMA; {проверка теоремы о ср. арифметическом и ср. геометрическом } var a1, a2, N1, s, g: longint;bb: boolean; Beginbb:= true; Writeln (Процесс пошел, ждите!); N1:= 250; For a1:= 1 to N1 do{ внешний цикл } For a2:= 1 to N1 do begin{ вложенный цикл } S:= (a1+a2)*(a1+a2); G:= 4*a1*a2; if S < G then bb:= falseend; If bb = true then Writeln (Теорема верна) else Writeln (Теорема не верна); Writeln(Нажми Enter); readln Практическое задание N 1. 12 1.Провести численную проверку неравенства Коши-Буняковского: ( a1*b1+ a2*b2+ . . . + aN*bN )2 < ( a12+a22+. . . +aN2 ) * ( b12+b22+. . . +bN2 ); где a1, a2, . . . , aN > 0, b1, b2, . . . , bN > 0, в частном случае двух пар целых чисел в диапазоне от 1 до 50. 2.Провести численную проверку неравенства: (a1 + a2 +. . . + aN)/N < V ((a12 + a22 +. . . + aN2 )/N), где a1, a2, . . . , aN > 0 в частном случае трех целых чисел в диапазоне от 1 до 70. В некоторых случаях во вложенных циклах начальные или конечные значения параметров цикла зависят от текущего значения внешнего параметра цикла. Например, одно из неравенств Чебышева имеет вид: ( a1+a2+. . . +aN ) * ( b1+b2+. . . +bN )/N2 < ( a1*b1+ a2*b2+ . . . + aN*bN )/N ; для 0 < a1 < a2 < a3 < . . . < aN, 0 < b1 < b2 < b3 < . . . < bN. При проверке этого неравенства в случае двух пар целых чисел в диапазоне от 1 до 50 можно использовать операторы: bb:= true; For a1:= 1 to 50 do For a2:= a1 to 50 do For b1:= 1 to 50 do For b2:= b1 to 50 do begin S:= (a1+a2)*(b1+b2); P:= (a1*b1+ a2*b2)*2; if S > P then bb:= falseend; Практическое задание N 1. 13 Провести численную проверку неравенств Чебышева : 1.( a1+a2+. . . +aN ) * ( b1+b2+. . . +bN )/N2 > ( a1*b1+ a2*b2+ . . . + aN*bN )/N ; 2.( a12+ a22+. . .+aN2 ) * ( b12 +b22+. . .+bN2 )/N2 > ( ( a1*b )2 +( a2*b2 )2+ . . .+( aN*bN )2 )/N; для 0 < a1 < a2 < a3 < . . . < aN, b1 > b2 > b3 > . . . > bN > 0, в частном случае трех пар целых чисел в диапазоне от 1 до 10. Начальные и конечные значения параметров циклов могут определяться из условий задачи, например, для расчета количества "k" повторений цифры "N" в целых двузначных числах можно использовать операторы: k:= 0; for i:= 1 to 9 do for j:= 0 to 9 do begin if i = n then k:= k+1; if j = n then k:= k+1 end; Здесь первая цифра числа может принимать значение от 1 до 9, а вторая - от 0 до 9, Практическое задание N 1. 14 1.Рассчитать все целые чисела (a, b, c), удовлетворяющие условию: a2 + b2 = c2; где с<101. 2.Рассчитать все целые чисела (a, b, c, d), удовлетворяющие условию: a3 + b3 + c3 = d3; где d<21. 3.Рассчитать все трехзначные чисела, сумма цифр которых делится нацело на тринадцать. 4.Рассчитать номера всех счастливых четырехзначных билетов. Примечание: программы выводят на экран все числа, удовлетворяющие указанным условиям и суммарное число возможных комбинаций. Для приостановки вывода строк на экран можно использовать оператор: If (I MOD 20)=0 then Readln; где I - число выведенных строк. 5.Рассчитать зарплату купюрами достоинством 1, 3, 5 рублей. Программа запрашивает ввод величины зарплаты и выводит на экран все возможные комбинации числа купюр, сумма которых равна заработной плате. Начальные значения параметров циклов равны нулю, конечные значения параметров циклов находятся делением величины зарплаты на 1, 3, 5. 1. 7. 5. Операторы цикла с условием В Турбо-Паскале применяются два оператора цикла с условием: While "условие" DO "оператор"; -цикл с предусловием: проверка условия перед каждым выполнением " оператора", Repeat "операторы" Until "условие"; -цикл с постусловием: проверка условия после каждого выполнения " операторов". Здесь "условие" - выражение логического типа (Boolean). Схема выполнения операторов имеет вид: |
Среды: 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 | ||