Ремонт принтеров, сканнеров, факсов и остальной офисной техники


назад Оглавление вперед




[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.



[стр.Начало] [стр.1] [стр.2] [стр.3] [стр.4] [стр.5] [стр.6] [стр.7] [стр.8] [стр.9] [стр.10] [стр.11] [стр.12] [стр.13] [стр.14] [стр.15] [стр.16] [стр.17] [стр.18] [стр.19] [стр.20] [стр.21] [стр.22] [стр.23] [стр.24] [стр.25] [стр.26] [стр.27] [стр.28] [стр.29] [стр.30] [стр.31] [стр.32] [стр.33] [стр.34] [стр.35] [стр.36] [стр.37] [стр.38] [стр.39] [стр.40] [стр.41] [стр.42] [стр.43] [стр.44] [стр.45] [стр.46] [стр.47] [стр.48] [стр.49] [стр.50] [стр.51] [стр.52] [стр.53]