Практическая работа по информатике

Практическая работа №10

Тема: Использование логических высказываний и операций в алгоритмических конструкциях и их описание средствами языков программирования.

Цель занятия: Изучить основные алгоритмические конструкции логических высказываний и их описание средствами языков программирования. Реализация программ несложных алгоритмов. Необходимое оборудование: сеть Интернет, ПК.

Теоретическая часть

Существует две основные формы условной инструкции, встречающиеся в реальных языках программирования: условный оператор (оператор if) и оператор многозначного выбора (переключатель, case, switch).

В     языках программирования C и C++ (а вслед за ними и Java, C#, PHP и множество других языков) имеют условный оператор, структурно аналогичный Паскалю. Отличие состоит

в      том,  что  условие  должно  быть  записано  в  круглых  скобках,  а  вместо  ключевых

слов begin и end используются фигурные скобки {}

if (<условие>)

{

<операторы>

}

else

{

<операторы>

}

Ветвления на языке Паскаль позволяют выполнять действия в зависимости от каких-либо условий. Для этого в языке программирования Pascal предусмотрены различные условные операторы. На данном уроке мы рассмотрим, как задаются ветвления с помощью конструкции IF...THEN.

Формат условного оператора на языке Паскаль:

If <условие>

Then <оператор 1>

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

Составной оператор. В операторные скобки можно заключить любое количество операторов.

Вариант условного оператора в этом случае:

If <условие>

Then Begin <группа операторов 1> end

Else Begin < группа операторов 2> end;

Знак "точка с запятой" не ставится перед служебным словом Else, но операторы в группах, естественно, отделяются друг от друга этим знаком.

Задание 1.

1.  Написать программу вычисления  у по формуле:

_Y=                                             если

если

Program Vetv1;

Var x,y:Real;

Begin

Writeln (' Введите х->');

Readln (x);

If (x>0) and (x<2)

Then y:=3*sqrt(sin(1+2*sqr(x)))

Else y:=1-sqr(cos(3*x+1));

Writeln('y= ', y:3:2)

End.

2.  Написать программу вычисления  у по формуле:

_Y=                                            если

если

3.  Написать программу вычисления  у по формуле:

если х

y=                    если х

если х

Program vetv3;

Var x,y:Real;

Begin

Writeln ('Введите х ->');

Readln (x);

If    (x=1)

Then   y:=1

Else  IF  (x<1)

Then  y:=2*x-1

Else  y:=2*x+1;

Writeln('y=' ,y:3:2)

End.

4.  Написать программу вычисления  у по формуле:

если х

y=            если х

если х

5.    Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 5% предоставляется, если сумма покупки больше или равна 1000 рублей, скидка в 10% предоставляется, если сумма больше 5000 рублей.

Program vetv2;

Var stoimost, symma:Real; Begin

Writeln ('Введите число и нажмите "Enter" '); Readln (stoimost);

symma:= stoimost; If (stoimost>=1000)

Then symma:= stoimost – stoimost*0.05 {скидка 5%} Else If (stoimost>5000)

Then symma:= stoimost – stoimost*0.1; {скидка 10%} Writeln('Сумма покупки составляет ',symma)

End.

6.   Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 2% предоставляется, если сумма покупки больше или равна 2000 рублей. Рекомендуемый вид экрана:

Вычисление стоимости покупки с учетом скидки:

Введите стоимость  покупки

2500

Вам предоставляется  скидка 20%

Сумма покупки с учетом скидки: 2000 (руб)

Контрольные вопросы

1). Запишите, что означает первая строка PascalABC?

2). Запишите, что означает вторая строка PascalABC?

3). Операторы ввода и вывода, как записываются и в чем заключаются?

4). Запишите встроенные функции в программе PascalABC

5)   Опишите типы переменных

5). Ветвления на языке Паскаль, что такое составной оператор?