Задания

Напишите программы, которые позволяют решить следующие задачи:

Задание 1

Даны два целых числа. Найти среди этих чисел минимальное значение.

Задание 2

Написать программу, которая определяет, какой области принадлежит точка с координатами (X,Y), первой (I) или второй (II). Для простоты принять, что точка не попадает на границу областей. (Рис. 1)

Задание 3

Написать программу, которая по заданному значению X вычисляет значение Y. Зависимость Y(X) представлена графиком. (Рис. 2)

Рис. 1 Рис. 2

Задание 4

Известны две скорости: одна в километрах в час, другая в метрах в секунду. Какая из скоростей больше?

Задание 5

Известны сопротивления двух несоединенных друг с другом участков электрической цепи и напряжение на каждом из них. По какому участку протекает меньший ток?

Задание 6

Известны площади круга и квадрата. Уместится ли круг в квадрате?

Задание 7

Дано целое число K. Определить

1. является ли оно четным;

2. оканчивается ли оно цифрой 7.

Задание 8

Даны коэффициенты квадратного уравнения a, b, c. (a не равно 0). Вычислить корни квадратного уравнения ax²+bx+c=0. Если таковых нет, то вывести сообщение «Действительных корней нет».

Задание 9

Дано целое трехзначное число . Определить, является ли оно палиндромом («перевертышем»), т. е. числом десятичная запись которого читается одинаково слево направо и справо налево. (например число 545).

Задание 10

Дано целое двухзначное число K. Определить, больше ли числа A сумма его цифр.

Задачи 11, 12, 13, 14

Тема: Усечённая инструкция if...Then. Вложенные инструкции if...Then...Else.

Усечённой или краткой условной структуре в Паскале соответствует краткая инструкция IF...THEN. (вызов <Ctrl>+<F7>)

Формат описания:

IF <логическое выражение> THEN <инструкция 1>;

Краткая инструкция выполняется аналогично полной, то есть вычисляется значение логического выражения, если его значение TRUE, то выполняется инструкция 1, иначе выполняется следующая за IF...THEN инструкция.

Пример 1. Даны два целых числа. Определить наибольшее из них, не используя полный условный оператор, а применив два неполных условных оператора.

PROGRAM z5ex1; VAR a,b,max : INTEGER ; BEGIN { ******* MAIN PROGRAM ******* } WRITELN( 'Ввести 2 числа') ; READLN(a,b) ; IF a>b THEN max := a ; IF b>a THEN max := b ; WRITELN('Максимальное из ',а, ' и ', b, ' это ', max) ; END.

Пример 2. Даны два целых числа. Определить наибольшее из них, не используя полный условный оператор, а применив один неполный условный оператор.

PROGRAM z5ex2 ; VAR a,b,max : INTEGER ; BEGIN { ******* MAIN PROGRAM ******* } WRITELN( 'Ввести 2 числа' ) ; READLN( a,b ) ; max := a ; IF b>max THEN max := b ; WRITELN('Максимальное из ',а, ' и ', b, ' это ', max) ; END.

Пример 3. Даны четыре целых числа. Определить сколько из них четных.

PROGRAM z5ex3 ; VAR a,b,c,d,nch : INTEGER; BEGIN { ******* MAIN PROGRAM ******* } WRITELN('Ввести 4 числа'); READLN( a,b,c,d ) ; nch := 0 ; IF a mod 2=0 THEN nch := nch+1 ; IF b mod 2=0 THEN nch := nch+1 ; IF c mod 2=0 THEN nch := nch+1 ; IF d mod 2 =0 THEN nch := nch+1 ; WRITELN( '',a,', ',b,', ',c,', ',d,' chetnux ', nch ) ; END.

Инструкции, стоящие в структуре выбора после слов THEN и ELSE, сами могут быть инструкциями выбора, в этом случае инструкция IF...THEN...ELSE называется вложенной. Например,

IF <логическое выражение 1> THEN <инструкция 1> ELSE IF <логическое выражение 2> THEN <инструкция 2> ELSE <инструкция 3> ;

Каждая из инструкций (инструкция 1, инструкция 2, инструкция 3) может быть составной, т.е. в пункт THEN или ELSE можно поместить более одной инструкции, заключив их в скобки BEGIN...END.

Например:

IF <логическое выражение 1> THEN BEGIN <инструкция 1> IF < логическое выражение 2> THEN

BEGIN <инструкция 2> <инструкция 3> END ELSE <инструкция 4> ; END

ELSE IF < логическое выражение 3> THEN <инструкция 5> ELSE BEGIN <инструкция 6> ; <инструкция 7> ; END;

Чтобы избежать путаницы и возможных ошибок, желательно вложенные конструкции IF...THEN...ELSE заключать в операторные скобки BEGIN...END.

Пример 4.

Дано вещественное число X. Вычислить f(x), если

0, если х<=0 f = x, если 0<х<=1 x² в остальных случаях.

PROGRAM z5ex4 ; VAR x,f : REAL ; BEGIN { ******* MAIN PROGRAM ******* } WRITELN( 'Введите x' ) ; READLN( x ) ; IF x<=0 THEN f := 0 ELSE IF x<=1 THEN f := x ELSE f := sqr(x) ; WRITELN( 'При x=',x,' f=',f ) ; END.