|
||||
Меню:
Главная
Форум
Литература: Программирование и ремонт Импульсные блоки питания Неисправности и замена Радиоэлектронная аппаратура Микросхема в ТА Рубрикатор ТА Кабельные линии Обмотки и изоляция Радиоаппаратура Гибкие диски часть 2 часть 3 часть 4 часть 5 Ремонт компьютера часть 2 Аналитика: Монтаж Справочник Электроника Мощные высокочастотные транзисторы 200 микросхем Полупроводники ч.1 Часть 2 Алгоритмические проблемы 500 микросхем 500 микросхем Сортировка и поиск Монады Передача сигнала Электроника Прием сигнала Телевидиние Проектирование Эвм Оптимизация Автомобильная электроника Поляковтрансиверы Форт Тензодатчик Силовые полевые транзисторы Распределение частот Резисторные и термопарные Оберон Открытые системы шифрования Удк |
[5] Ba= 2* V(b*c*p*(p-a) )/(b+c) - биссектриса, аналогично для Bb, Bc; a, b, c - стороны треугольника ( исходные данные ). S - площадь, p - полупериметр треугольника. 3.Рассчитать радиус окружности, вписанной в треугольник R1= S/p и описанной вокруг треугольника R2= a*b*c/(4*S), где S - площадь, а p - полупериметр треугольника. a, b, c - стороны треугольника ( исходные данные ). 4.Рассчитать сумму "S" первых N членов арифметической прогрессии A1, A2, . . . , AN по формуле: S= (A1 + AN)*N/2. A1, AN, N - исходные данные 5.Рассчитать сумму "S" первых N членов ряда геометрической прогрессии B1, B2, . . . , BN по формуле: S= (B1 - BN*Q)/(1-Q). BN =B1 *QN. B1, Q - исходные данные. Примечание: Программы запрашивают ввод исходных данных с клавиатуры и выводят результаты расчета на экран. Программой контроль данных не производится. 1. 7. 2. Оператор выбора Оператор служит для выбора одного из помеченных вариантов действия (операторов), в зависимости от значения " параметра". Оператор имеет вид: Case "параметр" Of "список помеченных операторов" Else " оператор" End; Здесь " параметр" - выражение или переменная порядкового типа. Из "списка помеченных операторов" выполняется оператор с меткой, включающей значение "параметра", иначе оператор после слова Else. Конструкция Else "оператор" может отсутствовать. Напомним, что " оператор" может иметь вид: Begin " операторы" end; Пример операторов для определения порядка целого числа N от 0 до 999: case N of 0..9: writeln(однозначное); 10..99: writeln(двузначное); 100..999: writeln( трехзначное) else writeln(Число "N" не входит в указанный диапазон) end; Приведем пример программы случайного предсказания одного из десяти вариантов ближайшего будущего с вероятностью 1/20, в остальных случаях - вы "неудачник". PROGRAM FUTURE; var N: word; Begin writeln(ПРЕДСКАЗАНИЕ БУДУЩЕГО); Randomize; N:=Random(20)+1;{ N - случайное число от 1 до 20 } writeln; write(Ваc ожидает ); case N of 1:writeln( счастье) 2:writeln(пятерка) 3:writeln(дорога); 4:writeln(двойка); 5:writeln(болезнь) writeln( здоровье); writeln( деньги); writeln(любовь); writeln( встреча); writeln( дети) else writeln( неудача) writeln( Нажми Enter) end; readln; Здесь функция Random(x) генерирует случайное число, с равномерной плотностью распре- деления на заданном интервале. Для инициализации распределения в начале программы не- Практическое задание N 1. 4 1.Назначить дежурного в классе из списка 10 учеников с вероятностью 1/15, в остальных случаях дежурит учитель. 2.Выбрать место отдыха в отпуске из списка 10 мест, предлагаемых туристическим агентством с вероятностью 1/30 , в остальных случаях вы отдыхаете дома. 3.Вывести на экран сообщение в зависимости от введенного значения оценки ( по десятибалльной системе ), например: 1. . 2: плохо, 3. . 5: удовлетворительно, и т. д. , иначе -неправильный ввод данных. 4.Вывести на экран сообщение в зависимости от введенного значения температуры воздуха ( от -50 до +50 0 С ), например: -50. . -20: очень холодно, -19. . -10: холодно, и т. д. , иначе - неправильный ввод данных. Условный оператор включает в себя операторы, которые выполняются или не выполняются в зависимости от записанного в операторе условия. Оператор имеет вид: где " условие" - выражение логического типа; "оператор1" выполняется, если условие верно ( True ), "оператор2" выполняется, если условие не верно ( False ). Например, вычисление квадратного корня из числа "a" проводится при условии a>=0, операторами: IF a >= 0 Then b:= Sqrt(a) Else begin WriteLn ( a<0 ); Readln; Halt end; Оператор Halt прекращает выполнение программы. обходимо вызвать процедуру Randomize. 1. 7. 3. Условный оператор IF "условие" Then "оператор!" Else "оператор2"; Схема выполнения условного оператора имеет вид: ( False ) оператор2 В условном операторе может отсутствовать блок Else оператор2; т. е. условный оператор может иметь вид: IF "условие" Then "оператор1"; оператор1 например: IF a<0 Then a:= abs(a); Пример программы: Автобус движется по заданному маршруту с объявлением названий остановок. Зная остановку, на которой надо выходить, вы принимаете определенное решение: Выхожу, либо - Еду дальше, которое выводится на экран. PROGRAM octanovka; CONST A1= Бульвар Славы; A2= Горсовет; { A1, A2, A3, A4 - названия } A3= Спортивная; A4= УАИ;{ остановок } Y= Выхожу;N= Еду дальше; var A, A0 : String;{ A0 - текущая остановка } writeln(Ввести нужную остановку из списка:); writeln(A1:15, A2:15, A3:15, A4:15); Writeln; readln(A); Writeln;{ A - нужная остановка } IF (A<>A1) and (A<>A2) and (A<>A3) and (A<>A4) then begin Writeln( Нет такой остановки); readln; Halt end; A0:= A1;{ объявление остановки } IF A = A0 then beginwriteln( Y, A:15); readln; Halt end elsewriteln( A0:-15, N:12); A0:= A2;{ объявление остановки } IF A = A0 then beginwriteln( Y, A:15); readln; Halt end elsewriteln( A0:-15, N:12); A0:= A3;{ объявление остановки } IF A = A0 then beginwriteln( Y, A:15); readln; Halt end elsewriteln( A0:-15, N:12); A0:= A4;{ объявление остановки } writeln( Y, A:15);readln; Первый условный оператор осуществляет контроль входных данных. Напомним, что в случае нескольких условий, соединенных логическим "И" результирующее условие имеет значение True, если каждое условие верно, иначе - False. |
Среды: 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 | ||