Автор: Медведева Г. В

Скачать 1.04 Mb.

Название	Автор: Медведева Г. В
страница	8/23
Дата публикации	18.06.2014
Размер	1.04 Mb.
Тип	Документы

literature-edu.ru > Лекции > Документы

1 ... 4 5 6 7 8 9 10 11 ... 23

Составной оператор

Составной оператор представляет собой группу из произвольного числа операторов, отделенных друг от друга «;» и ограниченную операторными скобками Begin и End

Формат:

Begin

<�оператор>;

<�оператор>;

…….

<�оператор>;

End;

Например:

Begin

A:=A*B+(N-D);

Rez:=A+B*Pi;

WriteLn(Rez:12:6);

End;

Условный оператор If

Оператор If изменяет порядок выполнения операторов в зависимости от истинности или ложности некоторого условия. Существует два варианта оператора:

If <�условие> Then <�оператор 1> Else <�оператор 2>
If <�условие> Then <�оператор>

Условие может быть простым или сложным. Сложные условия образуются с помощью логических операций AND, OR, NOT. При записи условий могут использоваться все возможные операции отношения. Результат выражения всегда имеет булевский тип (истина или ложь).

В первом варианте, если условие принимает значение "Истина", выполняется оператор 1, если условие - "Ложь", выполняется оператор 2.

Например:

A:=2; B:=8;

If A>B Then WriteLn(‘A>B’) Else WriteLn(‘A<=B’);

Во втором варианте формата, если условие принимает значение "Истина", выполняется оператор, если условие - "Ложь", выполняется оператор, следующий сразу за оператором If.

Например:

A:=2; B:=8: C:=0;

If A>B Then C:=A+B;

C:=C+12;

WriteLn(‘C=’,C);

(Результат выполнения программы – 12).

Один оператор If может входить в состав другого оператора If. В таком случае говорят о вложенности операторов.

Формат:

If <�условие> Then

If <�условие> Then <�оператор>

Else <�оператор>;

Например:

If A<20 Then

If A>=15 Then WriteLn(‘А в диапазоне 15 - 20’)

Else (WriteLn(‘А в диапазоне 1 - 14’);

Конструкцию со степенью вложенности более 2 – 3 лучше избегать из-за сложности их анализа.

Примеры:

с простым оператором:

If A>B Then D:=A+B Else D:=A-B;

с составным оператором:

If A

WriteLn(‘A

D:=A*B;

End

Else Begin

WriteLn(‘A>=B’);

D:=A/B;

End;

с использованием сложного условия:

If (A=B) And (C=D) Then Begin

WriteLn(‘Норма’);

F:=0;

End

Else Begin

WriteLn(‘Превышение нормы’);

F:=100;

End;

Примеры решения задач

Заданы числа X,Y, Z. Найти минимальное из трех чисел.

Var

Mi, X,Y,Z:Integer;

BEGIN

WriteLn(‘Введите три числа’);

ReadLn(X,Y,Z);

Mi:=X;

If Y

If Z

WriteLn(‘ Минимальное число=’,Mi);

END.

Поменять местами значения переменных A,B,C т.о., чтобы оказалось A>B>C.

Var

PP,A,B,C:Real;

BEGIN

WriteLn(‘Введите три числа’);

ReadLn(A,B,C);

If A

If A

If B

WriteLn(‘A>B>C’,A,B,C);

END.

Определить, верно ли, что при делении натурального числа A на натуральное число B получится остаток, равный числу C.

Var

A,B,S:Integer;

BEGIN

Repeat

WriteLn(‘Введите два натуральных значения’);

ReadLn(A,B);

Until (A>B) AND (B>C);

WriteLn(‘Введите остаток’);

ReadLn(S);

If A MOD B = S Then

WriteLn(‘остаток от деления А на В=’,S)

Else

WriteLn(‘остаток от деления А на В не =’,S);

END.

4. Даны положительные целые числа A, B, C. Выяснить существует ли треугольник с длинами сторон A, B, C.

USES Crt;

VAR

A, B, C: INTEGER;

BEGIN

ClrScr;

WriteLn('Введите три числа');

ReadLn(A,B,C);

IF (A+B>C) AND (A+C>B) AND (B+C>A) Then

WriteLn('Треугольник построить можно')

Else

WriteLn('Треугольник построить нельзя');

END.

5. Верно ли, что в числе N первая и последняя цифры одинаковы (100<=N<1000).

USES Crt;

LABEL M1;

VAR

N,S,D,E: Integer;

BEGIN

M1: ClrScr;

Write(‘Введите целое трехзначное число ’);

ReadLn(N);

If (N <100) OR (N>=1000) Then GoTo M1;

{Выделение цифры в числе}

S:=N Div100; {сотни}

D:=((N-S*100) Div 10; {десятки}

E:=N mod 10; {единицы}

If S=E Then

WriteLn(‘Первая и последняя цифры одинаковы’)

Else

WriteLn(‘Первая и последняя цифры не одинаковы’);

END.

Примеры для самостоятельного решения:

Определить является ли данное целое число R четным. Дать словесный ответ.
Дано целое положительное число N (10<=N<=99). Выяснить, верно ли, что N равно кубу суммы цифр числа N.
Заданы три числа X, Y, Z. Найти min(XYZ, X+Y+Z).
Даны три целых числа. Выбрать из них те, которые принадлежат интервалу [1,3]
Дано целое положительное число N (N<=1000). Определить сколько цифр в этом числе.
Вычислить max(min(a,b),max(c,d)).

</20>

1 ... 4 5 6 7 8 9 10 11 ... 23

Похожие:

	Т. Ю. Медведева Методические указания по написанию и защите выпускной аттестационной Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования		Книга сканирована полностью Артпедагогика и арттерапия в специальном образовании: Учебник для вузов / Е. А. Медведева, И. Ю. Левченко, Л. Н. Комиссарова, Т....
	Н. Г. Гаманюк В. Н. Прохорова протокол №1 сентября 2011г Учитель: Медведева Надежда Юрьевна, категория высшая, Почетный работник общего образования Российской Федерации		Викторина литературных знаний “Любви все возрасты покорны…” Аукцион... Разработки внеклассных мероприятий по русскому языку и литературе с применением игровых технологий
	Айhoе учение даосских воинов ученичество Александра Медведева, первого... М42 Тайное учение даосских воинов—М.: Саттва, 1996.—320с. —(сер. «Путь Шоу-Дао», кн. 1)—isbn 5-86873-009-7		Книга Али Вячеслава Полосина -это честный рассказ о пути человека... Почему монотеизм первых христиан не устоял перед популярными в древности мистериями?
	Успенский Владимир Андреевич Апология математики, или о математике как части духовной культуры Мгу им. М. В. Ломоносова. Родился в 1930 году. Автор филологических и культурологических статей, опубликованных в журналах “Новое...		Программа. Автор. Выходные данные 8 класс. Литература. Автор программы... Литература. Автор программы А. Г. Кутузов. Москва, Дрофа, 2010 год. Материал рассчитан на 68 часов
	Автор Ю. В. Лебедев Под редакцией Т. Ф. Курдюмовой. М.: Просвещение 5-е издание, исправленное – М., 2009.// Программно-методические материалы: учебник...		Алексей Александрович Маслов Дзэн самурая Автор и ведущий нескольких телевизионных передач, в том числе «Тайны тибетских мастеров» на канале «Рамблер-тв». Много лет ведет...

Литература