4Примеры

Пример 1: Значения переменных А и В задаются оператором ввода. Программа должна отпечатать А > B, A < B или A = B в зависимости от значений А и В.

Рис.2. Блок-схема для условного оператора

Блок-схема приведена на рис.2. Алгоритм заключается в сравнении вводимых величин А и В и выводе на экран соответствующих сообщений.

program prim_2;
{использование условного оператора}
var a,b:real;
begin
    write('введите а=');readln(a); 
    write('введите b=');readln(b);
    if a>b then writeln('А больше В')
           else if a<b then writeln('А меньше В')
                       else writeln('А равно В');
end.

Пример 2: Сравнить возраст брата и сестры и выводит соответствующее сообщение.

Вариант 1:

var age1,age2: integer;

begin

write('Введите возраст брата: '); readln(age1);

write('Введите возраст сестры: ');readln(age2);

if age1>age2 then writeln('Брат старше.')

else if age1<age2 then writeln('Сестра старше.')

else writeln('Они близнецы.');

end.

Вариант 2:

var age1,age2: integer;

begin

write('Введите возраст брата: '); readln(age1);

write('Введите возраст сестры: ');readln(age2);

if age1>age2 then writeln('Брат старше.');

if age1<age2 then writeln('Сестра старше.');

if age1=age2 then writeln('Они близнецы.');

end.

Пример 3: Определить день недели известной даты.

var d,m,y: integer; n: longint;

begin

writeln('Введите день, месяц, год даты (например: 3 12 1964)');

readln(d,m,y);

if(m>=2)then m:=m+1

else

begin

m:=m+13; y:=y-1;

end;

n:=trunc(365.25*y)+trunc(30.6*m)+d-621050; n:=n-trunc(n/7)*7+1;

case n of

1: write('понедельник');

2: write('вторник');

3: write('среда');

4: write('четверг');

5: write('пятница');

6: write('суббота');

7: write('воскресенье');

end; writeln;

end.

5Практическая часть

Задание 1 Составить программу с использованием условного оператора. Предусмотреть задание исходных данных при помощи оператора ввода.

1. На плоскости задана прямоугольная система координат с осями OX и OY, которая делит плоскость на 4 квадранта. Составить программу, которая вводит координаты точки (X,Y) и сообщает, в каком квадранте или на какой оси расположена эта точка.

2. Найти действительные корни уравнения для любых вводимых значений коэффициентов a, b, c, в том числе -равных нулю

3. Даны три числа A,B и C. Удвоить эти числа, если А > В > С, и заменить их абсолютными значениями, если это не так.

4. Даны действительные числа A,B,C и D. Если A < B < C < D, то каждое число заменить наибольшим из них, если A > B > C > D, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.

5. Дано действительное число А. Вычислить F(А),если

1. 

6. Даны действительные положительные числа А,В,С, X,Y. Выяснить, пройдет ли кирпич с ребрами А,В,С в прямоугольное отверстие со сторонами X и Y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.

7. Если значение переменной W не равно 0 и при этом котангенс от W меньше 0.5, тогда поменять знак у W, а если значение W равно 0, тогда присвоить W значение 1.

8. Даны действительные числа A и B. Найти корень уравнения . Предусмотреть выдачу сообщения «Уравнение не имеет решения», если A равно нулю, а В не равно нулю, или «Уравнение имеет бесчисленное множество решений», если А и В равны нулю.

9. Решить систему уравнений по формулам Крамера:

2. 

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

10. Даны два числа M и N. Меньшее из этих двух чисел заменить их полусуммой, а большее - их удвоенным произведением. Вывести полученные значения.

11. Дано число Х. Напечатать в порядке возрастания: ; ;

12. Дано действительное число А. Для функции F(X), график которой представлен на Рис 3. вычислить F(A).

13. Дано действительное число А. Для функции F(X), график которой представлен на Рис 4. вычислить F(A).

Рис. 3 Рис.4

14. Даны действительные числа X,Y. Определить, принадлежит ли точка с координатами (X,Y) заштрихованной части плоскости.(Рис.5)

15. Даны действительные числа X,Y. Определить, принадлежит ли точка с координатами (X,Y) заштрихованной части плоскости. (Рис.6)

Рис.5 Рис.6

Задание 2:

1. Написать программу, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), выдавать сообщение об ошибке.

2. Написать программу вычисления площади кольца. Программа должна проверять правильность исходных данных.

3. Написать программу вычисления сопротивления электрической цепи, состоящей из двух сопротивлений. Сопротивления могут быть соединены последовательно или параллельно.

4. Написать программу решения квадратного уравнения. Программа должна проверять правильность исходных данных и в случае, когда коэффициент при второй степени неизвестного равен нулю, выводить соответствующее сообщение.

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

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

7. Написать программу проверки знания даты основания Санкт-Петербурга. В случае неверного ответа пользователя программа должна выводить правильный ответ.

8. Написать программу проверки знания даты начала второй мировой войны. В случае неверного ответа пользователя программа должна выводить правильный ответ.

9. Написать программу проверки знания истории архитектуры. Программа должна вывести вопрос и три варианта ответа. Пользователь должен выбрать правильный ответ и ввести его номер.

10. Написать программу проверки знания истории архитектуры. Программа должна вывести вопрос и три варианта ответа, а пользователь — выбрать правильный ответ и ввести его номер.

11. Даны действительные положительные числа x, y z. Выяснить существует ли треугольник с длинами сторон x, y z. Если треугольник существует, то ответить – является ли он остроугольным.

12. Даны действительные числа a₁, b₁, c₁, a₂, b₂, c₂. Выяснить, верно ли, что , и если верно, то найти решение системы линейных уравнений

(при выполнении неравенства система заведомо совместна и имеет единственное решение).

13. Вывести на экран большее из двух целых чисел

14. Даны целые числа a, b, c. Если a  b  c, то все числа заменить их квадратами, если a > b > c, то каждое число заменить наибольшим из них, в противном случае сменить знак каждого числа.

15. Вычислить значение функции:

Задание 3:

1. Написать программу, которая сравнивает два числа, введенных с клавиатуры. Программа должна указать, какое число больше, или, если числа равны, вывести соответствующее сообщение.

2. Написать программу, которая выводит пример на умножение двух однозначных чисел, запрашивает ответ пользователя, проверяет его и выводит сообщение "Правильно!" или "Вы ошиблись" и правильный результат.

3. Написать программу, которая выводит пример на вычитание (в пределах 100), запрашивает ответ пользователя, проверяет его и выводит сообщение "Правильно!" или "Вы ошиблись" и правильный результат.

4. Написать программу, которая проверяет, является ли четным введенное пользователем целое число.

5. Написать программу, которая проверяет, делится ли на три целое число, введенное с клавиатуры.

6. Написать программу определения стоимости разговора по телефону с учетом скидки 20%, предоставляемой по субботам и воскресеньям.

7. Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) — 100.

8. Выведите на экран номер четверть, которой принадлежит точка с координатами (х, у), при условии, что х и у отличны от нуля.

9. Вычислить значение функции:

10. Даны три целых числа, найдите среднее из них.

11. Если целое число М делится нацело на целое число N, то вывести на экран частное от деления, в противном случае – сообщение «М на N нацело не делится».

12. Найдите количество положительных (отрицательных) чисел среди четырех целых чисел A, B, C, D.

13. Составить программу, которая определяет вид треугольника (если данные отрезки позволяют его построить).

14. Составить программу, которая уменьшит первое число в пять раз, если оно больше сторого по абсолютной величине.

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

Задание 4: Составить программу на использование оператора выбора Case

1. Написать программу, которая запрашивает у пользователя номер месяца и выводит соответствующее название времени года. В случае, если пользователь укажет недопустимое число, программа должна вывести сообщение "Ошибка ввода данных".

2. Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: "Рабочий день", "Суббота" или "Воскресенье".

3. Написать программу, вычисляющую стоимость междугороднего телефонного разговора (цена одной минуты определяется расстоянием до города, в котором находится абонент). Исходными данными для программы являются код города и продолжительность разговора.

4. Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 999), обозначающего денежную единицу, дописывает слово "рубль" в правильной форме. Например, 12 рублей, 21 рубль и т. д.

5. Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово "копейка" в правильной форме. Например, 5 копеек, 41 копейка и т. д.

6. Написать программу, которая вычисляет дату следующего дня.

7. Написать программу, которая по номеру месяца выдает время года.

8. Написать программу преобразования цифр в слова.

9. Написать программу, классифицирующую треугольники (остроугольные, прямоугольные, тупоугольные), если даны углы.

10. Написать программу, которая в зависимости от того введена ли открытая скобка или закрытая, напечатать "открытая круглая скобка" или "закрытая фигурная скобка". (Учитывать круглые, квадратные, фигурные скобки).

11. Написать программу, которая в зависимости от введённого символа L, S, V программа должна вычислять длину окружности; площадь круга; объём цилиндра.

12. Напишите программу, которая по введенному числу из промежутка 0..24, определяет время суток.

13. Определить, является ли введенная буква русского алфавита гласной.

14. Написать программу, которая в зависимости от значения переменной А на экран выводится наименование оценки. Предусмотреть вывод сообщения об ошибке в случае, когда введено число вне интервала 2..5.

15. Написать программу, которая если переменная Ch будет буквой ('A'..'Z', 'a'..'z'), цифрой ('0'..'9') или оператором ('+', '-', '*', '/'), будет соответственно выдавать одно из сообщений 'Буква', 'Цифра', 'Оператор'. В противном случае программа напечатает сообщение 'Специальный символ'.